www.gusucode.com > 山寨版广告信息招贴网源码程序 > 山寨版广告信息招贴网源码程序/ewuyi/dir_发布/admin/sea.asp
<!-- #include file="conn.asp"-->
<!-- #include file="Sess.asp"-->
<%
if Request("action")="yes" Then
set rs=Server.CreateObject("adodb.recordset")
rs.open "select * from ewuyi_info where adid=" & Request("id"),conn,3,3
rs("type")="1"
rs.update
rs.close
Call AlertUrl("批准显示！","sea.asp?page=" & Request("page") & "&q=" & Request("q") & "")
Response.End
End if
if Request("action")="no" Then
set rs=Server.CreateObject("adodb.recordset")
rs.open "select * from ewuyi_info where adid=" & Request("id"),conn,3,3
rs("type")="0"
rs.update
rs.close
Call AlertUrl("隐藏成功！","sea.asp?page=" & Request("page") & "&q=" & Request("q") & "")
Response.End
End if
if Request("action")="quick" Then
set rs=Server.CreateObject("adodb.recordset")
rs.open "select * from ewuyi_info where adid=" & Request("id"),conn,3,3
rs("type")="2"
rs.update
rs.close
Call AlertUrl("快速显示！","sea.asp?page=" & Request("page") & "&q=" & Request("q") & "")
Response.End
End if
if Request("action")="quickdel" Then
set rs=Server.CreateObject("adodb.recordset")
rs.open "select * from ewuyi_info where adid=" & Request("id"),conn,3,3
rs("type")="1"
rs.update
rs.close
Call AlertUrl("取消快速链接！","sea.asp?page=" & Request("page") & "&q=" & Request("q") & "")
Response.End
End if
if Request("action")="del" Then
set rs=Server.CreateObject("adodb.recordset")
rs.open "select * from ewuyi_info where adid=" & Request("id"),conn,3,3
rs("type")="-1"
rs.update
rs.close
Call AlertUrl("删除信息成功！","sea.asp?page=" & Request("page") & "&q=" & Request("q") & "")
Response.End
End if
set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from ewuyi_info where title like '%"&request("q")&"%' or text like '%"&request("q")&"%' or tel like '%"&request("q")&"%' order by adid desc"
rs.open sql,conn,1,1
rs.PageSize=10
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<title><%=request("q")%> - 搜索结果 -管理中心</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<link href="../css/dir.css" type="text/css" rel="stylesheet" />
<script language="javascript" type="text/javascript">
function i_function(s){
document.location="sea.asp?i="+s+"&o=&d=6700B0700B101407208A&q=<%=request("q")%>&page=1"
}
</script>
</head>
<body bgcolor="#FFFFFF">
<DIV id=Head>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="220" align="center" style="padding:1px 0px 0px 0px;"><a href="index.asp" onFocus="this.blur();"><img src="../img/logo.gif" width=206 height=50 vspace=7 border=0 alt="ewuyi.net 义乌网站信息"></a></td>
<td valign="top" style="padding:1px 0px 0px 0px;">
<table width="100%" border="0" cellspacing="0" cellpadding="0" style="margin-bottom:8px;">
<tr>
<td align="right" valign="top" nowrap="nowrap" style="padding:6px 16px 0px 0px;"><a href="../index.asp">网站首页</a></td>
</tr>
</table>
</td>
</tr>
</table>
<table width="100%" border="0" cellpadding="2" cellspacing="1" class="navborder">
<tr>
<td class="navbg">
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td> 信息搜索：<a href="../index.asp" class="linknov">首页</a> > ：<strong><%=Session("user")%></strong> 的管理中心 </td>
<td align="right">约有 <b><%=rs.recordcount%></b> 项符合 <b><%=request("q")%></b> 的查询结果 </td>
</tr>
</table></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="160" valign="top" style="padding:6px 0px 0px 0px;">
<table width="100%" border="0" cellspacing="1" cellpadding="2">
<tr>
<td nowrap="nowrap" class="f60b14" style="padding:3px 0px 3px 6px;">管理中心</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="1" cellpadding="2">
<tr>
<td height="1" background="../img/dot_line.gif"></td>
</tr>
</table>
<!-- #include file="Menu.asp"-->
<table width="100%" border="0" cellspacing="1" cellpadding="2" style="margin-bottom:30px;">
<tr>
<td height="1" background="../img/dot_line.gif"></td>
</tr>
</table>
</td>
<td width="1" background="../img/dot_line.gif"></td>
<td valign="top" style="padding:0px 0px 10px 16px;">
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<form action="sea.asp" name=dirform method="get">
<tr>
<td width="266" valign="top" nowrap="nowrap" style="padding:0px 0px 4px 0px;">
<input maxlength=80 name=q size=25 value="<%=request("q")%>">
<input type=submit value="搜索信息" class="searchB"></td>
<td nowrap="nowrap">在这里输入要查询的网址,关键词</td>
</tr>
</form>
</table>
<table width="96%" border="0" cellspacing="1" cellpadding="2" bgcolor="#cccccc" style="margin-bottom:3px;">
<tr bgcolor="#F3F8FC" align="center">
<td>标题</td>
<td>联系人</td>
<td>电话</td>
<td>审批</td>
<td>编辑</td>
<td>删除</td>
<td>快速</td>
</tr>
<%
if Len(Trim(Request("page")))=0 Then '返回目标页码的判断
page=1
Else
page=CInt(Trim(Request("page")))
End if
if rs.bof and rs.eof then
response.write "<span class=""f60b14"">没有符合条件的信息！</span>"
end If
if not (rs.bof and rs.eof) then
rs.AbsolutePage=page
for k=1 to rs.PageSize
%> <tr bgcolor="#FFFFFF"><td align="center"><a href="sea.asp?q=<%=rs("title")%>" target="_blank"><%=rs("title")%></a></td>
<td><%=rs("user")%></td>
<td align="center" title="<%=rs("tel")%>"><%=Left(rs("text"),12)%></td><td align="center"><%If rs("type")>"0" Then%><a href="sea.asp?action=no&id=<%=rs("adid")%>&q=<%=request("q")%>&page=<%=request("page")%>">隐藏</a><%Else%><a href="sea.asp?action=yes&id=<%=rs("adid")%>&q=<%=request("q")%>&page=<%=request("page")%>">批准</a><%End If%></td><td align="center"><a href="AdteE.asp?id=<%=rs("adid")%>&q=<%=request("q")%>&page=<%=request("page")%>">编辑</a></td><td align="center"><%If rs("type")<>"-1" Then%><a href="sea.asp?action=del&id=<%=rs("adid")%>&q=<%=request("q")%>&page=<%=request("page")%>">删除</a><%Else%><font color=#C60A00>已删除</font><%End If%></td><td align="center"><%If rs("type")="2" Then%><a href="sea.asp?action=quickdel&id=<%=rs("adid")%>&q=<%=request("q")%>&page=<%=request("page")%>">取消</a><%Else%><a href="sea.asp?action=quick&id=<%=rs("adid")%>&q=<%=request("q")%>&page=<%=request("page")%>">快速</a><%End If%></td></tr><%
rs.movenext
if rs.EOF Then Exit For
next
end if
%> </table>
<table width="100%" border="0" cellpadding="0" cellspacing="0" style="margin-top:10px;">
<tr>
<td class="h1"></td>
</tr>
<%
if not( rs.bof and rs.eof )then
%>
<tr>
<td align="center" style="padding:5px;">结果页码：
<%
if page <>1 then
Response.Write "<a href=sea.asp?page=1&q="&request("q")&">首页</a> "
end if
tmppage = page - 1
if tmppage <= 0 then
tmppage = 1
else
Response.Write"<a href=sea.asp?page="&tmppage&"&q="&request("q")&">上一页</a>"
end if
tmppage = page + 1
if tmppage >rs.PageCount then
tmppage = page
else
Response.Write " <a href=sea.asp?page="&tmppage&"&q="&request("q")&">下一页</a> "
end if
if Cstr(page) <> Cstr(rs.PageCount) and Cstr(rs.PageCount) <> 0 then
Response.Write "<a href=sea.asp?page="&rs.PageCount&"&q="&request("q")&">尾页</a>"
end if
Response.Write " "&rs.RecordCount&" 条记录 "
if Cstr(rs.PageCount) <> 0 then
Response.Write "" & page & " / "&rs.PageCount&"页"
end if
rs.close
set rs=nothing
%>
</td>
</tr>
<%End If%>
</table></td>
</tr>
</table><%call footer%>
</div>
</body>
</html>