config.asp

来自「这个论坛也不错．适合做毕业设计的」· ASP 代码 · 共 35 行

<%
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 "错误:无法确认数据库文件的名称!"
 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" -->