user_save.asp

小说站源代码文件

<!-- #include file="conn.asp" --><!--#include file="inc/config.asp"--><!--#include file="inc/md5.asp"-->
<%UserID=CheckSql(request.cookies("CnEndWeb_User")("log_UserID"))
UserName=CheckSql(request.cookies("CnEndWeb_User")("log_UserName"))
If UserName="" or UserID="" or IsNull(UserID) Then
	Response.Write ("<script>alert(' CnEndWeb（终点）提醒： \n\n 可能您还没有登陆或者登陆超时 \n\n 如果您没有成为会员请先进行会员注册 \n\n 如果您已经是注册会员请重新登陆 ');history.back();</script>")
	Response.End
End If
set rsu=server.createobject("adodb.recordset")
sql="select ID,Name,LockUser,GOGXuser from Userinfo where ID="&UserID&""
rsu.open sql,conn,1,1
if rsu.eof and rsu.bof then
	Response.Write ("<script>alert(' CnEndWeb（终点）提醒： \n\n 用户不存在。');history.back();</script>")
	Response.end
End If
if rsu("LockUser")=1 then
	Response.Write ("<script>alert(' CnEndWeb（终点）提醒： \n\n 用户被锁定。');history.back();</script>")
	Response.end
End If
GOGXuser=rsu("GOGXuser")
UserID=rsu("ID")
UserName=rsu("Name")
rsu.close
set rsu=nothing

Select Case request.querystring("info")
	Case "profile"
		Call profile()
	Case "commentcll"
		Call commentcll()
	Case "commentdel"
		Call commentdel()
	Case "change"
		Call change()
	Case "change1"
		Call change1()
	Case "change2"
		Call change2()
	Case "change3"
		Call change3()
	Case "change4"
		Call change4()
	Case "boxaddbook"
		Call boxaddbook()
	Case "boxaddview"
		Call boxaddview()
	Case "boxdelbook"
		Call boxdelbook()
	Case "pmdel"
		Call pmdel()
	Case "jianbook"
		Call jianbook()
	Case "jianArticle"
		Call jianArticle()
	Case "gxuser"
		Call gxuser()
	Case "gbook"
		Call gbook()
end select 

Sub profile()
oldpassword=trim(request("oldpassword"))
newpassword1=trim(request("newpassword1"))
newpassword2=trim(request("newpassword2"))
Usermail=trim(Request.Form("email"))
Usermail2=trim(Request.Form("email2"))
homepage=trim(Request.Form("homepage"))
QQ=trim(Request.Form("QQ"))
MSN=trim(Request.Form("MSN"))
address=trim(Request.Form("address"))
tel=trim(Request.Form("tel"))
zip=trim(Request.Form("zip"))
usersex=trim(Request("usersex"))
if oldpassword="" or strLength(oldpassword)>18 or strLength(oldpassword)<6 then
	founderr=true
	errmsg=errmsg & "<br><li>请输入旧的登陆密码！(不能大于18小于6)</li>"
end if
if newpassword1<>"" and newpassword2<>"" then
	if strLength(newpassword1)>18 or strLength(newpassword1)<6 then
		founderr=true
		errmsg=errmsg & "<br><li>请输入新的登陆密码！(不能大于18小于6)</li>"
	else
		if Instr(newpassword1,"=")>0 or Instr(newpassword1,"%")>0 or Instr(newpassword1,chr(32))>0 or Instr(newpassword1,"?")>0 or Instr(newpassword1,"&")>0 or Instr(newpassword1,";")>0 or Instr(newpassword1,",")>0 or Instr(newpassword1,"'")>0 or Instr(newpassword1,",")>0 or Instr(newpassword1,chr(34))>0 or Instr(newpassword1,chr(9))>0 or Instr(newpassword1,"