📄 book_view.asp

📁 站完全依据SEO技术建立

💻 ASP

字号:

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

<%if session("admin")="" then
  		response.redirect "index.asp"
end if
if request("action")="del" then
page=request("page")
if page="" then page=1
	Rem 删除一级栏目
	on error resume next
        sql="delete from book where id=" & request("id")
        conn.execute sql

        if err.Number<>0 then
            err.clear
            response.write ""
        else
            finished
        end if

    rs.open sql,conn,3,3
            rs.delete
        rs.update
Response.Redirect "book.asp?page="&page
elseif request("action")="view" then
%>
<%=citycss%>
<body topmargin="15">
<%sql="select * from book where id="&request("id")
set rs=server.createobject("adodb.recordset")                     
rs.open sql,conn,1,3
rs("read")=true
rs.update
%>
<table width="99%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolorlight="#cccccc" bordercolordark="#FFFFFF">
  <tr>
    <td bgcolor=#efefef height=30>　<%=cityname%>反馈中心</td>
  </tr>
  <tr>
    <td height=210>

<table width="80%" border="0" cellspacing="0" cellpadding="0" align=center>
  <tr>
    <td><p style="line-height:150%"><%=rs("book")%></td>
  </tr>
</table>


	</td>
  </tr>
  <tr>
    <td bgcolor=#efefef height=30 align=center><a href="javascript:window.close()" class=red>[关闭]</a></td>
  </tr>
</table>
<%rs.close
end if%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -