admin_authorsave.asp

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

<!--#include file="../conn.asp"--><!--#include file="../inc/config.asp"-->
<!-- #include file="session.asp" -->
<%

page=replace(trim(request("page")),"'","")
id=request.QueryString("id")
act=request("act")

if act="lock" then
set rs=server.CreateObject("ADODB.RecordSet")
	sql="select author_lock from [author] where author_id="&id
	rs.open sql,conn,1,3
	if not rs.eof then
		if rs("author_lock")=0 then
			rs("author_lock")=1
		else
			rs("author_lock")=0
		end if
		rs.update
	end if
	rs.close
set rs=nothing
elseif act="author" then
set rs=server.CreateObject("ADODB.RecordSet")
	sql="select GOauthor from [userinfo] where authorid="&id
	rs.open sql,conn,1,3
	if not rs.eof then
		rs("GOauthor")=0
		rs.update
	end if
	rs.close
set rs=nothing
set rs=server.CreateObject("ADODB.RecordSet")
	sql="select author_addpost,author_lock from [author] where author_id="&id
	rs.open sql,conn,1,3
	if not rs.eof then
		rs("author_addpost")=0
		rs.update
	end if
	rs.close
set rs=nothing
elseif act="goauthor" then
set rs=server.CreateObject("ADODB.RecordSet")
	sql="select GOauthor from [userinfo] where authorid="&id
	rs.open sql,conn,1,3
	if not rs.eof then
		rs("GOauthor")=1
		rs.update
	end if
	rs.close
set rs=nothing
set rs=server.CreateObject("ADODB.RecordSet")
	sql="select author_writing,author_addpost,author_lock from [author] where author_id="&id
	rs.open sql,conn,1,3
	if not rs.eof then
		rs("author_writing")=""
		rs("author_addpost")=1
		rs("author_lock")=0
		rs.update
	end if
	rs.close
set rs=nothing
if makeJS=1 then
temauthoradd(authorNum)
end if
end if
conn.close
set conn=nothing
response.write ("<script>opener.location.reload();</script><script language=javascript>window.alert('操作成功!');javascript:window.close();</script>")
%>