newt.asp

这个论坛也不错．适合做毕业设计的

<%
' MdbPath为SF论坛数据库的绝对路径(注意:不是以http打头的url路径),需要你根据实际情况自行修改.
' 如果你不知道绝对路径,请使用"雪人asp探针"来得到某目录的绝对路径(如果你没有,可到www.xin365.com/bbs下载)
' 变量的最后以"\"符号结尾

MdbPath= "d:\www\cnwo.com\bbs\mdb\"

' SfPath为你安装SF论坛的路径,是以http打头的url路径,如"http://www.xin365.com/bbs/",需要你根据实际情况自行修改.
' 变量的最后以"/"符号结尾

SfPath= "http://www.cnwo.com/bbs/"

' TopNum为列出最新帖子的数目,默认为10

TopNum= 10

' ================ok,开始列出帖子:)================
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 "无任何帖子"
 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>错误:未找到SF论坛数据库文件!</font>"
 response.end
end if
%>