admin_bookjians.asp

功能强大 首发! 演示地址:http://jsice.com QQ:3300828 运行环境： Internet Information Server 5.x or 6.0 （ii

<!--#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,3
	if not rs.eof then
		if rs("Isweb_good")=1 then
			rs("Isweb_good")=9
		else
			rs("Isweb_good")=1
		end if
		rs.update
	end if
	rs.close
elseif info="classfeng" then
	sql="select Isweb_good from [list_book] where id="&id
	rs.open sql,conn,1,3
	if not rs.eof then
		if rs("Isweb_good")=2 then
			rs("Isweb_good")=9
		else
			rs("Isweb_good")=2
		end if
		rs.update
	end if
	rs.close
elseif info="jing" then
	sql="select IsGood from [list_book] where id="&id
	rs.open sql,conn,1,3
	if not rs.eof then
		if rs("IsGood")=1 then
			rs("IsGood")=9
		else
			rs("IsGood")=1
		end if
		rs.update
	end if
	rs.close
elseif info="classjing" then
	sql="select IsGood from [list_book] where id="&id
	rs.open sql,conn,1,3
	if not rs.eof then
		if rs("IsGood")=2 then
			rs("IsGood")=9
		else
			rs("IsGood")=2
		end if
		rs.update
	end if
	rs.close
elseif info="qiang" then
	sql="select listvv_good from [list_book] where id="&id
	rs.open sql,conn,1,3
	if not rs.eof then
		if rs("listvv_good")=1 then
			rs("listvv_good")=9
		else
			rs("listvv_good")=1
		end if
		rs.update
	end if
	rs.close
elseif info="classqiang" then
	sql="select listvv_good from [list_book] where id="&id
	rs.open sql,conn,1,3
	if not rs.eof then
		if rs("listvv_good")=2 then
			rs("listvv_good")=9
		else
			rs("listvv_good")=2
		end if
		rs.update
	end if
	rs.close
elseif info="lian" then
	sql="select Islist_good from [list_book] where id="&id
	rs.open sql,conn,1,3
	if not rs.eof then
		if rs("Islist_good")=1 then
			rs("Islist_good")=9
		else
			rs("Islist_good")=1
		end if
		rs.update
	end if
	rs.close
elseif info="classlian" then
	sql="select Islist_good from [list_book] where id="&id
	rs.open sql,conn,1,3
	if not rs.eof then
		if rs("Islist_good")=2 then
			rs("Islist_good")=9
		else
			rs("Islist_good")=2
		end if
		rs.update
	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&"")
%>