const.asp

来自「一个ASP做的论坛」· ASP 代码 · 共 39 行

<%
dim boardtitle,boardmaster,bgcolor,bgimage,boardtype,tablebackcolor,tablebodycolor,tabletitlecolor,tablebodyacolor
	set rs=server.CreateObject("ADODB.RecordSet")
	sql="select ver,maxperpage,webname,weburl,bgcolor,bgimage,tablebackcolor,tabletitlecolor,tablebodycolor,tablebodyacolor from config"
	rs.open sql,conn,1,1
	if not rs.eof then
	  if application("webname")<>rs("webname") then
	    Application.Lock
		application("webname")=rs("webname")
		application("weburl")=rs("weburl")
		application("ver")=rs("ver")
		Application.UnLock
	  end if
		maxperpage=rs("maxperpage")
		bgcolor=rs("bgcolor")
		bgimage=rs("bgimage")
		tablebackcolor=rs("tablebackcolor")
		tabletitlecolor=rs("tabletitlecolor")
		tablebodycolor=rs("tablebodycolor")
		tablebodyacolor=rs("tablebodyacolor")
	end if
	rs.close
if request("boardid")<>"" and request("boardid")<>"0" then
sql="select boardmaster,boardtitle,bgcolor,bgimage,boardtype,tablebackcolor,tabletitlecolor,tablebodycolor,tablebodyacolor from board where boardid="&Request("boardid")
rs.open sql,conn,1,1
if not rs.eof then
	boardtitle=rs("boardtitle")
	boardmaster=rs("boardmaster")
	bgcolor=rs("bgcolor")
	bgimage=rs("bgimage")
	boardtype=rs("boardtype")
	tablebackcolor=rs("tablebackcolor")
	tabletitlecolor=rs("tabletitlecolor")
	tablebodycolor=rs("tablebodycolor")
	tablebodyacolor=rs("tablebodyacolor")
end if
rs.close
end if
%>