📄 reply_item.asp
字号:
<%Response.ContentType = "text/vnd.wap.wml"
findid=request("findid")
findid="2108-12-28 17:10:48"
%>
<%
dim conn
dim dbpath
dim strsql
set conn=server.createobject("adodb.connection")
DBPath = Server.MapPath("../myinc/#skybird.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
set rs=server.createobject("adodb.recordset")
strsql="SELECT * FROM bbs_topic where topic_idnum=" & "'" & findid & "'" & "order by reply_datetime desc"
rs.open strsql,conn,1,3
Dim iPageSize
Dim iPageCount
Dim iPageCurrent
Dim iRecordsShown
Dim I
iPageSize = 10
If Request.QueryString("page") = "" Then
iPageCurrent = 1
Else
iPageCurrent = CInt(Request.QueryString("page"))
End If
rs.PageSize = iPageSize
rs.CacheSize = iPageSize
iPageCount = rs.PageCount
If iPageCurrent > iPageCount Then iPageCurrent = iPageCount
If iPageCurrent < 1 Then iPageCurrent = 1
If iPageCount = 0 Then
response.write ("对不起，无记录")
Else
rs.AbsolutePage = iPageCurrent
%>
<?xml version="1.0" encoding="gb2312"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapfourm.org/DTD/wml_1.1.xml">
<wml>
<head>
<meta http-equiv='Cache-Control' content='max-age=0' />
<meta http-equiv="Cache-control" content="no-cache" />
</head>
<card id="index" title="天堂鸟论坛" >
<p align="center">
<img src="../images/jingdianonline.png" alt=""/>论坛版块
</p>
<p>
总数:<%=RS.RecordCount %>条; <%= iPageCurrent %>/<%= iPageCount %><br/>
<%
iRecordsShown = 0
Do While iRecordsShown < iPageSize And Not rs.EOF
For I = 0 To rs.Fields.Count - 1
dim qqq,findid
qqq=rs("topic_name")
next
iRecordsShown = iRecordsShown + 1
%>
<%=qqq%><br/>
------------<br/>
<%
rs.MoveNext
Loop
End If
rs.Close
Set rs = Nothing
If iPageCurrent <> 1 Then
%>
<a title="确定" href="topic_item.asp?page=<%=iPageCurrent - 1%>">上一页</a><br/>
<%
End If
If iPageCurrent < iPageCount Then
%>
<a title="确定" href="topic_item.asp?page=<%=iPageCurrent + 1 %>">下一页</a><br/>
<%
End If
%>
<a title="确定" href="../index.asp">返回首页</a><br/>
</p>
</card>
</wml>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -