moveclass.asp

来自「一个经过完善设计的经典网上购物系统」· ASP 代码 · 共 68 行

ASP

68 行

<!--#include file="conn.asp"-->
<%if session("shopxpadmin")="" then
response.Write "<script language='javascript'>alert('网络超时或您还没有登陆！');window.location.href='login.asp';</script>"
response.End
else
if session("flag")>1 then
response.Write "<p align=center><font color=red>您没有此项目管理权限！</font></p>"
response.End
end if
end if
%>
<html><head><title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../img/css.css" rel="stylesheet" type="text/css">
</head>
<body>
<table class="tableBorder" width="90%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#FFFFFF">
<form name="form1" method="post" action="savemoveclass.asp">
<tr> 
<td colspan="4" align="center" background="../images/admin_bg_1.gif"><b><font color="#ffffff">商品类别转移</font></b></td>
</tr>
<tr> 
<td align="right"  width="30%">请选择要转移的小类：</td>
<td  width="70%"> 
<select name="stype_id" size="1" class="smallinput">
<%set rs=server.CreateObject("adodb.recordset")
                rs.Open "select stype_id,stype_name from stype order by stype_id",conn,1,1
                if rs.EOF and rs.BOF then
                response.Write "<option value=0>还没有分类</option>"
                else
                do while not rs.EOF
                %>
<option value="<%=int(rs("stype_id"))%>"><%=trim(rs("stype_name"))%></option>
				<%rs.MoveNext
                loop
                rs.Close
                set rs=nothing
                end if%>
</select>
请选择转移到大类：
<select name="btype_id" size="1" class="smallinput">
<%set rs=server.CreateObject("adodb.recordset")
                rs.Open "select btype_id,btype_name from btype order by btype_idorder",conn,1,1
                if rs.eof and rs.bof then
                response.Write "<option value=0>还没有分类</option>"
                else
                do while not rs.eof
                %>
<option value="<%=int(rs("btype_id"))%>"><%=trim(rs("btype_name"))%></option>
<%rs.movenext
                loop
                rs.close
                set rs=nothing
                end if%>
</select>
</td>
</tr>
<tr>
<td ></td>
<td  height="30"> 
<input type="submit" name="Submit" value="确定转移">
</td>
</tr>
</form>
</table>
 
</body>
</html>

moveclass.asp - 源码说明

本页面展示了「一个经过完善设计的经典网上购物系统」中的 moveclass.asp 源码文件，采用 ASP 编程语言编写，共 68 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与网上购物系统相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?