global.asp

JSP ACCESS版的论坛源码 深圳盈盈通

<%
sub getConst()
	dim sql, rs
	sql = "select top 1 * from config"
	set rs = server.CreateObject ("adodb.recordset")
	rs.open sql,conn,1,1
	arrRow=rs.getrows
	rs.close : set rs=nothing
	Application("ForumName")=arrRow(0,0)
	Application("ForumURL")=arrRow(1,0)
	Application("CompanyName")=arrRow(2,0)
	Application("HostUrl")=arrRow(3,0)
	Application("SMTPServer")=arrRow(4,0)
	Application("SystemEmail")=arrRow(5,0)
	Application("TimeAdjust")=arrRow(6,0)
	Application("ScriptTimeOut")=arrRow(7,0)
	Application("Logo")=arrRow(8,0)
	Application("Picurl")=arrRow(9,0)
	Application("Faceurl")=arrRow(10,0)
	Application("EmailFlag")=arrRow(11,0)
	Application("Uploadpic")=arrRow(12,0)
	Application("IpFlag")=arrRow(13,0)
	Application("FromFlag")=arrRow(14,0)
	Application("TitleFlag")=arrRow(36,0)
	Application("uploadFlag")=arrRow(37,0)
	Application("guestuser")=arrRow(15,0)
	Application("guestlogin")=arrRow(16,0)
	Application("openmsg")=arrRow(17,0)
	Application("badwords")=arrRow(18,0)
	Application("MaxAnnouncePerPage")=arrRow(20,0)
	Application("Maxtitlelist")=arrRow(21,0)
	Application("AnnounceMaxBytes")=arrRow(19,0)
	Application("Tablebackcolor")=arrRow(22,0)
	Application("aTablebackcolor")=arrRow(23,0)
	Application("Tabletitlecolor")=arrRow(24,0)
	Application("aTabletitlecolor")=arrRow(25,0)
	Application("Tablebodycolor")=arrRow(26,0)
	Application("aTablebodycolor")=arrRow(27,0)
	Application("TableFontcolor")=arrRow(28,0)
	Application("TableContentcolor")=arrRow(29,0)
	Application("AlertFontColor")=arrRow(30,0)
	Application("ContentTitle")=arrRow(31,0)
	Application("ads1")=arrRow(32,0)
	Application("ads2")=arrRow(33,0)
	Application("Copyright")=arrRow(34,0)
	Application("Version")=arrRow(35,0)
	
	Application("wealthReg")=arrRow(38,0)
	Application("wealthAnnounce")=arrRow(39,0)
	Application("wealthReannounce")=arrRow(40,0)
	Application("wealthDel")=arrRow(41,0)
	Application("wealthLogin")=arrRow(42,0)
	
	Application("epReg")=arrRow(43,0)
	Application("epAnnounce")=arrRow(44,0)
	Application("epReAnnounce")=arrRow(45,0)
	Application("epDel")=arrRow(46,0)
	Application("epLogin")=arrRow(47,0)
	
	Application("cpReg")=arrRow(48,0)
	Application("cpAnnounce")=arrRow(49,0)
	Application("cpReAnnounce")=arrRow(50,0)
	Application("cpDel")=arrRow(51,0)
	Application("cpLogin")=arrRow(52,0)
	Application("cookiepath")=arrRow(58,0)
end sub

%>