<%
' 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
%>