const.asp

来自「新的文章管理系统」· ASP 代码 · 共 28 行

<%
	dim NetName,NetUrl,Smtp,Email,CopyRight,Ver,EmailFlag,PageCount,BodyVar,Tablebackcolor,Tablebodycolor,Tablebody1color,TableFontcolor,TableContentcolor,Logo,Ads

	sub getConst()
	sql = "select top 1 * from adminvar"
	set rs = server.CreateObject ("adodb.recordset")
	rs.open sql,conn,1,3
	arrRow=rs.getrows
	rs.close : set rs=nothing
	NetName = arrRow(0,0)
	NetUrl = arrRow(1,0)
	Smtp = arrRow(2,0)
	Email = arrRow(3,0)
	CopyRight = arrRow(4,0)
	Ver = arrRow(5,0)
	EmailFlag = arrRow(6,0)
	PageCount = arrRow(7,0)
	BodyVar = arrRow(8,0)
	Tablebackcolor = arrRow(9,0)
	Tablebodycolor = arrRow(10,0)
	Tablebody1color = arrRow(11,0)
	TableFontcolor = arrRow(12,0)
	TableContentcolor = arrRow(13,0)
	Logo = arrRow(14,0)
	Ads = arrRow(15,0)
	end sub
%>