admin_booksave.asp

小说站源代码文件

<!--#include file="../conn.asp"-->
<!--#include file="../inc/config.asp"-->
<!-- #include file="session.asp" -->
<link href="css.css" rel="stylesheet" type="text/css">
<%

id=request.QueryString("id")
act=request("act")

set rs=server.CreateObject("ADODB.RecordSet")
if act="lock" then
	sql="select Lock_book from list_book where id="&id
	rs.open sql,conn,1,1
	if not rs.eof then
		if rs("Lock_book")=0 then
			conn.execute ("update list_book set Lock_book=1 where id="&id)
		else
			conn.execute ("update list_book set Lock_book=0 where id="&id)
		end if
	end if
	rs.close
elseif act="goVip" then
	sql="select IsVip from list_book where id="&id
	rs.open sql,conn,1,1
	if not rs.eof then
		if rs("IsVip")=0 then
			conn.execute ("update list_book set IsVip=1 where id="&id)
		else
			conn.execute ("update list_book set IsVip=0 where id="&id)
		end if
	end if
	rs.close
elseif act="IsGood" then
	sql="select IsGood from list_book where id="&id
	rs.open sql,conn,1,1
	if not rs.eof then
		if rs("IsGood")=0 or  rs("IsGood")=9 then
			conn.execute ("update list_book set IsGood=1 where id="&id)
		elseif rs("IsGood")=1 Then
			conn.execute ("update list_book set IsGood=9 where id="&id)
		end if
	end if
	rs.close
elseif act="Isweb_good" then
	sql="select Isweb_good from list_book where id="&id
	rs.open sql,conn,1,1
	if not rs.eof then
		if rs("Isweb_good")=0 or rs("Isweb_good")=9 then
			conn.execute ("update list_book set Isweb_good=1 where id="&id)
		elseif rs("Isweb_good")=1 Then
			conn.execute ("update list_book set Isweb_good=9 where id="&id)
		end if
	end if
	rs.close
elseif act="listvv_good" then
	sql="select listvv_good from list_book where id="&id
	rs.open sql,conn,1,1
	if not rs.eof then
		if rs("listvv_good")=0 or rs("listvv_good")=9 then
			conn.execute ("update list_book set listvv_good=1 where id="&id)
		elseif rs("listvv_good")=1 then
			conn.execute ("update list_book set listvv_good=9 where id="&id)
		end if
	end if
	rs.close
elseif act="Islist_good" then
	sql="select Islist_good from list_book where id="&id
	rs.open sql,conn,1,1
	if not rs.eof then
		if rs("Islist_good")=0 or rs("Islist_good")=9 then
			conn.execute ("update list_book set Islist_good=1 where id="&id)
		elseif rs("Islist_good")=1 then
			conn.execute ("update list_book set Islist_good=9 where id="&id)
		end if
	end if
	rs.close
end if
set rs=nothing
conn.close
set conn=nothing
response.write ("<script>opener.location.reload();</script>")
Call ShowAdminSuccessMsg("操作成功！","javascript:window.close()")
%>