default.asp

重写了全部代码

		Set Rs=Nothing
	Else
		If IsValidEmail Then 
			Tomail=Title
			Title="通过"&WebSiteName&"发来的邮件"
		Else
			Response.Write(PPWrite("不指定保存账号，标题也不是邮箱地址<br />你到底想干什么？",""))
		End If
	End If
	If Request.Form("Submit")="发送到邮箱" Then
		If SmtpServer="" or SmtpUser="" or SmtpPwd="" or SmtpEmail="" Then
			Response.Write(PPWrite("系统尚未配置好PPConn.asp邮件发送参数","?"))
			Response.End()
		End If
		Result=PPMail(ToMail,Title,Content,MyName,MyMail)
		If Result="ok" Then
			Response.Write(PPWrite("保存到邮箱("&ToMail&")成功","?"))
		ElseIf Result="err" Then
			Response.Write(PPWrite("保存到邮箱失败<br />请检查你的邮箱是否正确填写<br />请尝试重新发送",""))
		Else
			Response.Write(PPWrite("服务器空间没有安装Jmail组件<br />无法使用保存到邮箱功能",""))
		End If
	Else
		If ID="" Then
			SQL="Select * From [PPNoteBook] Where [Title]='"&Subject&"' and [Content]='"&Content&"' and ID="&UserID
			Set Rs=PPConn.Execute(SQL)
			If Rs.bof or Rs.eof Then
				PPConn.Execute("Insert into [PPNoteBook] ([UserID],[Title],[Content],[IsHide],[WriteTime]) values ('"&UserID&"','"&Title&"','"&Content&"',"&IsHide&",'"&Now&"')")
				Response.Redirect("?"&UserID)
			Else
				Response.Write(PPWrite("您已经有一篇标题和内容一样的信息了",""))
				Response.End()
			End If
		Else
			If User<>"" Then
				PPConn.Execute("Update [PPNoteBook] set [Title]='"&Title&"',[Content]='"&Content&"',[IsHide]="&IsHide&" Where UserID="&PPNB(0))&" and ID="&ID
				Response.Redirect(Request.Form("FromURL"))
			Else
				Response.Write(PPWrite("登录后才可以修改自己的信息",""))
				Response.End()
			End If
		End If
	End If
End If

If Action="IsHide" Then
	If User="" Then
		Response.Write(PPWrite("你必须登陆后才能进行此操作",""))
	Else
		PPConn.Execute("Update [PPNoteBook] set [IsHide]=(([IsHide]+1) mod 2) Where ID="&Request.QueryString("ID")&" and UserID="&PPNB(0))
		Response.Redirect(Request.ServerVariables("HTTP_REFERER"))
	End If
End If
If Action="Delete" Then
	If User="" Then
		Response.Write(PPWrite("你必须登陆后才能进行此操作",""))
	Else
		PPConn.Execute("Delete From [PPNoteBook] Where ID="&Request.QueryString("ID")&" and UserID="&PPNB(0))
		Response.Redirect(Request.ServerVariables("HTTP_REFERER"))
	End If
End If
If Action="Reg" Then
	UserName=Request.Form("UserName")
	Password=Request.Form("Password")
	RePassword=Request.Form("RePassword")
	Email=Request.Form("Email")
	PPConn.Execute("Insert into [PPNBUser] ([NBUserName],[NBPassword],[Email],[UserLevel],[RegTime]) values ('"&UserName&"','"&mD5(Password)&"','"&Email&"',0,'"&Now&"')")
	Response.Write(PPWrite("恭喜注册成功注册成功！<br />点击下面的按钮马上登录","?"))
End If
If Action="RegCheck" Then
	Response.Clear()
	UserName=Request.QueryString("UserName")
	SQL="Select * From [PPNBUser] Where [NBUserName]='"&UserName&"'"
	Set Rs=PPConn.Execute(SQL)
	If Rs.bof or Rs.eof Then
		Response.Write("yes")
	Else
		Response.Write("no")
	End If
	Set Rs=Nothing
	Response.End()
End If
If Action="Login" Then
	UserName=Request.Form("UserName")
	Password=Md5(Request.Form("Password"))
	If IsNumeric(UserName) Then
		SQL="Select * From [PPNBUser] Where [ID]="&UserName
	Else
		SQL="Select * From [PPNBUser] Where [NBUserName]='"&UserName&"'"
	End If
	Set Rs=PPConn.Execute(SQL)
	If Rs.bof or Rs.eof Then
		Response.Write(PPWrite("没有该""用户名/ID""",""))
	Else
		If Password<>Rs("NBPassword") Then
			Response.Write(PPWrite("密码错误...",""))
		Else
			Response.Cookies("PPNB")("User")=Rs("ID")&"|"&Rs("NBUserName")&"|"&Rs("Email")
			Response.Redirect("?")
		End If
	End If
	Set Rs=Nothing
End If
If Action="Change" Then
	If User="" Then
		Response.Write(PPWrite("你必须登陆后才能进行此操作",""))
	Else
		PPNB(2)=Request.Form("Email")
		SQL="Update [PPNBUser] set [NBPassword]='"&Md5(Request.Form("Password"))&"',[Email]='"&PPNB(2)&"' Where ID="&PPNB(0)
		PPConn.Execute(SQL)
		Response.Cookies("PPNB")("User")=PPNB(0)&"|"&PPNB(1)&"|"&PPNB(2)
		Response.Redirect("?")
	End If
End If
If Action="GetPassword" Then
	SQL="Select * From [PPNBUser] Where [Email]='"&Request.Form("Email")&"'"
	Set Rs=PPConn.Execute(SQL)
	If Rs.bof or Rs.eof Then
		Response.Write(PPWrite("没有用该邮箱注册的用户...",""))
	Else
		TempCode=Md5("Kevin"&PPRndNum(10000,99999))
		CheckCode=Md5(Replace(Rs("RegTime")," ","")&Date())&TempCode
		Content="<br /><br />尊敬的用户 "&Rs("NBUserName")&" 你好！<br /><br />　　你于 "&Now()&" 使用了记事本密码找回功能，请点击下面的连接即可进入记事本密码重置界面。<br /><br /><a href=""http://"&Request.ServerVariables("HTTP_HOST")&""&Request.ServerVariables("SCRIPT_NAME")&"?Action=Password&UserID="&Rs("ID")&"&CheckCode="&CheckCode&""" target=""_blank"">http://"&Request.ServerVariables("HTTP_HOST")&""&Request.ServerVariables("SCRIPT_NAME")&"?Action=Password&UserID="&Rs("ID")&"&CheckCode="&CheckCode&"</a><br /><br />如果上面的连接无法打开，请复制该连接，粘贴到浏览器地址栏里，回车即可进入记事本密码重置界面<br /><br />此连接只当天有效，一次性使用，过期或使用后自动作废<br /><br /><br /><br /><br />"&WebSiteName&"<br />Powered by <a title=""爬爬思特工作室"" href=""Http://www.papasite.net"" target=""_blank"">Papasite.Net</a>"
		Result=PPMail(Rs("Email"),"您的记事本密码",Content,"爬爬",MyMail)
		If Result="ok" Then
			Response.Write(PPWrite("你的密码已经成功发送到邮箱成功",""))
			PPConn.Execute("Update [PPNBUser] set [CheckCode]='"&TempCode&"' Where ID="&Rs("ID"))
		ElseIf Result="err" Then
			Response.Write(PPWrite("密码未能成功发送到邮箱<br />请尝试重新发送",""))
		Else
			Response.Write(PPWrite("服务器空间没有安装Jmail组件<br />无法使用邮箱找回密码功能",""))
		End If
	End If
	Set Rs=Nothing
End If
If Action="Password" Then
	UserID=Request.QueryString("UserID")
	SQL="Select * From [PPNBUser] Where [ID]="&UserID
	Set Rs=PPConn.Execute(SQL)
	If Rs.bof or Rs.eof Then
		Response.Write(PPWrite("没有用该用户...",""))
	Else
		If Md5(Replace(Rs("RegTime")," ","")&Date())&Rs("CheckCode")=Request.QueryString("CheckCode") Then
			RndNum=PPRndNum(10000,99999)
			PPConn.Execute("Update [PPNBUser] set [NBPassword]='"&Md5(RndNum)&"',[CheckCode]='"&PPRndNum(10000,99999)&"' Where ID="&UserID)
			Response.Write(PPWrite("你的密码已经重置为 "&RndNum&"<br />请记牢或登录后更改","?"))
		Else
			Response.Write(PPWrite("该链接已经失效，请重新使用取回密码功能<br />请记牢或登录后更改","?"))
		End If
	End If
End If
If Action="Logout" Then
	Response.Cookies("PPNB")("User")=""
	Response.Redirect("?")
End If
%>
</body>
</html>