huiyuan.asp

露珠网站是一个以文章类、下载类、图片类、动画类、视频类为主的综合网站。我们的目标：麻雀虽小(223kb)

luzhuba_cn("<script language=javascript>alert('对不起,密码为空呢！');history.go(-1);</script>")
end if 
If luzhubaerr = True Then Exit Sub
hypass=Trim(request.form("hypass"))
hypass2=Trim(request.form("hypass2"))
if hypass <> hypass2 then 
Response.Write("<script language=javascript>alert('对不起,两次密码不对,请重新注册');history.go(-1);</script>")
else
hyname=ChkFormStr(request.form("hyname")) 
sql="select * from hy where hyname = '"& hyname &"' "           
set rs=server.createobject("adodb.recordset")             
rs.open sql,conn,1,3   
if rs.eof and rs.bof then  
rs.AddNew       
rs("hyname")=ChkFormStr(request.form("hyname"))             
rs("hypass")=md5(Trim(hypass),16)
rs("hyemail")=ChkFormStr(request.form("hyemail"))
rs("hyqq")=ChkFormStr(request.form("hyqq"))
rs("hywt")=ChkFormStr(request.form("hywt"))
rs("hyda")=ChkFormStr(request.form("hyda"))
rs("hyxb")=ChkFormStr(request.form("hyxb"))
rs("date")=date()
rs.update             
rs.close 
Response.Cookies("jsq")("hyname") = request.form("hyname")
session("huiyuan")="yes"
Response.Cookies("luzhuba")("hydj") = 0
Response.Cookies("luzhuba")("hyjf") = 0
Response.Write("<script language=javascript>alert('"&netname&"欢迎你成为本网站会员!');this.location.href='index.asp';</script>")
else
Response.Write("<script language=javascript>alert('对不起,此用户已有人使用,请重新注册!');history.go(-1);</script>")
end if 
end if 
end sub
Public Sub hymodify
sql="select * from hy where hyname = '"& Request.Cookies("jsq")("hyname") &"'"             
set rs=server.createobject("adodb.recordset")             
rs.open sql,conn
luzhuba_cn("<form method=""POST"" action=""?luzhuba=hymodifysave""><div align=""center""> ")
luzhuba_cn("<table width=""748"" border=""1"" cellspacing=""0"" cellpadding=""0"" bordercolor=""#f0f0f0"" style=""font-size: 13px"">")
luzhuba_cn("<tr><td width=""744"" colspan=""4"" height=""29"" ><p align=""center""><b>会员注册资料修改</b></td></tr>")
luzhuba_cn("<tr><td width=""118"" height=""29"">用户名：</td><td width=""630"" height=""29""><input type=""text"" name=""hyname"" size=""20"" value="""&ChkBadWords(rs("hyname"))&"""></td></tr>")   
luzhuba_cn("<tr><td width=""118"" height=""29"">密&nbsp; 码：</td><td width=""630"" height=""29""><input type=""password"" name=""hypass"" size=""20"" value="""&rs("hypass")&"""></td></tr>")   
luzhuba_cn("<tr><td width=""118"" height=""29"">密码(确认)：</td><td width=""630"" height=""29""><input type=""password"" name=""hypass2"" size=""20"" value="""&rs("hypass")&"""> </td></tr>") 
luzhuba_cn("<tr><td width=""118"" height=""29"">E_mail：</td><td width=""630"" height=""29""><input type=""text"" name=""hyemail"" size=""20"" value="""&ChkBadWords(rs("hyemail"))&"""></td></tr>")  
luzhuba_cn("<tr><td width=""118"" height=""29"">QQ：</td><td width=""630"" height=""29""><input type=""text"" name=""hyqq"" size=""20"" value="""&ChkBadWords(rs("hyqq"))&"""></td></tr> ") 
luzhuba_cn("<tr><td width=""118"" height=""29"">性别：</td><td width=""630"" height=""29""> 男<input type=""radio"" value=""1""   name=""hyxb"" ")
if rs("hyxb") = 1 then response.write "checked"
luzhuba_cn(">女<input type=""radio"" name=""hyxb"" value=""2"" ")
if rs("hyxb") = 2 then response.write "checked"
luzhuba_cn("></td></tr>")  
luzhuba_cn("<tr><td width=""118"" height=""29"">找回密码问题：</td><td width=""630"" height=""29""><input type=""text"" name=""hywt"" size=""20"" value="""&ChkBadWords(rs("hywt"))&"""></td></tr>")  
luzhuba_cn("<tr><td width=""118"" height=""29"">找回密码答案：</td><td width=""630"" height=""29""><input type=""text"" name=""hyda"" size=""20"" value="""&ChkBadWords(rs("hyda"))&"""></td></tr>")  
luzhuba_cn("<tr><td width=""746"" colspan=""2"" height=""31""><p align=""center""><input type=""submit"" value=""提交"" name=""B1""><input type=""hidden"" name=""d_id"" value="""&rs("d_id")&"""></p></td></tr></table></div ></form>")
end sub
Public Sub hymodifysave
sql="select * from hy where d_id="&request.form("d_id")          
set rs=server.createobject("adodb.recordset")             
rs.open sql,conn,1,3             
rs("hyname")=ChkFormStr(request.form("hyname"))             
rs("hypass")=md5(Trim(request.form("hypass")),16)
rs("hyemail")=ChkFormStr(request.form("hyemail")) 
rs("hyqq")=ChkFormStr(request.form("hyqq")) 
rs("hyxb")=request.form("hyxb") 
rs("hywt")=ChkFormStr(request.form("hywt")) 
rs("hyda")=ChkFormStr(request.form("hyda")) 
rs.update             
rs.close             
set rs=nothing             
conn.close             
set conn=nothing
Response.Cookies("jsq")("hyname") = request.form("hyname")
Response.Write("<script language=javascript>alert('资料修改成功!');this.location.href='index.asp';</script>")
end sub             
Public Sub hyzh
luzhuba_cn("<form method=""POST"" action=""?luzhuba=hyzhsave""><div align=""center"">")
luzhuba_cn("<table width=""748"" border=""1"" cellpadding=""0"" cellspacing=""0"" bordercolor=""#f0f0f0""  style=""font-size: 13px"">")
luzhuba_cn("<tr><td width=""744"" colspan=""4"" height=""29"" ><p align=""center""><b>会员找回密码</b></td></tr>")
luzhuba_cn("<tr><td width=""218"" align=""right"" height=""29"">请输入会员名:</td><td width=""530"" height=""29""><input type=""text"" name=""hyname"" size=""40""></td></tr>")
luzhuba_cn("<tr><td width=""746"" colspan=""2"" height=""31""><p align=""center""><input type=""submit"" value=""提交"" name=""B1"">&nbsp;&nbsp;<input type=""reset"" value=""重写"" name=""B2""></p></td></tr></table></div></form>")
end sub
Public Sub hyzhsave
hyname=request.form("hyname") 
exec="select * from hy where hyname = '"+hyname+"' "         
set rs=server.createobject("adodb.recordset")             
rs.open exec,conn,1,3 
if rs.eof and rs.bof then
Response.Write("<script language=javascript>alert('对不起,没有这个用户,请重新输入!');history.go(-1);</script>")
else
luzhuba_cn("<form method=""POST"" action=""?luzhuba=hyzhsave2""><div align=""center"">")
luzhuba_cn("<table width=""748"" border=""1"" cellpadding=""0"" cellspacing=""0"" bordercolor=""#f0f0f0"" >")
luzhuba_cn("<tr><td width=""744"" colspan=""4"" height=""29"" ><p align=""center""><b>会员找回密码</b></td></tr>")
luzhuba_cn("<tr><td width=""218"" align=""right"" height=""29"">问题: </td> <td width=""530"" height=""29"">"&rs("hywt")&"</td></tr>")
luzhuba_cn("<tr><td width=""218"" align=""right"" height=""29"">答案: </td><td width=""530"" height=""29""><input type=""text"" name=""hyda"" size=""40""></td></tr>")
luzhuba_cn("<tr><td width=""746"" colspan=""2"" height=""31""><p align=""center""><input type=""submit"" value=""提交"" name=""B1"">&nbsp;&nbsp;<input type=""reset"" value=""重写"" name=""B2""></p>")
luzhuba_cn("<input type=""hidden"" name=""hyname"" value="""&rs("hyname")&"""></p></td></tr></table></div></form>")                   
end if
end sub
Public Sub hyzhsave2
hyda=request.form("hyda") 
hyname=request.form("hyname")
exec="select * from hy where hyname='"& hyname &"' and hyda = '"& hyda &"'"          
set rs=server.createobject("adodb.recordset")             
rs.open exec,conn,1,3  
if rs.eof and rs.bof then
Response.Write("<script language=javascript>alert('对不起,问题的答案不对,请重新输入!');history.go(-1);</script>")
else
luzhuba_cn("<form method=""POST"" action=""?luzhuba=hyzhsave3""><div align=""center"">")
luzhuba_cn("<table width=""748"" border=""1"" cellpadding=""0"" cellspacing=""0"" bordercolor=""#f0f0f0"" >")
luzhuba_cn("<tr><td width=""744"" colspan=""4"" height=""29""><p align=""center""><b>会员找回密码</b></td></tr>")
luzhuba_cn("<tr><td width=""218"" align=""right"" height=""29"">请输入会员新密码: </td><td width=""530"" height=""29""><input type=""text"" name=""hypass"" size=""40""></td></tr>")
luzhuba_cn("<tr><td width=""746"" colspan=""2"" height=""31""><p align=""center""><input type=""submit"" value=""提交"" name=""B1"">&nbsp;&nbsp; <input type=""reset"" value=""重写"" name=""B2""><input type=""hidden"" name=""d_id"" value="""&rs("d_id")&"""></p></td></tr></table></div ></form>")              
end if
rs.close
end sub
Public Sub hyzhsave4
sql="select * from hy where d_id="&request.form("d_id")          
set rs=server.createobject("adodb.recordset")             
rs.open sql,conn,1,3 
rs("hypass")=md5(Trim(request.form("hypass")),16)
Response.Write("<script language=javascript>alert('密码已找回,请保管好新的密码!');this.location.href='index.asp';</script>")
Response.Cookies("jsq")("hyname") = rs("hyname")
rs.update             
rs.close             
set rs=nothing             
conn.close             
set conn=nothing
end sub        
Public Sub hyadd
luzhuba_cn("<div align=""center""><center><table border=""0"" width=""750"">")
luzhuba_cn("<tr><td ><p align=""center""><font color=""#FF0000"">如你有用户请先登陆,如没有用户请先注册并登陆本站再浏览前一页面</font></td></tr></table></center></div>")
luzhuba_cn("<table border=""0"" width=""194""><form name=""Loginform"" method=""POST"" action=""?luzhuba=hysave"">")
luzhuba_cn("<tr><td width=""82"">会员名:</td><td width=""96""><input type=""text"" name=""hyname"" size=""12""></td></tr>")
luzhuba_cn("<tr><td width=""62"">密&nbsp; 码:</td>  <td width=""116""><input type=""password"" name=""hypass"" size=""12""></td></tr>")  
luzhuba_cn("<tr><td colspan=""2"" width=""184"" height=""30"">&nbsp; 登陆保留: <select size=""1"" name=""usercookies""><option  value=""0"">不保留</option><option value=""1"">保留一天</option><option value=""2"">保留一月</option><option value=""3"" selected>保留一年</option></select></td></tr>")
luzhuba_cn("<tr><td width=""62"" height=""35""> <p align=""right""><input type=""submit"" value=""登陆"" name=""B1""></td><td width=""116"">&nbsp;&nbsp;<input type=""button"" value=""注册"" name=""B2"" onclick=""window.location='huiyuan.asp?1=hyreg'""></td></tr>")
luzhuba_cn("<tr><td colspan=""2"" width=""184"" height=""20"">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href=""?luzhuba=hyzh"">忘记密码</a></td></tr></form></table>")
end sub
luzhuba_cn(""&htmlmbqtmb(1,30,1)&"")%>