admin_moban.asp

这次自已做的美工,可能很难看,但主要是为提高效率,这次全部生成了静态,只有一个链接查看最新文章的列表没有生成,因为我觉得没必要生成,浪费空间大小,那是一个很少用到的功能!这次去掉了很多功能,这个版本主

<!--#include file="conn.asp"-->
<!--#include file="seeadmin.asp"-->
<%

call gadmin
%>
<style type="text/css">
<!--
.style1 {
	color: #FF0000;
	font-weight: bold;
	font-size: 18px;
}
.style3 {font-size: 14px}
body {
	background-color: #CCCCFF;
}
-->
</style>
<script language="javascript">

	function doSubmit2(){
		if (document.myform2.moban1.value==""){
			alert("请选择要设定模板！");
			return false;
		}
			document.myform2.submit();
	}
function doSubmit4(){
		if (document.myform4.moban3.value==""){
			alert("请选择删除的模板！");
			return false;
		}
			document.myform4.submit();
	}
</script>
<table width="700" border="1" align="center" bordercolor="#FFCCFF" bgcolor="#A6CAF0" class="style1">
  <tr>
    <th bgcolor="#A6CAF0" scope="col">模 板 管 理</th>
  </tr>
</table>
<table width="700" border="1" align="center" bordercolor="#F0CBCB" bgcolor="#D4BFFF" class="style1">

  <form name="myform2" method="post" action="setmoban.asp">
    <tr>
      <%
	dim strsql,rs
strsql ="SELECT  * From moban Order By id DESC"
set rs=conn.execute(strsql)
%>
      <td height="25" bgcolor="#D4BFFF"><div align="left"> 设置模板:
              <select name="moban1">
                <option value="">选择模板</option>
                <br>
                <%
          do while Not rs.eof
          %>
                <option value="<%=rs("id")%>"><%=rs("moban")%></option>
                <br>
                <%
          rs.movenext
          loop
          %>
              </select>
      </div></td>
      <td bgcolor="#D4BFFF"><input type="button" name="btnSubmit" value=" 设 定 " onClick="doSubmit2()"></td>
    </tr>
<%
rs.close
set rs=nothing
%>
  </form>
  
  <form method="post" action="deletemoban.asp"  name="myform4">
<%
set rs2=conn.execute(strsql)
%>    <tr>
      <td height="25" bgcolor="#D4BFFF"><div align="left">删除模板:            <select name="moban3">
                <option value="">选择模板</option>
                <br>
                <%
          do while Not rs2.eof
          %>
                <option value="<%=rs2("id")%>"><%=rs2("moban")%></option>
                <br>
                <%
          rs2.movenext
          loop
          %>
              </select>
      </div></td>
      <td bgcolor="#D4BFFF"><input type="button" name="btnSubmit" value=" 删 除 " onClick="doSubmit4()"></td>
    </tr>
  </form>
</table>