for i=1 to Len(newname)
c=Lcase(Mid(newname,i,1))
d=Left(newname,1)
if InStr("abcdefghijklmnopqrstuvwxyz_-.",c)<=0 and not IsNumeric(c) then
Response.Write"对不起,用户名只能由英文字母(a-z),数字(0-9)和下划线('_'、'-'、'.' )构成,不能有空格!"
Response.END
ValidName=false
else if InStr("abcdefghijklmnopqrstuvwxyz",d)<=0 then
Response.Write"对不起,用户名必须以英文字母开头!"
Response.END
ValidName=false
end if
end if
如果没有这句话,运行很好!可是,有这句话之后总是有问题!