📄 auditsite.asp

📁 个性网名转换-繁体字转换-qq强制聊天-qq秀查看-空间留言代码编辑器-等其他常用工具
💻 ASP
字号:
<!-- #include file="conn.asp"-->
<%
if Request("action")="yes" Then
set rs=Server.CreateObject("adodb.recordset")
rs.open "select * from info where infoid=" & Request("id"),conn,3,3
rs("check")="1"
rs.update
rs.close
Call AlertUrl("批准显示！","AuditSite.asp")
Response.End
End if
if Request("action")="no" Then
set rs=Server.CreateObject("adodb.recordset")
rs.open "select * from info where infoid=" & Request("id"),conn,3,3
rs("check")="2"
rs.update
rs.close
Call AlertUrl("隐藏成功！","AuditSite.asp")
Response.End
End if
if Request("action")="quick" Then
set rs=Server.CreateObject("adodb.recordset")
rs.open "select * from info where infoid=" & Request("id"),conn,3,3
rs("quick")="1"
rs.update
rs.close
Call AlertUrl("快速显示！","AuditSite.asp")
Response.End
End if
if Request("action")="quickdel" Then
set rs=Server.CreateObject("adodb.recordset")
rs.open "select * from info where infoid=" & Request("id"),conn,3,3
rs("quick")="2"
rs.update
rs.close
Call AlertUrl("取消快速链接！","AuditSite.asp")
Response.End
End if
if Request("action")="del" Then
set rs=Server.CreateObject("adodb.recordset")
rs.open "select * from info where infoid=" & Request("id"),conn,1,3
rs.delete
rs.close
Call AlertUrl("删除成功！","AuditSite.asp")
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" />
<link href="/favicon.ico" type="image/x-icon" rel="shortcut icon" />
<link href="/favicon.ico" type="image/x-icon" rel="bookmark" />
<meta http-equiv="pragma" content="no-cache" />
<meta http-equiv="imagetoolbar" content="no" />
<meta content="Copyright 2007 netsoz.com" 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="../images/logo_coodirs.gif" width=206 height=50 vspace=7 border=0 alt="netsoz中文网站目录"></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="../accounts/" class="linkNo">我的帐户</a> - <a href="../index.asp" class="linkNo">网站目录首页</a> - <a href="../accounts/logout/" 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">&nbsp;您的位置：<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="../images/dot_line.gif"></td>
 </tr>		
</table>
<!-- #include file="LeftMenu.asp"-->

<table width="100%" border="0" cellspacing="1" cellpadding="2" style="margin-bottom:30px;">
  <tr>
     <td height="1" background="../images/dot_line.gif"></td>
 </tr>		
</table>
 	
		  </td>
		  <td width="1" background="../images/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>
			<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")
	If Request("action")="no" Then
	sql="select * from info where check<>1 and check<>3 order by infoid desc"
        ElseIf Request("action")="yes" Then
	sql="select * from info where check=1 order by infoid desc"
        Else
	sql="select * from info order by infoid desc"
	End If	
	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="../browse/siteinfo.asp?id=<%=rs("infoid")%>" target="_blank"><%=rs("DomainName")%></a></td>
			<td><%=rs("adminSiteName")%></td>
			<td align="center" title="<%=rs("adminDes")%>"><%=Left(rs("adminDes"),20)%></td>

			<td align="center"><%
set rs1=Server.CreateObject("ADODB.RecordSet")
	sql="select * from menu where sid='"&rs("ClassID_id")&"'"
	rs1.open sql,conn,1,1
if not(rs.bof and rs.eof) then
response.write rs1("smclass")
end if
rs1.close
set rs1=nothing
%></td>
			<td align="center">
<%If rs("check")="1" Then%><a href="AuditSite.asp?action=no&id=<%=rs("infoid")%>">隐藏</a><%Else%><a href="AuditSite.asp?action=yes&id=<%=rs("infoid")%>">批准</a><%End If%></td><td align="center"><a href="AuditSiteEdit.asp?id=<%=rs("infoid")%>">编辑</a></td><td align="center"><a href="?action=del&id=<%=rs("infoid")%>">删除</a></td><td align="center"><%If rs("quick")="1" Then%><a href="?action=quickdel&id=<%=rs("infoid")%>">取消</a><%Else%><a href="?action=quick&id=<%=rs("infoid")%>">快速</a><%End If%></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>
<%=sitefoot%>
</div>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -