<%cz=request("cz") mm=request("mm") fzr=request("fzr") yhm=request("yhm") qm=request("qm") aqwt=request("aqwt") aqda=request("aqda") sex=request("sex") lxfs=request("lxfs") syhm = session(sessionvalue + "yhm") if cz="zccg" and mm<>"" and yhm<>"" then ''判断是否重复 set rs=server.createobject("adodb.recordset") exec="select * from yrwl_tb_admin where yhm='"+yhm+"'" rs.open exec,conn,3,1 if rs.eof then vid = replace(cstr(date),"-","")+replace(cstr(timer()),".","") exec="insert into yrwl_tb_admin (yhm,pass,lxfs,jb,qm,sj,zhsj,aqwt,aqda,sex) values ('"+yhm+"','"+md5(mm)+"','"+lxfs+"','0','"+qm+"','"+jdsj+"','"+jdsj+"','"&aqwt&"','"&aqda&"','"&sex&"')" conn.execute exec conn.close if lxfs <> "" and instr(lxfs,"@")>0 then title = "恭喜您，注册微论坛成功。" ''发送的主题 content = "恭喜您，注册微论坛成功。
您的用户名为："+yhm+"
密码为："+mm+"
欢迎您常光临微论坛。" ''邮件内容 response.write "" end if session(sessionvalue + "yhm") = yhm session(sessionvalue + "lxfs") = lxfs session(sessionvalue + "qm") = qm session(sessionvalue + "jb") = "0"%> <%else%> <%end if else response.redirect "reg.htm" end if%>