<% dim rs , exec %>

用户注册

<% main() connclose() sub main() dim backInput, homeInput backInput= " " homeInput=" " if request.form="" then %> 用 户 名： 密 　 码： 性　　别： 男 女 （已注册用户不用填） 头　　像： " border=0 id="faceImg"> 电子邮件： 　 QQ 　： 　 ICQ  ： 　 MSN  ： 主页地址： <% else dim name, pass, male,face,email,qq,url,icq,msn name=Encodestr(request.form("name")) pass=Encodestr(request.form("pass")) male=Encodestr(request.form("male")) face=Encodestr(request.form("face")) email=Encodestr(request.form("email")) qq=Encodestr(request.form("qq")) url=Encodestr(request.form("url")) icq=Encodestr(request.form("icq")) msn=Encodestr(request.form("msn")) if name="" or pass="" then response.write "发生错误 请输入用户名和密码！！！" response.write backInput exit sub 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 rsclose() response.write "发生错误 该用户名已被注册，请选择其它用户名！！！" response.write backInput exit sub 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 rsclose() response.write "注册成功！！！" response.write homeInput response.cookies("gbook")("username")=vbescape(name) response.cookies("gbook")("password")=pass end if end sub %>