skin.asp
来自「用JAVA编写的网络留言簿。前台功能 一、用户注册/注册资料修改。 二、」· ASP 代码 · 共 143 行
ASP
143 行
<!--#include file="adminsession.asp"-->
<!--#include file="conn.asp"-->
<!--#include file="const.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<link href="css.css" rel="stylesheet" type="text/css">
<script language=javascript>
function check1()
{
if(document.form1.bgcolor.value.length!=7)
{
alert("背景颜色非法!");
return false;
}
if(document.form1.tabbgcolor.value.length!=7)
{
alert("边框颜色非法!");
return false;
}
if(document.form1.tdbgcolor.value.length!=7)
{
alert("面板颜色非法!");
return false;
}
if(document.form1.td1bgcolor.value.length!=7)
{
alert("底部颜色非法!");
return false;
}
if(document.form1.td2bgcolor.value.length!=7)
{
alert("其它颜色非法!");
return false;
}
if(document.form1.skinname.value=="")
{
alert("必须给颜色风格起一个名字!");
return false;
}
}
</script>
</head>
<body>
<script language="JavaScript">
function foreColor()
{
var arr = showModalDialog("selcolor.html", "", "dialogWidth:18.5em; dialogHeight:17.5em; status:0");
if (arr != null) format('forecolor', arr);
else Composition.focus();
}</script>
<table width="100%" height="100%" border="0" bgcolor="<%=tdbgcolor%>">
<form name="form2" method="post" action="edit.asp">
<tr>
<td height="26" bgcolor="<%=tdbgcolor%>">
<%sql="select * from [skin] order by id"
set rs=conn.execute(sql)
do while not rs.eof%>
<table width="100%" border="0">
<tr>
<%for i=1 to 5
if rs.eof then exit do%>
<td width="20%">
<div align="center">
<%if rs("bgcolor")=bgcolor and rs("tabbgcolor")=tabbgcolor and rs("tdbgcolor")=tdbgcolor and rs("td1bgcolor")=td1bgcolor and rs("td2bgcolor")=td2bgcolor then%>
当前
<input type="radio" name="id" value="<%=rs("id")%>" checked>
<%=rs("skinname")%>
<%else%>
<input type="radio" name="id" value="<%=rs("id")%>">
<%=rs("skinname")%>
<%end if%>
</div></td>
<%rs.movenext
next%>
</tr>
</table>
<%loop
rs.close%> </td>
</tr>
<tr>
<td height="22" bgcolor="<%=tdbgcolor%>">
<div align="center">
<input type="submit" name="Submit" value="选定颜色">
<input name="Submit" type="submit" id="Submit" value="删除颜色">
</div></td>
</tr></form>
<tr>
<td colspan="2" valign="top" bgcolor="<%=tdbgcolor%>">
<hr color="<%=tabbgcolor%>" width="100%" size="1">
<table width="100%" border="0">
<tr>
<td width="58%"><div align="center"><font color="#FF0000"><strong><br>
<br>
选定颜色后,将颜色框中的颜色代码拖到所需的框中</strong></font></div>
<form name="form1" method="post" action="edit.asp" onsubmit="javascript:return check1();">
<div align="center">
<p>背景颜色:
<input name="bgcolor" type="text" id="bgcolor" size="8">
边框颜色:
<input name="tabbgcolor" type="text" id="tabbgcolor" size="8">
<br>
<br>
面板颜色:
<input name="tdbgcolor" type="text" id="tdbgcolor" size="8">
底部颜色:
<input name="td1bgcolor" type="text" id="td1bgcolor" size="8">
<br>
<br>
其它颜色:
<input name="td2bgcolor" type="text" id="td2bgcolor" size="8">
保存名称:
<input name="skinname" type="text" id="skinname" size="8">
<br>
<br>
<input name="Submit" type="submit" id="Submit" value="保 存">
<input type="reset" name="Submit3" value="重 置">
</p>
</div>
</form></td>
<td width="42%"><!--#include file="selcolor.asp"--></td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?