📄 mysb.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"-->
<wml>
<head><meta http-equiv='Cache-Control' content='no-cache'/>
</head>
<card title="<%=myni%>的书包">
<p>
<%if myid="0" then response.redirect "66hc_grdl.asp?cw=6"%>
欢迎您:<b><%=myni%></b><br/>
书包|<a href="myss.asp?sb=<%=sb%>">书签</a>|<a href="myxx.asp?sb=<%=sb%>">消息</a>|<a href="mysz.asp?sb=<%=sb%>">定制</a><br/>
只显示20本收藏<br/>
<%set rs=Server.CreateObject("ADODB.Recordset")
rsppl="select list_bookid,live_date,UserID from [User_box] where UserID="&myid&" order by live_date 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)
set rss=Server.CreateObject("ADODB.Recordset")
rsppls="select id,list_name from [list_book] where id="&rs("list_bookid")
rss.open rsppls,conn,1,2
if rss.eof then 
bookmc="无此书籍"
else
bookmc=rss("list_name")
end if
%>
<%=j%>.<a href="class.asp?id=<%=rs("list_bookid")%>&amp;sb=<%=sb%>"><%=ubb(bookmc)%></a><br/>
<%
rs.MoveNext
j=j+1
loop
end if
%><br/>
<a href="index.asp?sb=<%=sb%>">返回泡书首页</a>
</p>
</card>
</wml>
<%endConnection()%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -