'******************************
'函数:isvalidusername(byval username)
'参数:username,用户名称
'作者:阿里西西
'日期:2007/7/15
'描述:验证用户名是否包含有非法字符,不含非法字符返回:true
'示例:isvalidusername(byval username)
'******************************
function isvalidusername(byval username)
dim i,c
isvalidusername = true
for i = 1 to len(username)
c = lcase(mid(username, i, 1))
if instr("$!<>?#^%@~`&*();:+='"" ", c) > 0 then
isvalidusername = false
exit function
end if
next
end function
%>