📄 index.asp
字号:
<%Response.ContentType ="text/vnd.wap.wml;charset=GB2312"%>
<?xml version="1.0"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<wml>
<!--#include file="config.inc"-->
<head>
<meta http-equiv="Cache-control" content="no-cache"
forua= "true" />
</head>
<card id="forum" title="论坛列表">
<p><do type="accept" label="确定">
<prev/>
</do>
<img src="pic/01.png" alt="" align="bottom"/></p>
<p mode="nowrap">
体验非凡感受,点缀多彩生活
</p>
<p>
<%
dim rs
set rs=Server.CreateObject("ADODB.Recordset")
rs.Open "select * from gbookmain order by dateandtime desc",conn,3,3
if not rs.eof then
Dim page, rlycount
Dim name, title
IF not IsNumeric(Request("page")) Or IsEmpty(Request("page")) Then
page=1
Else
Page=Int(Abs(Request("page")))
End if
rs.pagesize = 5
total = rs.RecordCount
mypagesize = rs.pagesize
rs.absolutepage = page
%>
*共<%=rs.pagecount%>页**当前第<%=page%>页*<br/>
<img src="pic/07.png" alt="" align="bottom" /><br/>
<%
dim i
i=1
do while not rs.eof and mypagesize>0
id=rs("id")
name=rs("name")
head=rs("title")
rlycount=rs("rlycount")
biao="biao/00"&rs("pic")&".png"
%>
题目：<a href="reply.asp?id=<%=id%>&isrly=0"><%=head%></a> <br/>
作者昵称: <%=name%> <br/>
访问次数: <%=rs("keycount")%> <img src="<%=biao%>" alt="" align="bottom"/><br/>
回复次数: <%=rlycount%><br/>
<img src="pic/03.png" alt="" align="bottom"/><br/><br/>
<%
mypagesize=mypagesize-1
i=i+1
rs.movenext
loop
%>
<%
if page>1 then%>
<img src="pic/005.png" alt="" align="bottom"/><a href="index.asp?page=<%=page-1%>">上一页</a><br/>
<%
end if
%>
<%
if page<rs.pagecount then%>
<img src="pic/005.png" alt="" align="bottom"/><a href="index.asp?page=<%=page+1%>">下一页</a><br/>
<%
end if
End if
%>
<img src="pic/005.png" alt="" align="bottom"/><a href="add.asp?isrly=0">发表新帖</a><br/>
<img src="pic/005.png" alt="" align="bottom"/><a href="index.asp">刷新</a><br/>
<img src="pic/005.png" alt="" align="bottom"/><a href="">返回上级</a><br/>
<img src="pic/005.png" alt="" align="bottom"/><a href="">返回部落</a><br/>
<img src="pic/005.png" alt="" align="bottom"/><a href="">返回首页</a><br/>
<%
rs.close
%></p>
</card>
</wml>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -