setskin.asp

来自「CityCN V2.1 是自主开发的基于ASP+Access的新型资讯信息系统。」· ASP 代码 · 共 24 行

ASP
24
字号
<%response.Expires=-1%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name=keywords content="<%=sitekeywords%>">
<meta name="description" content="<%=sitedescription%>">
<title><%response.write "设置风格  --  " & sitename%></title>
</head>
<body bgcolor="#E9E9E9" topmargin="2" leftmargin="0">
<% 
If Request.QueryString("mycolor")<>"" then
  response.write "<div style='font-size: 10pt; color: #FF0000; text-align:center'>免费版不提供风格</div>"
else
%>
<select name="mycolor" style="width: 150;" onchange="if(this.options[this.selectedIndex].value!=''){window.open(this.options[this.selectedIndex].value,'_self');}" size="1">
  <option value="?mycolor=lan" <%if trim(request.cookies("skin_color"))="lan" then response.write "selected"%>>蓝色情怀(默认风格)</option>
  <option value="?mycolor=cheng" <%if trim(request.cookies("skin_color"))="cheng" then response.write "selected"%>>橙色风暴</option>
  <option value="?mycolor=zi" <%if trim(request.cookies("skin_color"))="zi" then response.write "selected"%>>紫色风情</option>
  <option value="?mycolor=hong" <%if trim(request.cookies("skin_color"))="hong" then response.write "selected"%>>红色风情</option>
</select>
<%End if%>
</body>
</html>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?