checkuser.asp

嘉缘人才6.0精简 ,很好用的人才系统

<!--#include file="../conn/conn.asp" -->
<!--#include file="../inc/safe.asp" -->
<%
pmember_login=Replace_Text(request("login"))
dim errorflag,errorstr
errorflag=0
errorstr=""
if pmember_login="" then
  errorflag=1
  errorstr="请输入用户名！"
else
  Function isletternumber(strng)
   isletternumber = false
   Dim regEx, Match ' Create variables.
   Set regEx = New RegExp   ' Create a regular expression object (stupid, huh?)
   regEx.Pattern = "^[A-Za-z0-9]{4,20}$" ' Sets pattern.
   regEx.IgnoreCase = True   ' Set case insensitivity.
   Set Match = regEx.Execute(strng)   ' Execute search.
   if match.count then isletternumber= true
  End Function
  if not isletternumber(pmember_login) then
    errorflag=1
    errorstr="用户名要求由4-20个字母或数字组成！"
  else
    set rs=server.Createobject("ADODB.Recordset")
    sql="select pmember_login from job_P_pmember where pmember_login='"&pmember_login&"'"

	rs.open sql,conn,1,1

    if not rs.eof then
	  errorflag=1
      errorstr="用户名"&pmember_login&"已经存在，请重新选择用户名！"
	end if
	rs.close
	set rs=nothing
  end if
end if
if errorflag=1 then
  response.write("<font color=red>"&errorstr&"</font><br>")
else
  response.write("用户名"&pmember_login&"还未被注册，您可以使用！")
end if 
%>