skin_css.asp

冠龙科技企业自助建站系统冠龙科技企业自助建站系统冠龙科技企业自助建站系统冠龙科技企业自助建站系统冠龙科技企业自助建站系统冠龙科技企业自助建站系统冠龙科技企业自助建站系统冠龙科技企业自助建站系统

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

sub main()
	Skin_CSS=rsSkin("Skin_CSS")
%>
<style type="text/css">
<%=Skin_CSS%>
</style>
<%
end sub
%>