⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 small_product.asp

📁 商城源码程序(上海数字商城整站) 功能列表: 商品管理
💻 ASP
字号:

<!--#include file="conn.asp"-->
<%call time_out()%>
<%
if instr(session("proview"),"s1")=0  then
response.Write "<script language=javascript>alert('您无权操作!');window.location.href='index.asp';</script>"
response.end
end if%>

<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>产品二级分类管理</title>
<style type="text/css">
<!--
body {
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
}
-->
</style></head>
<link href="css.css" rel="stylesheet" type="text/css">
<body>
<%
bigid=request.QueryString("bigid")
bigname=request.QueryString("bigname")
%>

<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="22%" height="30" align="center">一级分类:</td>
    <td width="78%">
	<select name="select" onChange="var jmpURL=this.options[this.selectedIndex].value ; if(jmpURL!='') {window.location=jmpURL;} else {this.selectedIndex=0 ;}" >
      <option >选择商品分类</option>
      <%set rs=server.createobject("adodb.recordset")
		rs.Open "select * from pro_big order by bigid",conn,1,1
		do while not rs.eof %>
      <option value="small_product.asp?bigid=<%=rs("bigid")%>&bigname=<%=rs("bigname")%>" <%if rs("bigid")=cint(request.QueryString("bigid")) then %>selected<%end if%>><%=trim(rs("bigname"))%></option>
       <%rs.movenext
		loop
		rs.close
		set rs=nothing
		%>
     </select>
	</td>
  </tr>
</table>
<table width="98%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolordark="#FFFFFF" bordercolorlight="#527EDD">
  <tr bgcolor="#6699cc">
    <td width="70%" height="25" align="center" bgcolor="#6699cc"><font color="#FFFFFF">分类名称</font></td>
    <td align="center"><font color="#FFFFFF">修改</font></td>
    <td align="center"><font color="#FFFFFF">删除</font></td>
  </tr>
        <%
        if bigid="" then
        response.Write "<div align=center><font color=red>请选择上面的分类</font></div>"
        else
        set rs=server.CreateObject("adodb.recordset")
        rs.Open "select * from pro_small where bigid="&bigid,conn,1,1
         if rs.EOF and rs.BOF then
		  response.Write "<div align=center><font color=red>还没有分类</font></center>"
		  else
         do while not rs.EOF
         %>

<form name="form1" method="post" action="save_small.asp?action=edit&bigid=<%=bigid%>&smallid=<%=rs("smallid")%>">

  <tr>
    <td height="25" align="center">
        <input name="smallname" type="text" class="inputc" value="<%=rs("smallname")%>">    </td>
    <td align="center"><input name="Submit" type="submit" class="btn" value="修改"></td>
    <td align="center"><a href="save_small.asp?action=del&bigid=<%=bigid%>&smallid=<%=rs("smallid")%>" onClick="return confirm('确定删除?')">删除</a></td>
  </tr>
  </form>
       <%rs.movenext
        loop
        rs.close
        set rs=nothing
        end if
        end if
		%>
</table>

<form name="form2" method="post" action="save_small.asp?action=add&bigid=<%=bigid%>">
<table width="98%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolordark="#FFFFFF" bordercolorlight="#527EDD">
  <tr bgcolor="#6699cc">
    <td width="70%" height="25" align="center"><font color="#FFFFFF">分类名称</font></td>
    <td width="30%" align="center"><font color="#FFFFFF">操作</font></td>
  </tr>
  <tr>
    <td height="25" align="center">
      <input name="smallname" type="text" class="inputc" id="smallname">    </td>
    <td align="center"><input name="Submit2" type="submit" class="btn" value="新增"></td>
  </tr>
</table>
</form>
</body>
</html>

⌨️ 快捷键说明

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