www.gusucode.com > 山寨版广告信息招贴网源码程序 > 山寨版广告信息招贴网源码程序/ewuyi/dir_发布/admin/AdSite.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("批准显示！","AdSite.asp?p=" & Request("p") & "")
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("隐藏成功！","AdSite.asp?p=" & Request("p") & "")
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("快速显示！","AdSite.asp?p=" & Request("p") & "")
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("取消快速链接！","AdSite.asp?p=" & Request("p") & "")
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("删除成功！","AdSite.asp?p=" & Request("p") & "")
Response.End
End if
%><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<title>网站管理 - 管理中心</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<meta http-equiv="Content-Language" content="zh-cn" />
<meta content="Copyright 2007 ewuyi.net" name="copyright" />
<link href="../css/accounts.css" type="text/css" rel="stylesheet" />
<SCRIPT language="javascript">
<!--//
function MM_goToURL() { //v3.0
var i, args=MM_goToURL.arguments; document.MM_returnValue = false;
for (i=0; i<(args.length-1); i+=2) eval(args[i]+".location='"+args[i+1]+"'");
}
function delall()
{
if(confirm("确实要删除这条信息吗？")){return true}
else {return false}
}
//-->
</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="分类广告网管理系统"></a></td>
<td valign="top" style="padding:1px 0px 0px 0px;"><table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td align="right" valign="top" style="padding:6px 16px 0px 0px;"><strong><%=Session("user")%></strong> - <a href="../index.asp" class="linkNo">网站首页</a>
</td>
</tr>
</table>
</td>
</tr>
</table>
<table width="100%" border="0" cellpadding="2" cellspacing="1" style="border-top:1px solid #99B2CC; border-bottom:1px solid #99B2CC;">
<tr>
<td height="20" bgcolor="#DBE9F4"> 您的位置：<strong><%=Session("user")%></strong> 的管理中心</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" style="margin-bottom:10px;">
<tr>
<td height="1" ></td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0" align="center">
<tr>
<td><strong>网站管理</strong></td>
</tr>
</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>
<td>快速</td>
</tr>
<%
if Len(Trim(Request("p")))=0 Then '返回目标页码的判断
page=1
Else
page=CInt(Trim(Request("p")))
End if
set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from ewuyi_info where type>=0 order by adid desc"
rs.open sql,conn,1,1
if not(rs.bof and rs.eof) then
rs.AbsolutePage=page
for k=1 to rs.PageSize
i=i+1
%>
<tr bgcolor="#FFFFFF">
<td align="center"><%=i%></td>
<td><a href="../info/info.asp?id=<%=rs("adid")%>" target="_blank"><%=rs("title")%></a></td>
<td><%=rs("tel")%></td>
<td align="center" title="<%=rs("user")%>"><%=Left(rs("user"),12)%></td>
<td align="center">
<%If rs("type")<>"0" Then%><a href="AdSite.asp?action=no&id=<%=rs("adid")%>">隐藏</a><%Else%><a href="AdSite.asp?action=yes&id=<%=rs("adid")%>">批准</a><%End If%></td><td align="center"><a href="AdteE.asp?id=<%=rs("adid")%>">编辑</a></td><td align="center"><a href="?action=del&id=<%=rs("adid")%>">删除</a></td><td align="center"><%If rs("type")="2" Then%><a href="?action=quickdel&id=<%=rs("adid")%>">取消</a><%Else%><a href="?action=quick&id=<%=rs("adid")%>">快速</a><%End If%></td></td>
</tr>
<%
rs.movenext
if rs.EOF Then Exit For
next
end if
%>
</table>
<table width="96%" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF" style="margin-bottom:3px;">
<tr>
<td height="24" align="right" bgcolor="#F4F4F4"><%
if page <>1 then
Response.Write "<a href=?p=1>首页</a> "
end if
tmppage = page - 1
if tmppage <= 0 then
tmppage = 1
else
Response.Write"<a href=?p="&tmppage&">上一页</a>"
end if
tmppage = page + 1
if tmppage >rs.PageCount then
tmppage = page
else
Response.Write " <a href=?p="&tmppage&">下一页</a> "
end if
if Cstr(page) <> Cstr(rs.PageCount) and Cstr(rs.PageCount) <> 0 then
Response.Write "<a href=?p="&rs.PageCount&">尾页</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>
<td width=40 nowrap bgcolor="#F4F4F4">
</FONT>
</td>
</tr>
<TR align='center'>
<td height="1" colspan="8" bgcolor='#DADADA'><img src="IMAGE/SPACE.GIF" width="1" height="1"></Td>
</TR>
</table>
<font color=red>注：没有通过网站所有权验证的网站不能发布站长推荐信息，不能更新网站基本信息。</font>
</td>
</tr>
</table><%call footer%>
</div>
</body>
</html>