is_name.asp

很好的一个系统

<%
'用户名规则判定函数------------------
function is_name(name)
	dim i, c
	is_name = true
	for i = 1 to len(name)
		c = Lcase(Mid(name, i, 1))
		if InStr("abcdefghijklmnopqrstuvwxyz_", c) <= 0 and not IsNumeric(c) then
			is_name = false
			exit function
		end if
	next
end function
%>