ad_web.asp

来自「宁志新闻发布系统 源码类别:ASP+ACCESS 源码大小:2M 」· ASP 代码 · 共 57 行

ASP
57
字号
<!--#include file="conn.asp"-->
<!--#include file="md5.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../css/admin_css.css" rel="stylesheet" type="text/css">
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<!--#include file="top.asp"-->
<table width="100%" height="525"  border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="180" align="right" valign="top" bgcolor="#F2F9FD"><!--#include file="left.asp"--></td>
    <td width="5" valign="top" background="images/ad_07.gif" ></td>
    <td valign="top"><table width="0" height="6" border="0" cellpadding="0" cellspacing="0">
      <tr>
        <td></td>
      </tr>
    </table>
      <%set rs=server.CreateObject("adodb.recordset")
		rs.open "select * from nz_ad1 order by sx",conn,1,1
		dim i
		i=rs.recordcount%>
      <br>
      <table class="tableBorder" width="98%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#D2E8F6">
        <form name="form2" method="post" action="save_ad.asp?action=add">
          <tr></tr>
        </form>
      </table>
      <table class="tableBorder" width="98%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#D2E8F6">
        <tr>
          <td height="25" colspan="4" align="center" background="manage/main.files/HeadBG.gif">文字链接管理</td>
        </tr>
        <tr bgcolor="#f9f9f9">
          <td width="200" height="25" align="center" bgcolor="#f9f9f9">名称</td>
          <td width="314" align="center" bgcolor="#f9f9f9">网址</td>
          <td width="118" align="center" bgcolor="#f9f9f9">排 序</td>
          <td width="141" align="center" bgcolor="#f9f9f9">操 作</td>
        </tr>
        <%if rs.eof and rs.bof then
			response.write "还没有数据,请添加!"
			else
			do while not rs.eof%>
        <tr bgcolor="#f0f0f0">
          <form name="form1" method="post" action="save.asp">
            <td width="200" height="25" align="center" bgcolor="#FFFFFF"><input name="name" type="text" class="input" id="name" value="<%=trim(rs("name"))%>" size="25">            </td>
            <td align="center" bgcolor="#FFFFFF"><input name="url" type="text" class="input" id="url" value="<%=trim(rs("url"))%>" size="50">            </td>
            <td width="118" align="center" bgcolor="#FFFFFF"><input name="sx" type="text" class="input" id="sx" value=<%=rs("sx")%> size="3">            </td>
            <td align="center"><input name="Submit" type="submit" class="button" value=" 修 改 ">
&nbsp;<a href=save.asp><font color="#FF0000">删除</font></a> </td>
          </form>
        </tr>
        <%rs.movenext
		  loop
		  end if
		  rs.close
		  set rs=nothing%>
      </table>
    <br></td>
  </tr>
</table>

⌨️ 快捷键说明

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