name1=lcase(name)
for aa=1 to len(name1)
dd=mid(name1,aa,1)
if dd>="!"and dd<"A" or dd>="["and dd<="`" or dd>="{"and dd<="~"or dd=" " then
Response.Redirect ("sorry.asp?id=请输好!")
end if
next
name_unit=mid(username,1,1)
if not (((asc(name_unit)>64 and asc(name_unit)<91)) or ((asc(name_unit)>96 and asc(name_unit)<123))) then
displayInfo("请正确输入用户名")
response.End
end if
for i=1 to name_length
name_unit=mid(username,i,1)
if asc(name_unit)<48 then
displayInfo("请正确输入用户名")
response.End
end if
if asc(name_unit)>57 and asc(name_unit)<65 then
displayInfo("请正确输入用户名")
response.End
end if
if asc(name_unit)>90 and asc(name_unit)<97 and asc(name_unit)<>95 then
displayInfo("请正确输入用户名")
response.End
end if
if asc(name_unit)>122 then
displayInfo("请正确输入用户名")
response.End
end if
next