author_save.asp

小说站源代码文件

<!-- #include file="conn.asp" --><!--#include file="inc/config.asp"--><!--#include file="inc/md5.asp"--><%
dim author_ID,author_name
author_ID=session("author_ID")
author_name=session("author_name")
If author_name="" or author_ID="" or IsNull(author_ID) Then
	Response.Write ("<script>alert(' 操作错误 \n\n 可能您还没有登陆或者登陆超时 ');location.href='author_log.asp?info=out';</script>")
	Response.End
End If
set rs=server.createobject("adodb.recordset")
sql="select author_addpost,author_lock,author_UserID 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='author_index.asp?info=index';</script>")
	Response.End
End If
If rs("author_lock")=1 Then
	Response.Write ("<script>alert(' 操作错误 \n\n 您的驻站权限被锁定不能发表新作 \n\n 请先联系本站站长或管理员帮您解锁 ');location.href='author_index.asp?info=index';</script>")
	Response.End
End If
author_UserID=rs("author_UserID")
rs.close
set rs=nothing
Select Case request.querystring("info")
	Case "profile"
		Call profile()
	Case "commentcll"
		Call commentcll()
	Case "commentdel"
		Call commentdel()
	Case "book_jie_add"
		Call book_jie_add()
	Case "book_jie_edit"
		Call book_jie_edit()
	Case "book_jjgg_edit"
		Call book_jjgg_edit()
	Case "view_go_cook_ok"
		Call view_go_cook_ok()
end select 


Sub profile()
author_Email=trim(Request.Form("author_Email"))
author_face=trim(Request.Form("author_face"))
author_resume=trim(Request.Form("author_resume"))
author_ICQ=trim(Request.Form("author_ICQ"))
author_QQ=trim(Request.Form("author_QQ"))
author_sex=Request("author_sex")
oldpassword=trim(request("oldpassword"))
newpassword1=trim(request("newpassword1"))
newpassword2=trim(request("newpassword2"))

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