user_modpost.asp

本源代码为终点小说连载系统 v1.15 Build 0430 SQL清风修改版,欢迎大家下载,学习与交流

<%
dim Question1,Answer1,Question2,Answer2,Usermail,Usermail2,usersex,homepage,QQ,msn,address,tel,zip
UserID=session("UserID")
UserName=session("UserName")
If UserName="" or UserID="" or IsNull(WordID) Then
	Response.Write ("<script>alert(' 操作错误 \n\n 可能您还没有登陆或者登陆超时 \n\n 如果您没有成为会员请先进行会员注册 \n\n 如果您已经是注册会员请重新登陆 ');location.href='userlog_login.asp';</script>")
	Response.End
End If
Usermail=trim(Request.Form("email"))
Usermail2=trim(Request.Form("email2"))
Question1=trim(Request.Form("Question1"))
Answer1=trim(Request.Form("Answer1"))
Question2=trim(Request.Form("Question2"))
Answer2=trim(Request.Form("Answer2"))
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 Question1="" then
	founderr=1
	errmsg=errmsg & "<br><li>密码提示问题不能为空！</li>"
end if
if strLength(Question1)>30 or strLength(Question1)<6 then
	founderr=1
	errmsg=errmsg & "<br><li>密码提示问题不能大于30小于6</li>"
end if
if Answer1="" then
	founderr=1
	errmsg=errmsg & "<br><li>提示问题答案不能为空！</li>"
end if
if strLength(Answer1)>20 or strLength(Answer1)<6 then
	founderr=1
	errmsg=errmsg & "<br><li>提示问题答案不能大于20小于6</li>"
end if
if Question2="" then
	founderr=1
	errmsg=errmsg & "<br><li>密码提示问题不能为空！</li>"
end if
if strLength(Question2)>30 or strLength(Question2)<6 then
	founderr=1
	errmsg=errmsg & "<br><li>密码提示问题不能大于30小于6</li>"
end if
if Answer2="" then
	founderr=1
	errmsg=errmsg & "<br><li>提示问题答案不能为空！</li>"
end if
if strLength(Answer2)>20 or strLength(Answer2)<6 then
	founderr=1
	errmsg=errmsg & "<br><li>提示问题答案不能大于20小于6</li>"
end if
if usersex="" then
	founderr=1
	errmsg=errmsg & "<br><li>用户性别不能为空！</li>"
end if
if Usermail="" or Usermail2="" then
	founderr=1
	errmsg=errmsg & "<br><li>Email不能为空！</li>"
else
	if IsValidEmail(Usermail)=0 or IsValidEmail(Usermail2)=0 then
		errmsg=errmsg & "<br><li>您输入的Email有错误！</li>"
   		founderr=1
	end if
end if
if Usermail<>Usermail2 then
	founderr=1
	errmsg=errmsg & "<br><li>您两次输入的Email不一致！</li>"
end if
if QQ<>"" then
	if not isnumeric(QQ) or len(cstr(QQ))>10 then
		errmsg=errmsg & "<br><li>&nbsp;&nbsp;QQ号码只能是4-12位数字，您可以选择不输入。</li>"
		founderr=1
	end if
end if
if founderr=0 then
	dim sqlReg,rsReg
	sqlReg="select * from [User] where ID="&UserID&""
	set rsReg=server.createobject("adodb.recordset")
	rsReg.open sqlReg,conn,1,3
	if rsReg.eof then
		founderr=1
		errmsg=errmsg & "<br><li>&nbsp;&nbsp;该会员资料不存在或已经被删除！</li><br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;请联系站长或管理员！~"
	else
	if rsReg("LockUser")=1 then
		Response.Write ("<script>alert('   操作错误!\n\n 用户被锁定。');history.back();</script>")
		Response.end
	End If
		rsReg("Question1")=Question1
		rsReg("Answer1")=Answer1
		rsReg("Question2")=Question2
		rsReg("Answer2")=Answer2
		rsReg("sex")=usersex
		rsReg("email")=Usermail
		rsReg("Homepage")=Homepage
		rsReg("QQ")=QQ
		rsReg("MSN")=MSN
		rsReg("address")=address
		rsReg("tel")=tel
		rsReg("zip")=zip
		rsReg("addDate")=Now()
		rsReg.update
	end if
	rsReg.close
	set rsReg=nothing

	session("UserID")=""
	session("Username")=""
	session("sex")=""
	session("authorName")=""
	session("GOauthor")=""
end if	
%><%
if founderr=0 then
	call RegSuccess()
else
	call WriteErrmsg()
end if
%>
<%
sub WriteErrMsg()
	response.write "<table align='center' width='380' border='0' cellpadding='0' cellspacing='0' class='border'>"
	response.write "<tr class='title'><td align='center' height='30' class='font'>由于以下的原因会员个人资料修改失敗！</td></tr>"
	response.write "<tr class='tdbg'><td align='left' height='100' class='font'><br>" & errmsg & "<p align='center'>【<a href='javascript:onclick=history.go(-1)'>返 回</a>】<br></p></td></tr>"
	response.write "</table>" 
end sub

sub RegSuccess()
	response.write "<table align='center' width='380' border='0' cellpadding='0' cellspacing='0' class='border'>"
	response.write "<tr class='title'><td align='center' height='30' class='font'>成功修改会员个人资料！</td></tr>"
	response.write "<tr class='tdbg'><td align='left' height='150' class='font'><br>&nbsp;&nbsp;您的登陆名称：" & UserName & "<br>"
	response.write "<p align='center'>【<a href='userlog_login.asp'> 登 陸 </a>】<br></p></td></tr>"
	response.write "</table>" 
end sub
%>