<٪
'*********************************
'الوظيفة: isValiduserName (ByvaluserName)
المعلمة: اسم المستخدم ، اسم المستخدم
المؤلف: Alixi
"التاريخ: 2007/7/15
الوصف: تحقق مما إذا كان اسم المستخدم يحتوي على أحرف غير قانونية ، دون عودة أحرف غير قانونية: صحيح
على سبيل المثال: isvalidusername (byvalusername)
'*********************************
FunctionIsvaliduserName (ByvaluserName)
ديمي ، ج
isValiduserName = صحيح
fori = 1tolen (اسم المستخدم)
C = Lase (منتصف (اسم المستخدم ، أنا ، 1))
ifinst ("$! <>؟#^٪@~` &*() ؛:+= '"" "، c)> 0then
isValiduserName = خطأ
exitfunction
Endif
التالي
الوظيفية
٪>