skin_css.asp

来自「设计考虑校园电子商务模式」· ASP 代码 · 共 42 行

<%
'****************************************************
' 多多校园                      Power by ddtaobao.com
' Email:[e-mail]               OICQ:136465584 
' Web: http://www.ddtaobao.com              作者:多多
' 校园、企业、医院、公司程序定做，系统开发，网站制作!
' Copyright (C) 2007 ddtaobao.com All Rights Reserved
'****************************************************
%><%
dim rsSkin,sqlSkin,tSkinID,Body_css
tSkinID=request.Cookies("Skin")
if tSkinID="" then
	tSkinID=0
else
	tSkinID=Clng(tSkinID)
end if
if tSkinID>0 then
	SkinID=tSkinID
end if
sqlSkin="select * from dd_Skin where SkinID=" & tSkinID
set rsSkin=server.CreateObject("adodb.recordset")
rsSkin.open sqlSkin,conn,1,1
if rsSkin.bof and rsSkin.eof then
	rsSkin.close
	sqlSkin="select * from dd_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_css=rsSkin("Body")
%>
<style type="text/css">
<%=Body_css%>
</style>
<%
end sub
%>