const.asp

网乐下载系统SQL存储版

<%
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,userhead,openmsg,badwords,AnnounceMaxBytes,MaxAnnouncePerPage,Maxtitlelist,Tablebackcolor,aTablebackcolor,Tabletitlecolor,aTabletitlecolor,Tablebodycolor,aTablebodycolor,TableFontcolor,TableContentcolor,AlertFontColor,ContentTitle,ads1,ads2,Copyright,Version from [config]"
rs.open sql,conn,1,1
ForumName=rs(0)
ForumURL=rs(1)
CompanyName=rs(2)
HostUrl=rs(3)
SMTPServer=rs(4)
SystemEmail=rs(5)
TimeAdjust=rs(6)
ScriptTimeOut=rs(7)
Logo=rs(8)
Picurl=rs(9)
Faceurl=rs(10)
EmailFlag=rs(11)
Uploadpic=rs(12)
IpFlag=rs(13)
FromFlag=rs(14)
guestuser=rs(15)
userhead=mid(rs(16),1,1)
userheadEP=mid(rs(16),2)
openmsg=rs(17)
badwords=rs(18)
AnnounceMaxBytes=rs(19)
MaxAnnouncePerpage=rs(20)
Maxtitlelist=rs(21)
Tablebackcolor=rs(22)
aTablebackcolor=rs(23)
Tabletitlecolor=rs(24)
aTabletitlecolor=rs(25)
Tablebodycolor=rs(26)
aTablebodycolor=rs(27)
TableFontcolor=rs(28)
TableContentcolor=rs(29)
AlertFontColor=rs(30)
ContentTitle=rs(31)
ads1=rs(32)
ads2=rs(33)
Copyright=rs(34)
Version=rs(35)
rs.close
%>