?? forum_item.asp
字號:
<%Response.ContentType = "text/vnd.wap.wml"
'檢測是否是注冊用戶
if session("online_name")<> "" then
else
'&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
'需要修改地址，變為絕對地址。 '&&&&&&&&&
Response.Redirect "http://61.240.131.134/skybird/reload.asp" '&&&&&&&&&
'&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
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_forum order by forum_idnum 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.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' />
</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("forum_name")
findid=rs("forum_idnum")
next
iRecordsShown = iRecordsShown + 1
%>
<a title="確定" href="topic_item.asp?findid=<%=findid%>&forum_name_show=<%=Server.urlEncode(qqq)%>"><%=qqq%></a><br/>
<%
rs.MoveNext
Loop
End If
rs.Close
Set rs = Nothing
If iPageCurrent <> 1 Then
%>
<a title="確定" href="forum_item.asp?page=<%=iPageCurrent - 1%>">上一頁</a><br/>
<%
End If
If iPageCurrent < iPageCount Then
%>
<a title="確定" href="forum_item.asp?page=<%=iPageCurrent + 1 %>">下一頁</a><br/>
<%
End If
%>
<img src="../images/hotup.wbmp" alt=""/><a title="確定" href="../index.asp">返回首頁</a><br/>
</p>
</card>
</wml>
<% Function uni(Chinese)
For i = 1 to Len (Chinese)
a=Mid(Chinese, i, 1)
uni=uni & "&#x" & Hex(Ascw(a)) & ";"
next
End Function
%>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -