WEB源码(ASP,PHP,...)

开发平台：

HTML/CSS

admin_color.asp：源码内容

							<!--#include file =conn.asp-->
<!-- #include file="inc/const.asp" -->
<title><%=txl_info(0)%>--管理页面</title>
<!--#include file =inc/admin_css.asp-->
<meta NAME=GENERATOR Content="Microsoft FrontPage 3.0" CHARSET=GB2312>
<BODY leftmargin="0" bottommargin="0" rightmargin="0" topmargin="0" marginheight="0" marginwidth="0" bgcolor="#DDEEFF">
<%
	if not supermaster or session("flag")="" then
		Errmsg=Errmsg+"<br>"+"<li>本页面为管理员专用，请<a href=admin_index.asp target=_top>登陆</a>后进入。<br><li>您没有管理本页面的权限。"
		call txl_error()
	else
		if request("action")="save" then
			call saveconst()
		else
			call consted()
		end if
		if founderr then call txl_error()
		conn.close
		set conn=nothing
	end if
sub consted()
dim sel
%>
<table width="95%" border="0" cellspacing="1" cellpadding="3"  align=center class="tableBorder">
<form method="POST" action=admin_color.asp?action=save>
<tr> 
<th width="100%" colspan=3>当前使用模板设置</th>
</tr>
<%
dim skinname
if not isnumeric(request("skinid")) or request("skinid")="" or request("skinid")="0" then
	sqlstr=" active=1"
else
	sqlstr=" id="&request("skinid")&" "
end if
sql = "select * from config where "&sqlstr&""
set rs=conn.execute(sql)
if rs.eof and rs.bof then
	response.write "错误的系统参数，没有选择模板。"
	response.end
else
	skinname=rs("skinname")
	skinid=rs("id")
	txl_body=split(rs("txl_body"),"|||")
end if
rs.close
set rs=nothing
%>
<input type=hidden name="skinid" value="<%=skinid%>">
<tr> 
<td width="45%" class=txlrow><u>当前模板名称</u>

						