📄 class.asp
字号:
<% @LANGUAGE="VBSCRIPT" CODEPAGE="65001" %>
<%Response.ContentType = "text/vnd.wap.wml; charset=utf-8"%>
<?xml version="1.0" encoding="utf-8"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<!--#include file="conn.inc"-->
<wml>
<head><meta http-equiv='Cache-Control' content='no-cache'/>
</head>
<%
id=request("id")
set zhlhp=Server.CreateObject("ADODB.Recordset")
zhhssqllp="select * from list_book where cstr(id)="&id
zhlhp.open zhhssqllp,conn,1,3
if zhlhp.eof then %>
<card title="无此书籍">
<p>
无此书籍<br/>
<a href="index.asp?sb=<%=sb%>">返回泡书首页</a>
<%else
ltname=zhlhp("list_name")
%>
<card title="《<%=ltname%>》书页">
<p>
<!--#include file="xxts.asp"-->
书名：<%=ltname%><br/>
作者：<anchor><%=ubb(zhlhp("list_user"))%><go href='searchzz.asp?sb=<%=sb%>' method='post' accept-charset='utf-8'><postfield name='title' value='<%=ubb(zhlhp("list_user"))%>'/></go></anchor><br/>
状态：<%if zhlhp("list_tai")="1" then response.write("<a href='mysb.asp?sb="&sb&"'>转载中</a>") end if%>
<%if zhlhp("list_tai")="2" then response.write("<a href='ph.asp?sb="&sb&"'>连载中</a>") end if%>
<%if zhlhp("list_tai")="3" then response.write("<a href='ph.asp?sb="&sb&"'>出版中</a>") end if%>
<%if zhlhp("list_tai")="4" then response.write("<a href='ph.asp?sb="&sb&"'>已暂停</a>") end if%>
<%if zhlhp("list_tai")="5" then response.write("<a href='ph.asp?sb="&sb&"'>已停止</a>") end if%>
<%if zhlhp("list_tai")="6" then response.write("<a href='qw.asp?sb="&sb&"'>已完成</a>") end if%>
<br/>
<%
set rs=Server.CreateObject("ADODB.Recordset")
zrp="select * from list_type where [typeid]="&zhlhp("list_class")
rs.open zrp,conn,1,1
if not rs.eof then
Response.Write "分类：<a href='list.asp?id="&zhlhp("list_class")&"&sb="&sb&"'>"&ubb(rs("list_tpye"))&"</a><br/>"
end if
rs.close
set rs=nothing%>
最新章节：<a href='view_book.asp?id=<%=ubb(zhlhp("newviewid"))%>&sb=<%=sb%>'><%=(zhlhp("newviewname"))%></a><br/>
字数:<%=ubb(zhlhp("list_size"))%>字<br/>
<a href="view.asp?id=<%=ubb(zhlhp("id"))%>&sb=<%=sb%>">章节列表</a>|
<a href="mysq.asp?lid=<%=ubb(zhlhp("id"))%>&sb=<%=sb%>">放入书包</a><br/>
<a href="tuijian.asp?id=<%=ubb(zhlhp("id"))%>&sb=<%=sb%>&url=class.asp">投上一票</a>|
<a href="sp.asp?id=<%=ubb(zhlhp("id"))%>&sb=<%=sb%>">看看书评</a><br/>
<!--<a href="/guest/index.asp?sb=<%=sb%>">我要报错</a>|
<a href="class1.asp?id=<%=ubb(zhlhp("id"))%>&sb=<%=sb%>&url=class.asp">本书简介</a>
<br/>-->
本书简介：<%=ubb(zhlhp("list_all"))%><br/>
<!--点击：<%=zhlhp("list_hit")%>次<br/>
推荐：<%=zhlhp("list_jian")%>人<br/>
收藏：<%=zhlhp("list_cang")%>次<br/>-->
<a href="view.asp?id=<%=ubb(zhlhp("id"))%>&sb=<%=sb%>">我要阅读>>></a><br/>
<!--#include file="guanggao1.asp"--><br/>
----------<br/>
<!--#include file="fanhui.asp"-->
<%
zhlhp("list_hit")=zhlhp("list_hit")+1
zhlhp.update
end if
zhlhp.close
set zhlhp=nothing%>
</p>
</card>
</wml>
<%endConnection()%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -