admin_bookjians.asp

来自「本人仅业余学习一些基础的ASP知识以供系统设计之用,并非专业人员,相关服务器设置」· ASP 代码 · 共 148 行

<!--#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
	if IsSqlDataBase = 2 then
		sql="select Isweb_good from list_book where id="&id
	else
		sql="select Isweb_good from [list_book] where id="&id
	end if
	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
	if IsSqlDataBase = 2 then
		sql="select Isweb_good from list_book where id="&id
	else
		sql="select Isweb_good from [list_book] where id="&id
	end if
	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
	if IsSqlDataBase = 2 then
		sql="select IsGood from list_book where id="&id
	else
		sql="select IsGood from [list_book] where id="&id
	end if
	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
	if IsSqlDataBase = 2 then
		sql="select IsGood from list_book where id="&id
	else
		sql="select IsGood from [list_book] where id="&id
	end if
	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
	if IsSqlDataBase = 2 then
		sql="select listvv_good from list_book where id="&id
	else
		sql="select listvv_good from [list_book] where id="&id
	end if
	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
	if IsSqlDataBase = 2 then
		sql="select listvv_good from list_book where id="&id
	else
		sql="select listvv_good from [list_book] where id="&id
	end if
	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
	if IsSqlDataBase = 2 then
		sql="select Islist_good from list_book where id="&id
	else
		sql="select Islist_good from [list_book] where id="&id
	end if
	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
	if IsSqlDataBase = 2 then
		sql="select Islist_good from list_book where id="&id
	else
		sql="select Islist_good from [list_book] where id="&id
	end if
	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&"")
%>