admin_repeat.asp 黑鹰自助链管理系统 1.1 商业版码程序 - ASP源码程序

www.gusucode.com > 黑鹰自助链管理系统 1.1 商业版码程序 > adminhymm/admin_repeat.asp

    <!--#include file="mdb.asp"-->
<!--#include file="aq.asp"-->
<%
if session("adminlogin")<>sessionvar then
Response.Write("<script language=javascript>alert('你尚未登录，或者超时了！请重新登录');this.location.href='index.asp';</script>")
Response.End
End if
%>
<HTML>
<HEAD>
<TITLE>网站列表</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"> 
<LINK REL="stylesheet" HREF="../css/style.css" TYPE="text/css">
</HEAD>
<BODY>
<%
select case trim(request("Submit"))

case "开通所有未审有点入"
    conn.execute("update detail set verity=1 where verity<>1 and yl_in>0")

case "删除重复网站"
    conn.execute("delete from detail where url in (select url from detail group by url having count(url)>1) and id not in (select min(id) from detail group by url having count(url)>1)")

case "删除所有未审"
    conn.execute("delete from detail where verity=0")
	
case "清空所有网址"
    conn.execute("delete from detail")
	
end select
%>
<table width="100%" border="0" align="center" cellpadding="5" cellspacing="1" bordercolorlight="#cccccc" bordercolordark="#FFFFFF" bgcolor="#d3d3d3">
<form name="form1" method="post" action="admin_Repeat.asp">
<tr><td height=25 align="center" bgcolor="#FFFFFF">
<span class="STYLE1">常用维护:</span>
<input type="submit" name="Submit" value="开通所有未审有点入">——<input type="submit" name="Submit" value="删除重复网站">——<input type="submit" name="Submit" value="删除所有未审">——<input type="submit" name="Submit" value="清空所有网址"></td>
</tr>
</form>
</table>
</BODY> 
</HTML>