css.asp

来自「网络程序-学生课表生成系统。运用了模块化思想组织代码」· ASP 代码 · 共 53 行

<!-------样式配置------------>
<!--#include file="../database/opendb.asp"-->
<%
    	     sql="select content from info where english_name ='bg_pic'"  
             rst.Open sql,my_conn,1,1   
%>



<style type="text/css">
<!--
body {
	background-image: url(<%=rst("content")%>);
      
         background-attachment: fixed;
}


<%
rst.close
    	     sql="select content from info where english_name = 'style1'" 
             rst.Open sql,my_conn,1,1   
style1_content=rst("content")
rst.close
%>
.style1 {<%=style1_content%>}
<%
    	     sql="select content from info where english_name = 'style2'" 
             rst.Open sql,my_conn,1,1   
style2_content=rst("content")
rst.close
%>
.style2 {<%=style2_content%>}
a:link {
	text-decoration: none;
}
a:visited {
	text-decoration: none;
}
a:hover {
	text-decoration: none;
}
a:active {
	text-decoration: none;
}
-->
</style>
<%
    	     sql="select content from info where english_name = 'title'" 
             rst.Open sql,my_conn,1,1   
%>
<title><%=rst("content")%></title>
<%rst.close%>