📄 delreddata.asp
字号:
<%@ language=VBScript %>
<%if session("admin_pass")<>"ok" then
response.redirect "../gb/adminlogin.asp"
response.end
end if%>
<%
id=Request.QueryString("id")
If Request.QueryString("Page") = "" or Request.QueryString("Page") <= 0 then
Page = 1
Else
Page = CINT(Request.QueryString("Page"))
End If
%>
<html>
<head>
<title>中国第四网后台</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<style>
<!--
A:link {COLOR: 0F4F6F; FONT-SIZE: 9pt; TEXT-DECORATION:underline}
A:visited {COLOR: #0F4F6F; FONT-SIZE: 9pt; TEXT-DECORATION: underline}
A:active {COLOR: #0F4F6F; FONT-SIZE: 9pt; TEXT-DECORATION: underline}
A:hover {COLOR: #ff0000; TEXT-DECORATION: underline}
TD {FONT-SIZE: 9pt}
body {FONT-SIZE: 9pt}
.b { font-size: 10pt}
.c { font-size: 9pt}
.button1 { height: 21px; background-color: #cfcfcf; font-size: 9pt; color: #000000; border: 1px solid; border-color: #ffffff #555555 #555555 #ffffff}
b:link { color: 0F4F6F; text-decoration: underline }
b:visited { color: 0F4F6F; text-decoration: underline }
b:active { color: red; text-decoration: underline }
b:hover { color: red; text-decoration: underline }
b:link { color: 0F4F6F; text-decoration: underline }
a:visited { color: 0F4F6F; text-decoration: underline }
a:active { color: red; text-decoration: underline }
a:hover { color: red; text-decoration: underline }
-->
</style>
<body bgcolor="#FFFFFF" text="#000000">
<!--#include file="dbconn.asp"-->
<% dim kind,find,city,hrefdate,str
dim ersokind(902)
ersokind(101)="酒店"
ersokind(102)="酒吧"
ersokind(108)="桑拿"
ersokind(104)="美容院"
ersokind(111)="餐厅"
ersokind(109)="歌舞厅"
ersokind(107)="茶楼"
ersokind(114)="KTV"
ersokind(115)="其他"
hrefdate=""
kind=trim(request("kind"))
find=trim(request("find"))
city=trim(request("city"))
set rs=server.createobject("adodb.recordset")
sql="select * FROM data where 1=1"
if kind<>nil then
sql=sql & " and kind like '%" & kind & "%'"
hrefdate=hrefdate & "&kind=" & kind
end if
if city<>nil then
sql=sql & " and icq like '%" & city & "%'"
hrefdate=hrefdate & "&city=" & city
end if
if find<>nil then
sql=sql & " and ( goods like '%" & find & "%' or content like '%" & find & "%' )"
hrefdate=hrefdate & "&find=" & find
end if
sql=sql+" order by id desc"
rs.open sql,conn,1,2
if not (rs.EOF or rs.BOF) then
rs.PageSize=50
Dim TotalPages
TotalPages = RS.PageCount
if page>rs.pagecount then page=rs.pagecount
dim scount
scount=INT(Rs.recordcount)
rs.absolutepage=page
StartPageNum=1
do while StartPageNum+10<=Page
StartPageNum=StartPageNum+10
Loop
EndPageNum=StartPageNum+9
If EndPageNum>RS.Pagecount then EndPageNum=RS.Pagecount
i=0
do while (not rs.EOF) and (i<RS.PageSize)
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<table border="0" width="650" align="center" cellpadding="4" cellspacing="0">
<tr bgcolor="#FFFFFF">
<td width="160" rowspan="3" align="center">
这里是新登记的50个用户</td>
<td height="20">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="50%"><b><%=rs("goods")%></b></td>
<td width="50%" align="right">推荐程度：<b><%=rs("trademode")%></b></td>
</tr>
</table>
</td>
<td height="20"> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td style="LINE-HEIGHT: 150%" height="80" class=c valign="top">登陆商家简介：[<font color="#ff0000">数据删除后不再恢复</font><a href="del.asp?user_id=<%=rs("id")%>" target="_blank">删除数据</a>]<br>
<%=left(trim(rs("content")),100)%>...</td>
<td style="LINE-HEIGHT: 150%" height="80" class=c valign="top"> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td style="LINE-HEIGHT: 150%" height="20">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="60"> </td>
<td width="50"> </td>
<td>所在城市：<b><%=rs("city")%></b></td>
</tr>
</table>
</td>
<td style="LINE-HEIGHT: 150%" height="20"> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="160" align="center"> </td>
<td style="LINE-HEIGHT: 150%" height="20"> </td>
<td style="LINE-HEIGHT: 150%" height="20"> </td>
</tr>
</table>
</td>
</tr>
</table>
<%i=i+1
rs.movenext
loop
%>
<table width="98%" align="center" cellspacing="0" cellpadding="1" border="0" height="11">
<tr>
<td height="9">
<table width="100%" height=25 cellspacing="1" cellpadding="1">
<tr>
<td valign="middle" align=left height="7">
<div align="center">共<font color=#ff0000><%=scount%></font>部商家[
<% if StartPageNum>1 then %>
<a href="all.asp?ID=<%=StartPageNum-1%><%=hrefdate%>">前一页</a>
<%end if%>
<% For I=StartPageNum to EndPageNum
if I<>Page then %>
<a href="all.asp?ID=<%=I%><%=hrefdate%>"><%=I%></a>
<% else %>
<b><%=I%></b>
<% end if %>
<% Next %>
<% if EndPageNum<RS.Pagecount then %>
<a href="all.asp?ID=<%=EndPageNum+1%><%=hrefdate%>">后一页</a>
<%end if%>
]</div>
</td>
</tr>
</table>
<%rs.close
end if%>
</td>
</tr>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -