style.asp

BBS论坛的开发和设计

<%	
	if styleid = "" or not(IsNumeric(styleid)) then styleid = 1
	if styleid = 1 then
		Skin = "Default"
	else
		Skin = styleid
	end if
	Css_path = "Skin/"&Skin&"/style.Css"
	if Not(IsArray(Application(JBBMasterCookies&"BBS_Skin_"&Skin))) then
		set rs = conn.exeCute("select TopString,table_Top,table_Bottom,img_path,Menu_top,BottomString,Copyright_Bottom from JBB_style where styleid="&styleid &" or styleid=1 order By styleid desc")
		if not(rs.bof and rs.eof) then
			TopString = rtrim(rs(0))
			table_Top = rtrim(rs(1))
			table_Bottom = rtrim(rs(2))
			if rs(3) then
				img_path = "Skin/"&Skin&"/img/"
			else
				img_path = "Skin/Default/img/"
			end if
			if rs(4) then
				Menu_top = True
			else
				Menu_top = false
			End if
			BottomString = rs(5)
			Copyright_Bottom = rs(6)
			Application.Lock
				Application(JBBMasterCookies&"BBS_Skin_"&Skin)=array(TopString,table_Top,table_Bottom,img_path,Menu_top,BottomString,Copyright_Bottom)
			Application.UnLock			
		end if	
		set rs = nothing
	End if
	BBS_Skin=Application(JBBMasterCookies&"BBS_Skin_"&Skin)
%>