📄 menucolor.asp
字号:
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css"><!--
.p9 {font-size: 12px; line-height: 120%;}
.title {font-size: 25px;}
.div1 { border-top:buttonface 1px solid;border-left:buttonface 1px solid;border-bottom:windowframe 1px solid;border-right:windowframe 1px solid;}
.div2 { border-top:window 1px solid;border-left:window 1px solid;border-bottom:buttonshadow 1px solid;border-right:buttonshadow 1px solid;}
.Mover {background-color:highlight;color:highlighttext;font-size: 12px;cursor:default;font-size: 12px;}
.Mout {background-color:buttonface;color:buttontext;font-size: 12px;cursor:default;font-size: 12px;}
td {font-size: 14.9px; line-height: 1.3}
select {font-size: 14.9px;}
body {font-size: 14.9px; line-height: 1.3}
A {text-decoration: none;}
A:hover {color: #FF0000; text-decoration: underline;}
--></style>
<title>工具箱－系统颜色</title>
</head>
<!--#include file=../data/connect.asp-->
<!--#include file=../data/myprg.asp-->
<!--#include file=../data/username.inc-->
<script language="javascript">
function SetColor(value){
var aff=showModalDialog("../js/selcolor.html","","dialogWidth:18.5em; dialogHeight:17.5em;status:0");
if(typeof(aff)=="undefined" || aff=="#NaNNaNNaN")return value;
else return aff;
}
</script>
<%
showtitle("系统颜色")
if Request.ServerVariables("REQUEST_METHOD")="POST" then
dim menucolor,menutextcolor
menucolor = request("menucolor")
menutextcolor = request("menutextcolor")
if len(trim(menucolor)) <> 7 then menucolor = "#6699cc"
if len(trim(menutextcolor)) <> 7 then menutextcolor = "#ffffff"
sql="update users set bgcolor = '"&menucolor&"',forecolor = '"&menutextcolor&"' where username='"&split(session("username"),";")(2)&"'"
conn.execute(sql)
call closedatabase
Response.Write "<script language = javascript>"
Response.Write "top.location.href = '../main/main.asp';"
Response.Write "</script>"
Response.End
end if
sql = "select bgcolor,forecolor from users where username = '"&split(session("username"),";")(2)&"'"
set rs = conn.execute(sql)
if not rs.eof then
bgcolor = rs("bgcolor")
forecolor = rs("forecolor")
end if
rs.close
set rs = nothing
call closedatabase
%>
<body topmargin=0 bgcolor="#FFFFFF" onload="javascript:document.input1.menucolor.focus();">
<table border=0 cellspacing=1 cellpadding=3 width=100%><tr><td align=center bgcolor=#E0E0E0>
<br><p align=left> 每个人都有自己喜欢的颜色，你如果不喜欢系统现在的颜色，可以把它换成自己喜欢的。</p>
<form method="POST" action="menucolor.asp" name="input1">
菜单背景色: <input type="text" name="menucolor" size="7" maxlength="7" value="<%=bgcolor%>" onkeydown="javascript:if(event.keyCode==13)event.keyCode=9">
<input type=button name=setmenucolor value=改 style="font-size:12px;" onclick='menucolor.value=SetColor(menucolor.value)'onkeydown="javascript:if(event.keyCode==13)event.keyCode=9">
菜单文本色: <input type="text" name="menutextcolor" size="7" maxlength="7" onkeydown="javascript:if(event.keyCode==13)event.keyCode=9" value="<%=forecolor%>">
<input type=button name=setmenutextcolor value=改 style="font-size:12px;" onkeydown="javascript:if(event.keyCode==13)event.keyCode=9" onclick='menutextcolor.value=SetColor(menutextcolor.value)'>
<br><br>以上颜色清空即可恢复成缺省</p><BR>
<p>
<input type="submit" value=" 确 定 " name=modify>
<input type="reset" value=" 恢 复 ">
</p>
</td>
</tr>
</table>
<p> </p>
</body>
<!--#include file=../data/copyright.asp-->
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -