const.asp

一个不错的代码 一个不错的代码 一个不错的代码

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