addclass.asp

实现一个用JSP、Servlet技术实现的小型物流网站系统。实现功能如下：管理员通过登录该系统

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="../prohead.asp"-->
 <!--#include file="../checkrole.asp"-->
<%
call checkuser("cp")

set rs=server.createobject("adodb.recordset")
sql="select * from Yixiang_productclass where gsid="&session("id")&""
rs.open sql,conn,1,1
%>

<br>
<TABLE width=778 border=0 align="center" cellPadding=0 cellSpacing=0>
  <TBODY>
  <TR>
    <TD 
    style="BACKGROUND-POSITION: right 50%; BACKGROUND-IMAGE: url(../images/bg1.gif); BACKGROUND-REPEAT: repeat-y; BACKGROUND-COLOR: #ffffff" 
    vAlign=top align=middle>    
      <TABLE cellSpacing=0 cellPadding=0 width=100% border=0>
        <TBODY>
        <TR>
              <TD width="74%"><IMG height=32 src="../images/product_manage.gif" width=578 
            border=0></TD>
              <TD width="26%" background="../images/info_bg.gif">&nbsp;</TD>
        </TR>
		  </TBODY></TABLE>
  
	    <table border="1" cellspacing="0" cellpadding="0" Class="TableLine" bordercolor="#F9F9F9" width="100%">
          <tr> 
            <td height="30" colspan="7" align=center bgcolor="#F9F9F9"><b>大 类 管 理</b> </td>
          </tr>
          <tr align="center" height="30"> 
            <td bgcolor="#DCEDFC"><font color="#FF0000">大类名称</font></td>
            <td bgcolor="#DCEDFC"><font color="#FF0000">操&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;作</font></td>
          </tr>
<%	
if rs.eof or rs.bof then
response.write"<div align=center>您尚未创建产品分类</idv>"
else		
do while not rs.eof
%>
<form name=form2 method=post action=upproductclass.asp?cmd=up&bigclassid=<%=rs("bigclassid")%>>
          <tr> 
            <td height="35" align="center" bgcolor="#FFFFFF"><font color="#0066CC">请输入名称</font>：
              <input type=text name="bigclassname" value="<%=rs("BigClassName")%>" size=30 maxlength=25></td>
            <td height="20" align="center" bgcolor="#FFFFFF"><input type=submit name=Submit3 value=修改  > 
              <INPUT onClick="if(confirm('将删除该分类下的所有产品,确定吗?')){window.location.href='upproductclass.asp?cmd=del&bigclassid=<%=rs("bigclassid")%>';}" type=button value=删除 name=button2> 
          </tr>
</form>
<%
rs.MoveNext
Loop
end if
%>
          <tr> 
            <td colspan="7" height="40" align="center" bgcolor="#F9F9F9"><font color="#FF0000">删除产品大类时请谨慎！</font></td>
          </tr>
          <tr> 
          <form name="form1" method="post" action="upproductclass.asp?cmd=add">
              <td align="center" colspan="7" height="51"> <font color="#0066CC">添加大类</font>： 
                <input name="bigclassname" size="25" maxlength="25"> 
        <input type="submit" name="Submit" value="添加">
        <input type="reset" name="Submit2" value="重填">
              </td>
            </form>
          </tr>
        </table>
        <table width="100%" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td height="5" bgcolor="#F9F9F9">&nbsp;</td>
          </tr>
        </table>
  <br>
<br>
 </tr>
</table>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>