admin_fen.asp

来自「这次自已做的美工,可能很难看,但主要是为提高效率,这次全部生成了静态,只有一个链」· ASP 代码 · 共 75 行

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

call gadmin
%>
<link href="../css/new.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
body {
	background-color: #CCCCFF;
}
-->
</style>
<script languang="javascipt">
function doSubmit(){
		if (document.myform1.fennei.value==""){
			alert("请填写分类名称！");
			return false;
		}
			document.myform1.submit();
	}
	</Script>
<%
iid=request("id")
strsqlf="select * from art_type where id="&iid
set rsf=conn.execute(strsqlf)
%>
<table width="301" border="0" align="center" bgcolor="#D4BFFF">
<form methed="post" action="admin_fens.asp" name="myform1">
  <tr>
    <td width="295" height="20" align="center" bgcolor="#A6CAF0"> <strong>编辑分类</strong></td>  
  </tr>
   <tr>
    <td width="295" height="20">分类名称:
     <input name="fennei" type="text" id="fennei" size="10" value="<%=rsf("art_type")%>"></td></tr>
	 <tr>
    <td align="left"> 
        <div align="left"> 所属分类:
          <select name="sid">
		  <option value="<%=rsf("sid")%>">默认分类</option><br>
		   <option value="-1">所属大类</option><br>
            <br>
				<%
	dim strsql,rs
strsql ="SELECT  * From art_type where sid=-1 Order By pid"
set rs=conn.execute(strsql)
%>
            <%
          do while Not rs.eof
          %>
            <option value="<%=rs("id")%>"><%=rs("art_type")%></option>
            <br>
            <%
          rs.movenext
          loop
          %>
          </select>
</div>
      </td>
	  
	 </tr>
	 <tr><td>
     排序
	  <input type="hidden" name="iid" value="<%=iid%>">
     <input name="pid" type="text" id="pid" size="5" value="<%=rsf("pid")%>">
     (由小到大)</td>  
  </tr>
   <tr>
    <td width="295" height="20" align="center"><input type="button" name="btnSubmit" value=" 修 改 " onclick="doSubmit()">&nbsp;
      <input type="reset" name="Submit" value=" 重 置 "></td>  
  </tr>
  </form>
</table>