<%
'每页贴子显示数目
MaxAnnouncePerpage=20
'每页显示跟贴数目
Maxtitlelist=10
set rs = server.CreateObject ("adodb.recordset")
sql = "select top 1* from bbs_config"
rs.open sql,conn,1,1
ForumName=rs("ForumName")
ForumURL=rs("ForumURL")
CompanyName=rs("CompanyName")
HostUrl=rs("HostUrl")
SMTPServer=rs("SMTPServer")
SystemEmail=rs("SystemEmail")
TimeAdjust=rs("TimeAdjust")
ScriptTimeOut=rs("ScriptTimeOut")
Logo=rs("Logo")
Picurl=rs("Picurl")
Faceurl=rs("Faceurl")
EmailFlag=rs("EmailFlag")
Uploadpic=rs("Uploadpic")
IpFlag=rs("IpFlag")
FromFlag=rs("FromFlag")
guestuser=rs("guestuser")
openmsg=rs("openmsg")
badwords=rs("badwords")
AnnounceMaxBytes=rs("AnnounceMaxBytes")
Tablebackcolor=rs("Tablebackcolor")
aTablebackcolor=rs("aTablebackcolor")
Tabletitlecolor=rs("Tabletitlecolor")
aTabletitlecolor=rs("aTabletitlecolor")
Tablebodycolor=rs("Tablebodycolor")
aTablebodycolor=rs("aTablebodycolor")
TableFontcolor=rs("TableFontcolor")
TableContentcolor=rs("TableContentcolor")
AlertFontColor=rs("AlertFontColor")
ContentTitle=rs("ContentTitle")
rs.close
%>
