checkusername.inc

来自「ajax技术书籍 ajax技术书籍」· INC 代码 · 共 46 行

<%
function checkUserName(checkName, table, fieldName)
	Response.Expires = -1
	Response.ExpiresAbsolute = Now() - 1
	Response.cachecontrol = "no-cache"
	
	dim backStr,con,rs
	
	if(checkName="") then
		backStr = "Err_101"
	else
		'wrong username check
		Set re = New RegExp
		re.Pattern = "^\d{1}.*"
		if(re.Test(checkName)) then
			backStr = "Err_103"
		else
			re.Pattern = "[\- \+ \\ \/ \& ! ~ @ # \$ % \^ \* \( \) = \? '  \< \> \. , : ; \] \[ \{ \} \|]"
			if(re.Test(checkName)) then
				backStr = "Err_104"
			else
				set con=getConn()
				set rs=getRs()
				sql="select top 1 * from "&table&" where "&fieldName&"='"&checkName&"'"
				rs.open sql,con,1,1
	
				if not rs.bof and not rs.eof then
					backStr = "Err_100"
				else
					backStr = "Err_102"
				end if
	
				rs.close
				con.close
				set rs=nothing
				set con=nothing
			end if
		
		end if
	
	end if
	
	checkUserName = backStr		'return error code
	
end function
%>