<%
Set fobj = Server.CreateObject("Scripting.FileSystemObject")
Path=server.MapPath("index.asp")
Path=left(Path,len(Path)-9)
if right(Path,6)="admin\"then Path=left(Path,len(Path)-6)
Set MdbFolder=fobj.GetFolder(path & "mdb\")
Set MdbFiles=MdbFolder.Files
For Each MdbName In MdbFiles
strmdb=Path&"mdb\"&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
else
 response.write "錯(cuò)誤:無(wú)法確認(rèn)數(shù)據(jù)庫(kù)文件的名稱!"
 response.end
end if

SFTitle = "中窩建站交流論壇"
TitleImgLocation = "images/sflogo.gif"
Bgstr = " "

TableWidth= "95%"
PostTime= 30
OnlineTime= 10
ForumRow= 20
TopicRow= 8
ReplyView= 5
HotTopicNum= 15
HotReplyNum= 5

BadWordFiler = "true"
BadWords = "fuck|混蛋|狗日"
%>
<!--#INCLUDE FILE="sf_skin.dat" -->