📄 addsort.asp

📁 网络购物
💻 ASP
字号:
<%'=========================================''         凡人网络购物系统V4.0免费版'    FreeDown.Net info@freedown.net '            www.freedown.net'     版权所有·免费版仅供研究测试只用'            商业使用请购买正版''=========================================%>
<%
if session("admin_name")="" then
    response.redirect "login.asp"
end if
%>
<!--#include file="conn.asp"--><head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href=../css.css rel=STYLESHEET type=text/css>
</head>
<%
    sql="select * from sort"
    set rs=server.createobject("adodb.recordset")
    rs.open sql,conn,3,3
%>


<table border="0" width="100%" cellspacing="1">
  <tr>
    <td width="100%">
      <form method="POST" action="addsort1.asp">
<input type="hidden" name="options" value>
  <table border="0" cellpadding="0" cellspacing="0" width="95%" align="center">

    <tr>
      <td><div align="center"><center><p>类别： 
<select name="subject" size="1"style="font-size: 9pt">
      
<%
	if rs.eof and rs.bof then
	     response.write "<option value=>请增加类别"
	else
         Do while not rs.eof
             response.write "<option value='" +  Cstr(rs("sort_id")) + "'>" + rs("sort_name") + "</option>"
             rs.MoveNext
         Loop
	end if
%>
      </select>
      <input type="submit" value="删除" name="B2" onclick="form.options.value='del'" ></td>
    </tr>
    <tr align="center">
      <td><br>
      </td>
    </tr>
    <tr align="center">
      <td><p>新名字：<input type="text" name="reTitle" size="20" class=smallinput>
      <input type="submit" value="改名" name="B1" onclick="form.options.value='rename'">
      </td>
    </tr>
    <tr align="center">
      <td><br>
      </td>
    </tr>
    <tr align="center">
      <td><p>新类别：<input type="text" name="newTitle" size="20" class=smallinput>
      <input type="submit" value="新增" name="B3" onclick="form.options.value='new'"></td>
    </tr>
  </table>
</form>

    </td>
  </tr>
</table>
<%

set rs=nothing

%>


<% set rs2=server.createobject("adodb.recordset")
   sql2="select * from Nsort order by Nsort_id"
   rs2.open sql2,conn,1,1
%>

<table width="758" border="0" cellspacing="0" cellpadding="0" height="75">
  <tr>
    <td>
<form method="POST" action="addsort2.asp">
<input type="hidden" name="options" value>
  <table border="0" cellpadding="0" cellspacing="0" width="95%" align="center">
    <tr>
      <td align="center"><hr><b>子专题管理</b></td>
    </tr>
    <tr align="center">
      <td><br>
      </td>
    </tr>
    <tr>
      <td><div align="center"><center><p>子专题： 
<select name="subject" size="1" style="font-size: 9pt">
     
<%
	if rs2.eof and rs2.bof then
	     response.write "<option value=>请增加专题"
	else
         Do while not rs2.eof
             response.write "<option value='" +  Cstr(rs2("Nsort_id")) + "'>" + rs2("Nsort_name") + "</option>"
             rs2.MoveNext
         Loop
	end if
%>
      </select>
      <input type="submit" value="删除" name="B2" onclick="form.options.value='del'"></td>
    </tr>
    <tr align="center">
      <td><br>
      </td>
    </tr>
<% set rs=server.createobject("adodb.recordset")
   sql="select * from sort order by sort_id"
   rs.open sql,conn,1,1
%>

    <tr align="center">
      <td><p>专题修改：<input type="text" name="reTitle" size="20"  class=smallinput>
在 <select name="sort_id" size="1"style="font-size: 9pt">
      
<%
	if rs.eof and rs.bof then
	     response.write "<option value=>请增加类别"
	else
         rs.MoveFirst
         Do while not rs.eof
             response.write "<option value='" +  Cstr(rs("sort_id")) + "'>" + rs("sort_name") + "</option>"
             rs.MoveNext
         Loop
	end if
%>
      </select> 中 
      <input type="submit" value="改名" name="B1" onclick="form.options.value='rename'"><br>(请选择上方相应子类别,然后输入新名字和选择类别)
      </td>
    </tr>
    <tr align="center">
      <td><br>
      </td>
    </tr>
    <tr align="center">
      <td><p>新专题：<input type="text" name="newTitle" size="20"  class=smallinput>
      在 <select name="psubject" size="1"style="font-size: 9pt">
      
<%
	if rs.eof and rs.bof then
	     response.write "<option value=>请增加类别"
	else
         rs.MoveFirst
         Do while not rs.eof
             response.write "<option value='" +  Cstr(rs("sort_id")) + "'>" + rs("sort_name") + "</option>"
             rs.MoveNext
         Loop
	end if
%>
      </select> 中
      <input type="submit" value="新增" name="B3" onclick="form.options.value='new'"></td>
    </tr>
  </table>
</form></td>
  </tr>
</table>
⌨️ 快捷键说明

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