📄 ad_addsort.asp

📁 商品订单管理：商品分类管理添加与修改商品管理订单投诉订单反馈信息商品留言管理管理网站用户：管理用户管理后台管理员新闻公告管理：新闻添加（支持图片新闻）修改删除首页公告设置网站常规
💻 ASP
字号:
<!--#include file="conn.asp"-->
<%
if session("admin_name")="" then
    response.redirect "ad_login.asp"
end if
%>
<head>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=ISO-8859-1">
<link href=img/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="ad_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>1ST-Sort: 
<select name="subject" size="1"style="font-size: 9pt">
      
<%
	if rs.eof and rs.bof then
	     response.write "<option value=>Add 1st-Sort"
	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="Delete" name="B2" onclick="form.options.value='del'" ></td>
    </tr>
    <tr align="center">
      <td><br>
      </td>
    </tr>
    <tr align="center">
      <td><p>Change Name:<input type="text" name="reTitle" size="20" class=smallinput>
      <input type="submit" value="Change" name="B1" onclick="form.options.value='rename'">
      </td>
    </tr>
    <tr align="center">
      <td><br>
      </td>
    </tr>
    <tr align="center">
      <td><p>Add 1st-Sort:<input type="text" name="newTitle" size="20" class=smallinput>
      <input type="submit" value="Add" 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="ad_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>Manage 2st-Sort</b></td>
    </tr>
    <tr align="center">
      <td><br>
      </td>
    </tr>
    <tr>
      <td><div align="center"><center><p> 2st-Sort: 
<select name="subject" size="1" style="font-size: 9pt">
     
<%
	if rs2.eof and rs2.bof then
	     response.write "<option value=>Add  2st-Sort"
	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="Delete" 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>Change Name:<input type="text" name="reTitle" size="20"  class=smallinput>
Belong to <select name="sort_id" size="1"style="font-size: 9pt">
      
<%
	if rs.eof and rs.bof then
	     response.write "<option value=>Add 1st-Sort"
	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="Change" name="B1" onclick="form.options.value='rename'"><br>
      </td>
    </tr>
    <tr align="center">
      <td><br>
      </td>
    </tr>
    <tr align="center">
      <td><p>Add 2st-Sort:<input type="text" name="newTitle" size="20"  class=smallinput>
      Belong to<select name="psubject" size="1"style="font-size: 9pt">
      
<%
	if rs.eof and rs.bof then
	     response.write "<option value=>Add 1st-Sort"
	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="Add" name="B3" onclick="form.options.value='new'"></td>
    </tr>
  </table>
</form></td>
  </tr>
</table>
⌨️ 快捷键说明

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