📄 u_color.asp
字号:
<!--#INCLUDE FILE="u_isuser.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=version%>——颜色表</title>
<link rel=stylesheet type=text/css href=include/site.css>
<script language="JavaScript" src="script/jsfun.js"></script>
</head>
<%
if request("action")="update" then
call update()
else%>
<body>
<p align="center">当前颜色表</p>
<table width="60%" border="1" align="center" cellspacing="0" bordercolor="<%=tablebordercolor%>">
<tr>
<td>配色方案</td>
<td>tablebordercolor</td>
<td>tablebodycolor1</td>
<td>tablebodycolor2</td>
<td>tabletitlecolor</td>
<td>tablecontentcolor</td>
<td>TablefontColor</td>
<td>bodycolor</td>
<td>MenuBackColor</td>
<td>MenuFontColor</td>
</tr>
<tr>
<td><%=themename%></td>
<td bgcolor="<%=TableborderColor%>"> </td>
<td bgcolor="<%=tablebodycolor1%>"> </td>
<td bgcolor="<%=tablebodycolor2%>"> </td>
<td bgcolor="<%=tabletitlecolor%>"> </td>
<td bgcolor="<%=tablecontentcolor%>"> </td>
<td bgcolor="<%=TablefontColor%>"> </td>
<td bgcolor="<%=bodycolor%>"> </td>
<td bgcolor="<%=MenuBackColor%>"> </td>
<td bgcolor="<%=MenuFontColor%>"> </td>
</tr>
</table>
<FORM action="u_color.asp?action=update" method=post name="userform" onsubmit="return submitonce(this);">
<table width="60%" border="1" align="center" cellspacing="0" bordercolor="<%=tablebordercolor%>">
<tr><td colspan="10">可选择的颜色配置：
<%
set rs=conn.execute("Select * from [user] where userid='"&session("name")&"'")
call ThemeList(rs("theme"))%> <INPUT value="更 新" name=Submit type=submit> </td></tr>
<tr>
<td>配色方案</td>
<td>tablebordercolor</td>
<td>tablebodycolor1</td>
<td>tablebodycolor2</td>
<td>tabletitlecolor</td>
<td>tablecontentcolor</td>
<td>TablefontColor</td>
<td>bodycolor</td>
<td>MenuBackColor</td>
<td>MenuFontColor</td>
</tr>
<%
sql1 = "select * from theme"
set colorrs=conn.Execute(sql1)
do while not colorrs.eof
aTableborderColor=colorrs("TableborderColor")
aTablebodyColor1=colorrs("TablebodyColor1")
aTablebodyColor2=colorrs("TablebodyColor2")
aTabletitleColor=colorrs("TabletitleColor")
aTablecontentColor=colorrs("TablecontentColor")
aTablefontColor=colorrs("TablefontColor")
abodycolor=colorrs("bodycolor")
aMenuBackColor=colorrs("MenuBackColor")
athemename=colorrs("themename")
%>
<tr>
<td><%=athemename%></td>
<td bgcolor="<%=aTableborderColor%>"> </td>
<td bgcolor="<%=atablebodycolor1%>"> </td>
<td bgcolor="<%=atablebodycolor2%>"> </td>
<td bgcolor="<%=atabletitlecolor%>"> </td>
<td bgcolor="<%=atablecontentcolor%>"> </td>
<td bgcolor="<%=aTablefontColor%>"> </td>
<td bgcolor="<%=abodycolor%>"> </td>
<td bgcolor="<%=aMenuBackColor%>"> </td>
<td bgcolor="<%=aMenuFontColor%>"> </td>
</tr>
<%
colorrs.movenext
loop
%>
</table>
</form>
<%
end if
sub update()
dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
StrSQL = "select theme from [user] where userid='"&session("name")&"'"
rs.open StrSQL,conn,1,3
if rs.eof and rs.bof then
errmsg=errmsg+"<br>"+"<li>请确认你是注册用户！"
call error(errmsg)
exit sub
end if
rs("theme")=request("theme")
rs.Update
rs.close
set rs=nothing
stitle="修改配色方案"
smsg="您已经成功的修改了您的个人配色方案。"
call success(stitle,smsg)
end sub%>
<p> </p></body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -