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="28%" height="25">省份添加</td>
      <td width="37%"><input type="text" name="addone"></td>
      <td width="35%"><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_ypaddone 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="10%" height="25"><a href=addoneadd.asp?id=<%=rs("SMT_addone_id")%>&one=<%=rs("SMT_addone")%>><%=rs("SMT_addone")%></a> <a href=addonesave.asp?id=<%=rs("SMT_addone_id")%>&action=aa><font color=#cccccc>排序</font></a></td>
<%if n mod 10=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?addone_id=<%=request("id")%>&action=edit">
  <tr bgcolor="#efefef">
    <td width="23%" height="30" align="center"><input name="addone" type="text" value="<%=request("one")%>"></td>
	<td width="25%" align="center"><input type="submit" name="Submit2" value="改名" class=input1>　　
<input type="button" name="button" title="点击此删除栏目及子栏目和内容" class=input1 value="删除" onClick="javascript:window.open('addonesave.asp?addone_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="addone_id" value="<%=request("id")%>">
    <tr align="center" bgcolor="#efefef"> 
      <td width="17%" height="30">地区添加</td>
      <td width="29%" height="30"><input name="addone" type="text" value="<%=request("one")%>" readonly></td>
	  <td width="24%" height="30"><input name="addtwo" type="text"></td>
      <td width="30%"><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_ypaddtwo where SMT_addone_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_addtwo_id")%>&action=edit><%=rs("SMT_addtwo")%></a> <a href=addonesave.asp?id=<%=rs("SMT_addtwo_id")%>&oneid=<%=rs("SMT_addone_id")%>&one=<%=rs("SMT_addone")%>&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>