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=" 修 改 ">
<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 + -
显示快捷键?