addoneadd.asp

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

<%dbdns="../../"%>
<!--#include file="../../inc/conn.asp"-->
<!--#include file="../cook.asp"-->
<%if fla0<>1 then
response.write "<script>alert('操作权限出错，您没有权限操作些功能');history.go(-1);</Script>"
Response.End 
end if%>
<%=citycss%>
<br>
<table width="95%" height="0" border="1" align="center" cellpadding="0" cellspacing="0" bordercolorlight="#cccccc" bordercolordark="#FFFFFF">
  <form name="form1" method="post" action="addonesave.asp?action=add">
    <tr align="center" bgcolor="#efefef"> 
      <td width="15%" height="25">大类添加</td>
      <td width="25%"><input type="text" name="ypxxone" size=15></td>
      <td width="12%" height="25">大类图片</td>
      <td width="28%"><input type="text" name="pic" size=30></td>
      <td width="20%"><input type="submit" name="Submit" value="添加" class=input1></td>
    </tr>
  </form>
</table>
<br>
<!--#######################################################################-->
<table width="95%" height="0" border="1" align="center" cellpadding="0" cellspacing="0" bordercolorlight="#cccccc" bordercolordark="#FFFFFF">
<tr align="center"> 
<%sql="select * from SMT_ypxxone order by SMT_date desc"
set rs=Server.CreateObject("ADODB.Recordset")                                                    
rs.open sql,conn,1,1 
	if (rs.eof and rs.bof) then
	response.write "<tr><td height=20 colspan=3>暂无内容</td></tr>"
else                                                 
n=0                                                   
do while not rs.eof
n=n+1%>
<td width="20%" height=25><a href=addoneadd.asp?id=<%=rs("SMT_ypxxone_id")%>&one=<%=rs("SMT_ypxxone")%>&pic=<%=rs("SMT_pic")%>><%=rs("SMT_ypxxone")%></a> <a href=addonesave.asp?id=<%=rs("SMT_ypxxone_id")%>&action=aa><font color=#cccccc>排序</font></a></td>
<%if n mod 5=0 then response.write"</tr><tr align=center>"
rs.movenext                                             
loop   
end if                                   
rs.close                                             
set rs=nothing%>
</tr>
</table>
<br>
<!--#######################################################################-->
<%if request("id")<>"" then%>
<table width="95%" height="0" border="1" align="center" cellpadding="0" cellspacing="0" bordercolorlight="#cccccc" bordercolordark="#FFFFFF">
<form name="form1" method="post" action="addonesave.asp?ypxxone_id=<%=request("id")%>&action=edit">
  <tr bgcolor="#efefef" align="center">
    <td width="15%" height="30">大类改名</td>
    <td width="25%"><input name="ypxxone" type="text" value="<%=request("one")%>" size=15></td>
    <td width="12%">大类图片</td>
    <td width="27%"><input name="pic" type="text" value="<%=request("pic")%>" size=30></td>
	<td width="21%"><input type="submit" name="Submit2" value="改名" class=input1>　　
<input type="button" name="button" title="点击此删除栏目及子栏目和内容" class=input1 value="删除" onClick="javascript:window.open('addonesave.asp?ypxxone_id=<%=request("id")%>&action=del','_self','')">
</td>
</tr>
</form>
</table>
<br>
<table width="95%" height="0" border="1" align="center" cellpadding="0" cellspacing="0" bordercolorlight="#cccccc" bordercolordark="#FFFFFF">
  <form name="form1" method="post" action="addtwosave.asp?action=add">
<input type="hidden" name="ypxxone_id" value="<%=request("id")%>">
<input type="hidden" name="ypxxone" value="<%=request("one")%>">
    <tr align="center" bgcolor="#efefef"> 
      <td width="15%" height="30">小类添加</td>
      <td width="25%"><input name="ypxxtwo" type="text" size=15></td>
      <td width="12%">小类图片</td>
	  <td width="27%"><input name="pic" type="text" size=30></td>
      <td width="21%"><input type="submit" name="Submit" value="添加" class="input1"></td>
    </tr>
  </form>
</table>
<br>
<table width="95%" height="0" border="1" align="center" cellpadding="0" cellspacing="0" bordercolorlight="#cccccc" bordercolordark="#FFFFFF">
<tr align="center"> 
<%sql="select * from SMT_ypxxtwo where SMT_ypxxone_id="&request("id")&" order by SMT_date desc"
set rs=Server.CreateObject("ADODB.Recordset")                                                    
rs.open sql,conn,1,1 
	if (rs.eof and rs.bof) then
	response.write "<tr><td height=20 colspan=3>暂无内容</td></tr>"
else                                                 
n=0                                                   
do while not rs.eof
n=n+1%>
<td width="20%" height=25><a href=addtwoadd.asp?id=<%=rs("SMT_ypxxtwo_id")%>&action=edit&pic=<%=rs("SMT_pic")%>><%=rs("SMT_ypxxtwo")%></a> <a href=addonesave.asp?id=<%=rs("SMT_ypxxtwo_id")%>&oneid=<%=rs("SMT_ypxxone_id")%>&one=<%=rs("SMT_ypxxone")%>&action=aaa><font color=#cccccc>排序</font></a></td>
<%if n mod 5=0 then response.write"</tr><tr align=center>"
rs.movenext                                             
loop   
end if                                   
rs.close                                             
set rs=nothing%>
</tr>
</table>
<%end if%>
</body>
</html>