<%
'*******************************
'関数:isvalidusername(byvalusername)
'パラメーター:ユーザー名、ユーザー名
著者:アリクシ
'日付:2007/7/15
'説明:ユーザー名に違法文字が含まれているかどうかを確認してください。違法文字なしで戻ります:true
'例:isvalidusername(byvalusername)
'*******************************
functionisvalidusername(byvalusername)
ディミ、c
isvalidusername = true
fori = 1tolen(username)
c = lcase(mid(username、i、1))
ifinstr( "$!<>?#^%@〜`&*();:+= '"" ""、c)> 0then
isvalidusername = false
exitFunction
endif
次
エンド機能
%>