huiyuan.asp

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

<!--#include file="luzhuba.asp"-->

<%'luzhuba_cn(""&htmlmbqtmb(1,29,1)&"")
luzhuba_cn(""&htmlmbqtmb(1,37,1)&"")
Server.ScriptTimeOut=99999
select case request("luzhuba")
case "":hysave()
case "hysave":hysave()
case "logout":logout()
case "hyreg":hyreg()
case "hyreg1":hyreg1()
case "hyaddsave":hyaddsave()
case "hymodify":hymodify()
case "hymodifysave":hymodifysave()
case "hyzh":hyzh()
case "hyzhsave":hyzhsave()
case "hyzhsave2":hyzhsave2()
case "hyzhsave3":hyzhsave3()
case "hyzhsave4":hyzhsave4()
case "hyadd":hyadd()




end select
Public Sub  hysave
if request.form("hyname")="" then
luzhubaErr = True
luzhuba_cn("<script language=javascript>alert('对不起,会员为空呢！');history.go(-1);</script>")
end if
If luzhubaerr = True Then Exit Sub
usercookies = Request("usercookies")
hyname=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
Response.Write("<script language=javascript>alert('对不起,没有这个用户,请重新注册！');this.location.href='?luzhuba=hyreg';</script>")
else
if  rs("hypass")=md5(Trim(request.form("hypass")),16)    then
select case usercookies
case 0
Response.Cookies("jsq")("usercookies") = usercookies
case 1
Response.Cookies("jsq").Expires=Date+1
Response.Cookies("jsq")("usercookies") = usercookies
case 2
Response.Cookies("jsq").Expires=Date+31
Response.Cookies("jsq")("usercookies") = usercookies
case 3
Response.Cookies("jsq").Expires=Date+365
Response.Cookies("jsq")("usercookies") = usercookies
end select
Response.Cookies("jsq")("hyname") = ChkBadWords(rs("hyname"))
Response.Cookies("luzhuba")("hydj") = rs("hydj")
Response.Cookies("luzhuba")("hyjf") = rs("hyjf")
session("huiyuan")="yes"
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
rs.close             
set rs=nothing             
conn.close             
set conn=nothing 
end sub
Public Sub  logout
Response.Cookies("jsq")("hyname")=""
Response.Cookies("jsq")("hypass")=""
Response.Cookies("jsq")("usercookies")=""
session("huiyuan")="no"
response.redirect("index.asp")
end sub
Public Sub hyreg
luzhuba_cn("<table border=""0"" width=""758""><form name=""bbrules"" >")
luzhuba_cn("<br><div align=""center""><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"" >")
luzhuba_cn("<p align=""center""><b>服务条款和声明</b></td></tr>")
luzhuba_cn("<tr><td height=""29"">&nbsp;&nbsp;&nbsp;&nbsp;为维护网上公共秩序和社会稳定，请您自觉遵守以下条款：</td></tr>")
luzhuba_cn("<tr><td height=""29"">&nbsp;&nbsp;&nbsp;&nbsp;一、不得利用本站危害国家安全、泄露国家秘密，不得侵犯国家社会集体的和公民的合法权益，不得利用本站制作、复制和传播下列信息：</p>")
luzhuba_cn("<tr><td height=""29"">&nbsp;&nbsp;&nbsp;&nbsp;（一）煽动抗拒、破坏宪法和法律、行政法规实施的；</td></tr>")
luzhuba_cn("<tr><td height=""29"">&nbsp;&nbsp;&nbsp;&nbsp;（二）煽动颠覆国家政权，推翻社会主义制度的；</td></tr>")
luzhuba_cn("<tr><td height=""29"">&nbsp;&nbsp;&nbsp;&nbsp;（三）煽动分裂国家、破坏国家统一的；</td></tr>")
luzhuba_cn("<tr><td height=""29"">&nbsp;&nbsp;&nbsp;&nbsp;（四）煽动民族仇恨、民族歧视，破坏民族团结的；</td></tr>")
luzhuba_cn("<tr><td height=""29"">&nbsp;&nbsp;&nbsp;&nbsp;（五）捏造或者歪曲事实，散布谣言，扰乱社会秩序的；</td></tr>")
luzhuba_cn("<tr><td height=""29"">&nbsp;&nbsp;&nbsp;&nbsp;（六）宣扬封建迷信、淫秽、色情、赌博、暴力、凶杀、恐怖、教唆犯罪的；</td></tr>")
luzhuba_cn("<tr><td height=""29"">&nbsp;&nbsp;&nbsp;&nbsp;（七）公然侮辱他人或者捏造事实诽谤他人的，或者进行其他恶意攻击的；</td></tr>")
luzhuba_cn("<tr><td height=""29"">&nbsp;&nbsp;&nbsp;&nbsp;（八）损害国家机关信誉的；</td></tr>")
luzhuba_cn("<tr><td>&nbsp;&nbsp;&nbsp;&nbsp;（九）其他违反宪法和法律行政法规的；</td></tr>")
luzhuba_cn("<tr><td height=""29"">&nbsp;&nbsp;&nbsp;&nbsp;（十）进行商业广告行为的。</td></tr>")
luzhuba_cn("<tr><td height=""29"">&nbsp;&nbsp;&nbsp;&nbsp;二、互相尊重，对自己的言论和行为负责。</td></tr>")
luzhuba_cn("<tr><td>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ")
luzhuba_cn("<input type=""button""  name=""rulesubmit"" onclick=""javascript:window.location.href='?luzhuba=hyreg1';"">&nbsp;&nbsp;&nbsp; <input type=""button"" value=""不同意"" name=""B2"" onclick=""javascript:window.location.href='index.asp';""></td></tr>")
luzhuba_cn("</table></div ></form>")
luzhuba_cn("<script language=""javascript"">")
luzhuba_cn("var secs = 9;")
luzhuba_cn("var wait = secs * 1000;")
luzhuba_cn("document.bbrules.rulesubmit.value = ""同 意("" + secs + "")"";")
luzhuba_cn("document.bbrules.rulesubmit.disabled = true;")
luzhuba_cn("for(i = 1; i <= secs; i++) {")
luzhuba_cn("window.setTimeout(""update("" + i + "")"", i * 1000);")
luzhuba_cn("}")
luzhuba_cn("window.setTimeout(""timer()"", wait); ")
luzhuba_cn("function update(num, value) {")
luzhuba_cn("if(num == (wait/1000)) {")
luzhuba_cn("document.bbrules.rulesubmit.value = ""同 意"";")
luzhuba_cn("} else {")
luzhuba_cn("printnr = (wait / 1000)-num;")
luzhuba_cn("document.bbrules.rulesubmit.value = ""同 意("" + printnr + "")"";")
luzhuba_cn("}}")
luzhuba_cn("function timer() {")
luzhuba_cn("document.bbrules.rulesubmit.disabled = false;")
luzhuba_cn("document.bbrules.rulesubmit.value = ""同 意"";")
luzhuba_cn("}")
luzhuba_cn("</script>")
end sub
Public Sub hyreg1
luzhuba_cn("<form method=""POST"" action=""?luzhuba=hyaddsave"">")
luzhuba_cn("<div align=""center""><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=""118"" height=""29"">用户名： </td> <td width=""630"" height=""29""><input type=""text"" name=""hyname"" size=""20""></td></tr> ")                  
luzhuba_cn("<tr><td width=""118"" height=""29"">密&nbsp; 码：</td><td width=""630"" height=""29""><input type=""password"" name=""hypass"" size=""21""></td></tr>")   
luzhuba_cn("<tr><td width=""118"" height=""29"">密码(确认)：</td><td width=""630"" height=""29""><input type=""password"" name=""hypass2"" size=""21""></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""></td></tr> ") 
luzhuba_cn("<tr><td width=""118"" height=""29"">QQ：</td><td width=""630"" height=""29""><input type=""text"" name=""hyqq"" size=""20""></td></tr>")  
luzhuba_cn("<tr><td width=""118"" height=""29"">性别：</td><td width=""630"" height=""29"">男<input type=""radio"" value=""1"" checked name=""hyxb"">女<input type=""radio"" name=""hyxb"" value=""2""></td></tr>")  
luzhuba_cn("<tr><td width=""118"" height=""29"">找回密码问题：</td><td width=""630"" height=""29""><input type=""text"" name=""hywt"" size=""20""></td></tr>")  
luzhuba_cn("<tr><td width=""118"" height=""29"">找回密码答案： </td><td width=""630"" height=""29""><input type=""text"" name=""hyda"" size=""20""></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>") 
luzhuba_cn("</table></div></form>")
end sub
Public Sub hyaddsave
if ChkFormStr(request.form("hyname"))="" then
luzhubaErr = True
luzhuba_cn("<script language=javascript>alert('对不起,会员帐号为空呢！');history.go(-1);</script>")
end if 
if request.form("hypass")="" then
luzhubaErr = True