📄 fenlei.asp

📁 WAP 书站程序 WAP 书站程序 WAP 书站程序

💻 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"-->
<%set zhlhp=Server.CreateObject("ADODB.Recordset")
  zhhssqllp="select * from Siti_Setup"
  zhlhp.open zhhssqllp,conn,1,1
ltname=zhlhp("keywords")
ltlogo=zhlhp("Sitelogo")
zhlhp.close
set zhlhp=nothing%>
<wml>
<head><meta http-equiv='Cache-Control' content='no-cache'/>
</head>
<card title="<%=ltname%>">
<p>
<!--#include file="xxts.asp"-->
<img src="shu.gif" alt=""/><br/>
<!--欢迎您:<%=myniy%><br/>
<a href="mysb.asp?sb=<%=sb%>">书包</a>|<a href="myhy.asp?sb=<%=sb%>">好友</a>|<a href="myxx.asp?sb=<%=sb%>">消息</a>|<a href="mysz.asp?sb=<%=sb%>">定制</a><br/>
<a href="search.asp?sb=<%=sb%>">搜书</a>|<a href="ph.asp?sb=<%=sb%>">排行</a>|<a href="tj.asp?sb=<%=sb%>">推荐</a>|<a href="qw.asp?sb=<%=sb%>">全本</a><br/>-->

++小说分类++<br/>
<%set rs=Server.CreateObject("ADODB.Recordset")
rsppl="select * from [list_type] order by typeid asc"
rs.open rsppl,conn,1,2
if rs.eof then 
response.write("网站建设中。。<br/>")
else
rs.Move(0)
dim j
j=1
do while ((not rs.EOF) and j <=500000)%>
<a href="list.asp?id=<%=rs("typeid")%>&amp;sb=<%=sb%>"><%=ubb(rs("list_tpye"))%></a>
<%if rs("brr")="1" then%><br/><%end if%>
<%
rs.MoveNext
j=j+1
loop
end if
%>
<br/>++泡书排行榜++<br/>
<a href="ph.asp?sb=<%=sb%>&amp;id=1">总点击版</a>|<a href="ph.asp?sb=<%=sb%>&amp;id=2">月点击榜</a><br/>
<a href="ph.asp?sb=<%=sb%>&amp;id=3">周点击榜</a>|<a href="ph.asp?sb=<%=sb%>&amp;id=4">总推荐榜</a><br/>
<a href="ph.asp?sb=<%=sb%>&amp;id=5">月推荐榜</a>|<a href="ph.asp?sb=<%=sb%>&amp;id=6">周推荐榜</a><br/>
<a href="ph.asp?sb=<%=sb%>&amp;id=7">总收藏榜</a>|<a href="ph.asp?sb=<%=sb%>&amp;id=8">总字数榜</a><br/>
声明:本站完全免费,如有版权争议,请通知撤消您的书籍，保护您的合法权益！<br/>
---------<br/>
<!--#include file="fanhui.asp"--> 

</p>
</card>
</wml>
<%endConnection()%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -