📄 showad.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%dbdns="../../"%>
<!--#include file="../../inc/conn.asp" -->
<!--#include file="../cook.asp"-->
<%if fla21<>1 then
response.write "<script>alert('操作权限出错，您没有权限操作些功能');history.go(-1);</Script>"
Response.End
end if%>
<% page=Trim(Request.QueryString("page"))
if page="" or not isnumeric(page) then
page=1
else
page=cint(page)
end if%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>搜索广告管理</title>
<%= citycss %>
<script>
function CheckAll(form) {
for (var i=0;i<form.elements.length;i++) {
var e = form.elements[i];
if (e.name != 'chkall') e.checked = form.chkall.checked;
}
}
</script>
</head>
<body leftmargin="10" topmargin="10" marginwidth="10" marginheight="10">
<table width="100%" border="0" cellspacing="0" cellpadding="10">
<tr>
<td>
<table width="99%" border="1" align="center" cellpadding="3" cellspacing="0" bordercolorlight="#cccccc" bordercolordark="#FFFFFF">
<tr>
<td width="2%" bgcolor="#efefef" nowrap align="center">选择</td>
<td width="15%" bgcolor="#efefef" align="center">关键字</td>
<td width="20%" bgcolor="#efefef" align="center">图片名称</td>
<td width="23%" bgcolor="#efefef" align="center">企业网址</td>
<td width="20%" bgcolor="#efefef" align="center">企业名称</td>
<td width="10%" bgcolor="#efefef" align="center">位置</td>
<td width="10%" bgcolor="#efefef" align="center">操作</td>
</tr>
<form action="showad.asp" method="post" target="_self">
<%
sql="select * from SMT_SearchADS order by id desc"
set rs=server.createobject("ADODB.Recordset")
rs.open sql,conn,1,1
if not rs.eof or not rs.bof then
rs.pagesize=20
if page>rs.pagecount then page=rs.pagecount
rs.absolutepage=page
do while not rs.eof%>
<tr>
<td><input type="checkbox" name="id" value="<%= rs("id") %>" style="border:0" /></td>
<td><%=rs("ypxxone_id") %></td>
<td><%= rs("pic") %></td>
<td><%= rs("url") %></td>
<td><%= rs("name") %></td>
<td><%= rs("weizhi") %></td>
<td><a href="javascript:if(confirm('确定要删除？不可恢复！')){window.location='delad.asp?action=del&id=<%= rs("id") %>'}">删除</a> <a href="editad.asp?id=<%= rs("id") %>">修改</a></td>
</tr>
<%
rs.movenext
loop
else%>
<tr>
<td colspan=7>没有记录</td>
</tr>
<%end if %>
<tr>
<%filename="showad.asp?action=query"%>
<td colspan=7 align=right bgcolor=#cccccc>
共 <%=Rs.pagecount%> 页
<% if page>1 then %>
<a href=<%=filename%>><strong>|<<</strong></a>
<a href=<%=filename%>&page=<%=page-1%>><strong><<</strong></a>
<a href=<%=filename%>&page=<%=page-1%>><b>[<%=page-1%>]</b></a>
<%end if%>
<b>[<%=page%>]</b>
<% if Rs.pagecount-page <> 0 then %>
<a href=<%=filename%>&page=<%=page+1%>><b>[<%=page+1%>]</b></a>
<a href=<%=filename%>&page=<%=page+1%>><strong>>></strong></a>
<a href=<%=filename%>&page=<%=Rs.pagecount%>><strong>>>|</strong></a>
<%end if%>
<input name="chkall" type="checkbox" id="chkall" value="select" onclick="CheckAll(this.form)" style="border:0">全选
<input type="submit" name="Submit" value="删 除"> </td>
</tr></form>
</table>
</td>
</tr>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -