mana.asp

来自「新闻发布系统」· ASP 代码 · 共 141 行

ASP
141 行
字号 
<%@ LANGUAGE="VBSCRIPT" %>
<!--#include file=config.asp -->
<!--#include file="check.asp"-->
<html><head>
<meta http-equiv=Content-Language content=zh-cn>
<meta http-equiv=Content-Type content=text/html; charset=gb2312>
<meta http-equiv=Pragma content=no-cache>
<link href=../Fsmanage/css/css.css rel=STYLESHEET type=text/css>
<title>广告发布管理系统</title>

<base target=_top>
</head><body marginwidth=0 marginheight=0>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td> 
      <!--#include file=menu.asp -->
    </td>
  </tr>
</table>
<table border="0" cellspacing="1" cellpadding="0"   width="98%" align="center" bgcolor="#7ED3A7">
  <tr bgcolor="#88AFD7"> 
    <td  height="22" colspan="4" align=center><table width="100%" border="0" cellpadding="0" cellspacing="0" background="../Fsmanage/images/bg1.gif">
        <tr> 
          <td height="26"> <div align="center"><b> 广 告 位 管 理</b></div></td>
        </tr>
      </table></td>
  </tr>
  <%adsconn.open adsdata
		set adsrs=server.createobject("adodb.recordset")
adssql ="SELECT  * From place order by placeID"
adsrs.open adssql,adsConn,1,1
%>
  <tr align="center" height="22" bgcolor="#F7FFF4" > 
    <td height="20">序号</td>
    <td>从属广告种类</td>
    <td>具体广告位置(<font color="#FF0000">Place</font>)</td>
    <td>操&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;作</td>
  </tr>
  <%
i=0
do while not adsrs.eof
i=i+1
%>
  <tr align="center" bgcolor="#F7FFF4"> 
    <td height="21"><%=adsrs("placeID")%>　</td>
    <td><%=adsrs("price")%>　</td>
    <td><%=adsrs("place")%>　</td>
    <td> <a href="place_del.asp?ID=<%=adsrs("placeID")%>&place=<%=adsrs("place")%>" style="text-decoration: none" target="_self" >删除</a> 
    </td>
  </tr>
  <%
adsrs.MoveNext
Loop
adsrs.close
%>
  <tr bgcolor="#F7FFF4"> 
    <form method="post" action="place_add.asp" name="type"  target="_self">
      <td height="22" colspan="4" align="center"> 
        <%
adssql="select * from price order by priceID"
adsrs.Open adssql,adsconn,1,1				
%>
        在 
        <select size="1" name="price" style="font-size: 9pt">
          <%if adsrs.EOF then %>
          <option>暂无任何大类</option>
          <%else
while not adsrs.EOF
%>
          <option value="<%=adsrs("price")%>"><%=trim(adsrs("price"))%></option>
          <%
adsrs.MoveNext
wend

end if
adsrs.Close
set adsrs=nothing
%>
        </select>
        中添加广告位<font color="#FF0000">(必须为数字类型)： 
        <input class=text type="text" name="place" size="15">
        <input type="submit" name="Submit3" value="添加">
        </font>
<input type="reset" value="重写" name="B1"> </td>
    </form>
  </tr>
</table>

<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td height="8"></td>
  </tr>
</table>
<div align="center"></div>
  
<table border="0" cellspacing="1" cellpadding="0"   width="98%" align="center" bgcolor="#7ED3A7">
  <%
		set adsrs=server.createobject("adodb.recordset")
adssql ="SELECT * From price order by priceID"
adsrs.open adssql,adsConn,3,3
%>
  <tr align="center" bgcolor="#F7FFF4" height="22" > 
    <td height="23" colspan="3"><table width="100%" border="0" cellpadding="0" cellspacing="0" background="../Fsmanage/images/bg1.gif">
        <tr> 
          <td height="26"> <div align="center"><b> 广 告 位 种 类 管 理</b> </div></td>
        </tr>
      </table></td>
  </tr>
  <tr align="center" bgcolor="#F7FFF4" height="22" > 
    <td height="23">序号(<font color="#FF0000">priceid</font>)</td>
    <td>广告位种类名称</td>
    <td>操作</td>
  </tr>
  <%			
i=0
do while not adsrs.eof
i=i+1%>
  <tr bgcolor="#F7FFF4"> 
    <td height="28" align="center"><%=adsrs("priceID")%>　</td>
    <td align="center" bgcolor="#F7FFF4"><%=adsrs("price")%>　</td>
    <td align="center"> <a href="price_edit.asp?ID=<%=adsrs("priceID")%>&price=<%=adsrs("price")%>" style="text-decoration: none" target="_self" >编辑</a> 
      <a href="price_del.asp?ID=<%=adsrs("priceID")%>&price=<%=adsrs("price")%>" style="text-decoration: none" target="_self" >删除</a> 
  </tr>
  <%
adsrs.MoveNext
Loop
adsrs.close
%>
  <tr bgcolor="#F7FFF4"> 
    <form method="post" action="price_add.asp" name="price" target="_self">
      <td height="25" colspan="2" align="center"> 增加种类： 
        <input class=text type="text" name="price" size="30" maxlength="50"> <input type="submit" name="Submit3" value="添加"> 
        <input type="reset" value="重写" name="B1"> </td>
      <td> <input type="hidden" name="howmany" size="15" value=<%=i%>></td>
    </form>
  </tr>
</table>
<%set adsrs=nothing
%>
<div align="center">

mana.asp - 源码说明

本页面展示了「新闻发布系统」中的 mana.asp 源码文件，采用 ASP 编程语言编写，共 141 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与新闻发布系统相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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