注册会员

<%@LANGUAGE="VBSCRIPT"%> <% if request("reg")=1 then UserName=Request("UserName") Password=Request("Password") realname=Request("realname") Email=Request("Email") Phone=Request("Phone") Address=Request("Address") Content=Request("Content") errormsg="" if len(UserName)<2 then errormsg=errormsg& "

用户名不能小于4个英文字母/2个汉字" end if if len(Password)<4 then errormsg=errormsg& "

密码小于4位数字" end if if len(realname)<2 then errormsg=errormsg& "

真实姓名格式不对,不能小于4个英文字母/汉字" end if if len(email)<4 and instr(email,"@")=0 then errormsg=errormsg& "

Email格式不对!" end if if len(Phone)<7 then errormsg=errormsg& "

电话格式不对" end if set RS = Server.CreateObject("ADODB.Recordset") RS.ActiveConnection = MM_conn_STRING RS.Source = "Select top 1 * FROM users where UserName='"&UserName&"'" RS.CursorType = 0 RS.CursorLocation = 2 RS.LockType = 3 RS.Open() RS_numRows = 0 if not RS.eof then errormsg =errormsg&"

用户名已经存在，请换个用户名，谢谢！" end if if errormsg="" then RS.AddNew RS("UserName")=UserName RS("Password")=Password RS("Email")=Email RS("RealName")=RealName RS("Phone")=Phone RS("Address")=Address RS("Content")=Content RS.Update successmsg="亲爱的用户，你已经申请成功，请点击这里进入“自由上传”页面，谢谢!" end if RS.Close() Set RS=Nothing end if %> 注册会员

<%if errormsg<>"" then response.write errormsg%> <%if successmsg<>"" then response.write successmsg response.end end if%>


	注册会员
用户名:	* 必须大于4位字母/2位汉字
密码:	* 必须大于4位字母/数字
真实姓名:	* 必须大于2位字母/汉字
Email:	* 必须有效，方便与你联系
电话:	*
地址:
描述:

·联系我们

·合作伙伴

·最新动态

·招聘信息

·网站地图