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 + -
显示快捷键?