ASP会员注册代码

【2006年01月09日 16:10:37】　【阅读：次】　【字体：大中小默认】　【背景： #换背景

】

<%
sub add()
  dim rs,name, pass, male,face,email,qq,url,icq,msn
  name=request.form("name")
  pass=request.form("pass")
  passs=request.form("passs")
  male=request.form("male")
  face=request.form("face")
  email=request.form("email")
  qq=request.form("qq")
  url=request.form("url")
  icq=request.form("icq")
  msn=request.form("msn")

  if pass<>passs then
    response.write "<script language=JavaScript>" & chr(13) & "alert(密码不同);" & "history.back()" & ""
    response.end()
else
  if name="" or pass="" then
        response.write "<script language=JavaScript>" & chr(13) & "alert(*号心须添写);" & "history.back()" & ""
        response.end()
  end if
  email
  if not validEmail(email) then
  response.write "<script language=JavaScript>" & chr(13) & "alert(请输入正确的email地址！！！);" & "history.back()" & ""
        response.end()
  end if
  密码
  pass=MD5(pass)

  exec="select * from [user] where username="&name&" "
  set rs=server.createobject("adodb.recordset")
  rs.open exec,conn,1,3
  if not (rs.eof and rs.bof) then
  response.write "<script language=JavaScript>" & chr(13) & "alert(该帐号已被占用,请更换其它帐号);" & "history.back()" & ""
        response.end()
  end if
  end if

  rs.Addnew
  rs("username")=name
  rs("userpassword")=pass
  rs("sex")=male
  rs("GBface")=face
  rs("useremail")=email
  rs("oicq")=qq
  rs("icq")=icq
  rs("msn")=msn
  rs("homepage")=url
  rs("GBpostNum")=0
  rs("GBprivateNum")=0
  rs("addDate")=now

  rs.update
  response.write "<script language=JavaScript>" & chr(13) & "alert(恭喜您!注册成功！);" & "window.location.href(main.asp);" & ""

end sub
%>

(『印像空间』　【本文来源：『学习笔记』】　【作者：未知】　【录入：留印】)

点击查看

已有条评论

关键字：

搜索条件：