admin_bookjians.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("b_id")
clid=request.QueryString("clid")
cndb=request.QueryString("cndb")
Page=request.QueryString("Page")
info=request("info")

set rs=server.CreateObject("ADODB.RecordSet")
if info="feng" 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")=1 then
			conn.execute ("update list_book set Isweb_good=1 where id="&id)
		else
			conn.execute ("update list_book set Isweb_good=1 where id="&id)
		end if
	end if
	rs.close
elseif info="classfeng" 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")=2 then
			conn.execute ("update list_book set Isweb_good=9 where id="&id)
		else
			conn.execute ("update list_book set Isweb_good=2 where id="&id)
		end if
	end if
	rs.close
elseif info="jing" then
	sql="select IsGood from list_book where id="&id
	rs.open sql,conn,1,1
	if not rs.eof then
		if rs("IsGood")=1 then
			conn.execute ("update list_book set IsGood=9 where id="&id)
		else
			conn.execute ("update list_book set IsGood=1 where id="&id)
		end if
	end if
	rs.close
elseif info="classjing" then
	sql="select IsGood from list_book where id="&id
	rs.open sql,conn,1,1
	if not rs.eof then
		if rs("IsGood")=2 then
			conn.execute ("update list_book set IsGood=9 where id="&id)
		else
			conn.execute ("update list_book set IsGood=2 where id="&id)
		end if
	end if
	rs.close
elseif info="qiang" 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")=1 then
			conn.execute ("update list_book set listvv_good=9 where id="&id)
		else
			conn.execute ("update list_book set listvv_good=1 where id="&id)
		end if
	end if
	rs.close
elseif info="classqiang" 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")=2 then
			conn.execute ("update list_book set listvv_good=9 where id="&id)
		else
			conn.execute ("update list_book set listvv_good=2 where id="&id)
		end if
	end if
	rs.close
elseif info="lian" 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")=1 then
			conn.execute ("update list_book set Islist_good=9 where id="&id)
		else
			conn.execute ("update list_book set Islist_good=1 where id="&id)
		end if
	end if
	rs.close
elseif info="classlian" 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")=2 then
			conn.execute ("update list_book set Islist_good=9 where id="&id)
		else
			conn.execute ("update list_book set Islist_good=2 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("操作成功！","admin_book.asp?info=booklist&cndb="&cndb&"&clid="&clid&"&Page="&Page&"")
%>