skin_css.asp

一个功能很全面的设计网站,可以作为工作室、个人主页、技术网站等

<%
dim rsSkin,sqlSkin,tSkinID,Skin_CSS,Body_Label
tSkinID=request.Cookies("Skin")("Class" & ClassID)
if tSkinID="" then
	tSkinID=0
else
	tSkinID=Clng(tSkinID)
end if
if tSkinID>0 then
	SkinID=tSkinID
end if
sqlSkin="select * from Skin where SkinID=" & SkinID
set rsSkin=server.CreateObject("adodb.recordset")
rsSkin.open sqlSkin,conn,1,1
if rsSkin.bof and rsSkin.eof then
	rsSkin.close
	sqlSkin="select * from Skin where IsDefault=True"
	rsSkin.open sqlSkin,conn,1,1
	call main()	
else
	call main()
end if
rsSkin.close
set rsSkin=nothing

sub main()
	Body_Label=rsSkin("Body")
	Skin_CSS=split(rsSkin("Skin_CSS"),"|||")
%>

<%
end sub
%>