site-config.asp

简介：一个程序小巧而功能强大

<%
set rsConfig = server.createobject("adodb.recordset")
sqlConfig = "SELECT Site_Enabled, Site_Name, Site_Description, Site_Home_URL, Site_Forum_URL, Site_Time_Format, Site_Account_Create, Site_Allow_HTML, Site_Allow_BB, Site_Allow_Avatar, Site_Allow_Title, Site_Allow_Signature, Site_Allow_PostCount, Site_View_Topic, Site_View_Posts, Site_Email, Site_Email_Address, Site_Email_Signature, Site_Online_View, Site_Topic_Review, Site_Account_Verification FROM Forum_Config;"
rsConfig.Open sqlConfig, adoConn, CMDText

if rsConfig.eof or rsConfig.bof then
	rsConfig.close
	set rsConfig = nothing
else
	ConfigData = rsConfig.getrows()
	rsConfig.close
	set rsConfig = nothing
	Site_Enabled = ConfigData(0,0)
	Site_Name = ConfigData(1,0)
	Site_Description = ConfigData(2,0)
	Site_Home_URL = ConfigData(3,0)
	Site_Forum_URL = ConfigData(4,0)
	Site_Time_Format = ConfigData(5,0)
	Site_Account_Create = ConfigData(6,0)
	Site_Allow_HTML = ConfigData(7,0)
	Site_Allow_BB = ConfigData(8,0)
	Site_Allow_Avatar = ConfigData(9,0)
	Site_Allow_Title = ConfigData(10,0)
	Site_Allow_Signature = ConfigData(11,0)
	Site_Allow_PostCount = ConfigData(12,0)
	Site_View_Topic = ConfigData(13,0)
	Site_View_Posts = ConfigData(14,0)
	Site_Email = ConfigData(15,0)
	Site_Email_Address = ConfigData(16,0)
	Site_Email_Signature = ConfigData(17,0)
	Site_View_Online = ConfigData(18,0)
	if session("Site_Topics_Date") = "" then
		Site_Topics_Date = 10
	else
		Site_Topics_Date = int(session("Site_Topics_Date"))
	end if
	if request.form("postsdate") <> "" then
		session("Site_Topics_Date") = request.form("postsdate")
		Site_Topics_Date = int(session("Site_Topics_Date"))
	end if
	if request.form("postorder") = "" then
		Site_Topics_Order = "DESC"
	else
		Site_Topics_Order = request.form("postorder")
	end if
	Site_Time = db_time()
	Site_Topic_Review = ConfigData(19,0)
	Site_Account_Verification = ConfigData(20,0)
end if
%>