user_save.asp

功能介绍： 一、会员功能模块 1、站内短信发布(设计中) 2、书架收藏夹 3、发表评论(功能不完善) 4、申请作家(与添书员整合) 5、申请添书员(与作家整合) 6、申请更新员

<!-- #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,"