📄 topic_item.asp
字号:
<%Response.ContentType = "text/vnd.wap.wml"
page=request("topic_page")
findid=request.QueryString("findid")
if findid<>"" then
session("forum_name_id")=findid'为了以后增加新的主题，归属类别
else
findid=session("forum_name_id")'纪录了此idnum
end if
page=session("currentpage")
forum_name_show=request("forum_name_show")
if forum_name_show<>"" then
session("forum_name_show")=forum_name_show'所属板块
else
forum_name_show=session("forum_name_show")
end if
%>
<%
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 forum_type=" & "'" & findid & "'" & "order by topic_datetime desc"
rs.open strsql,conn,1,3
Dim iPageSize
Dim iPageCount
Dim iPageCurrent
Dim iRecordsShown
Dim I
iPageSize = 8
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.Redirect "http://61.240.131.134/skybird/wapbbs/record_error.asp" '&&&&&&&&&
'&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
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="天堂鸟论坛" newcontext="true">
<p align="center">
<img src="../images/jingdianonline.png" alt=""/><%=forum_name_show%>
</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")
findid=rs("topic_idnum")
next
iRecordsShown = iRecordsShown + 1
%>
<a title="确定" href="topic_show.asp?findid=<%=findid%>&forum_name_show=<%=Server.urlEncode(forum_name_show)%>&topic_page=<%=iPageCurrent%>"><%=qqq%></a><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
%>
<img src="../images/hotup.wbmp" alt=""/><a title="确定" href="topic_new.asp">发表主题</a><br/>
<img src="../images/hotup.wbmp" alt=""/><a title="确定" href="forum_item.asp">返回上级</a><br/>
<img src="../images/skybird.wbmp" alt=""/><a title="确定" href="../index.asp">返回首页</a><br/>
</p>
</card>
</wml>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -