?? newt.asp
字號(hào):
<%
' MdbPath為SF論壇數(shù)據(jù)庫(kù)的絕對(duì)路徑(注意:不是以http打頭的url路徑),需要你根據(jù)實(shí)際情況自行修改.
' 如果你不知道絕對(duì)路徑,請(qǐng)使用"雪人asp探針"來(lái)得到某目錄的絕對(duì)路徑(如果你沒(méi)有,可到www.xin365.com/bbs下載)
' 變量的最后以"\"符號(hào)結(jié)尾
MdbPath= "d:\www\cnwo.com\bbs\mdb\"
' SfPath為你安裝SF論壇的路徑,是以http打頭的url路徑,如"http://www.xin365.com/bbs/",需要你根據(jù)實(shí)際情況自行修改.
' 變量的最后以"/"符號(hào)結(jié)尾
SfPath= "http://www.cnwo.com/bbs/"
' TopNum為列出最新帖子的數(shù)目,默認(rèn)為10
TopNum= 10
' ================ok,開(kāi)始列出帖子:)================
Set fobj = Server.CreateObject("Scripting.FileSystemObject")
Set MdbFolder=fobj.GetFolder(MdbPath)
Set MdbFiles=MdbFolder.Files
For Each MdbName In MdbFiles
strmdb=MdbPath & MdbName.Name
if right(strmdb,4)=".mdb" then exit for
next
if right(strmdb,4)=".mdb" then
ConnString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & strmdb
set my_conn= Server.CreateObject("ADODB.Connection")
my_Conn.Open ConnString
strsql = "Select topics.T_Last_Post, topics.topic_id, topics.forum_id, topics.t_subject, forum.f_name from topics INNER JOIN forum ON topics.forum_id = forum.forum_id order by topics.T_Last_Post DESC"
set rs = server.CreateObject("ADODB.RecordSet")
rs.Open strSql, my_conn, 1, 1
If rs.Eof or rs.Bof then
Response.Write "無(wú)任何帖子"
Else
i=1
do until rs.Eof or i>TopNum
Response.Write "<a href='" & SfPath & "topic.asp?topic_id=" & rs("topic_id") & "&forum_id=" & rs("forum_id") & "&topic_title=" & rs("t_subject") & "&forum_title=" & rs("f_name") & "'>" & rs("t_subject") & "</a> " & rs("f_name") & "<i>" & rs("T_Last_Post") & "</i><br>"
i=I+1
rs.MoveNext
loop
my_conn.Close
set my_conn = nothing
end if
else
response.write "<font color=#cc0066>錯(cuò)誤:未找到SF論壇數(shù)據(jù)庫(kù)文件!</font>"
response.end
end if
%>
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -