author_rememberpost.asp

来自「本源代码为终点小说连载系统 v1.15 Build 0430 SQL清风修改版,」· ASP 代码 · 共 38 行

<!--#include file="../inc/md5.asp"--><%
author_ID=session("author_ID")
author_name=session("author_name")
If author_name="" or author_ID="" or IsNull(WordID) Then
	Response.Write ("<script>alert(' 操作错误 \n\n 可能您还没有登陆或者登陆超时 ');location.href='authorlog_login.asp';</script>")
	Response.End
End If
set rs=server.createobject("adodb.recordset")
sql="select * from [author] where author_ID="&author_ID&""
rs.open sql,conn,1,1
if rs.eof and rs.bof then
	Response.Write ("<script>alert('   操作错误!\n\n 用户不存在。');history.back();</script>")
	Response.end
End If
If rs("author_addpost")=0 Then
	Response.Write ("<script>alert(' 操作错误 \n\n 您的驻站申请尚未被管理员通过 \n\n 请先联系本站站长或管理员通过您的申请 ');location.href='authorlog_login.asp';</script>")
	Response.End
End If
If rs("author_lock")=1 Then
	Response.Write ("<script>alert(' 操作错误 \n\n 您的驻站权限被锁定不能发表新作 \n\n 请先联系本站站长或管理员帮您解锁 ');location.href='authorlog_login.asp';</script>")
	Response.End
End If
rs.close
set rs=nothing
dim oldpassword,newpassword11,newpassword2
oldpassword=trim(request("oldpassword"))
newpassword1=trim(request("newpassword1"))
newpassword2=trim(request("newpassword2"))

if oldpassword="" or strLength(oldpassword)>18 or strLength(oldpassword)<6 then
	founderr=1
	errmsg=errmsg & "<br><li>请输入旧的登陆密码！(不能大于18小于6)</li>"
end if
if newpassword1="" or strLength(newpassword1)>18 or strLength(newpassword1)<6 then
	founderr=1
	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,"