⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 manaccdelkill.asp

📁 此程序为网上下载
💻 ASP
字号:
<%@ LANGUAGE=VBScript.Encode codepage ="936" %>
<%Response.Expires=0
Response.ExpiresAbsolute = Now() - 1
Response.AddHeader "Pragma","No-Cache"
Response.AddHeader "Cache-Control","Private"
Response.CacheControl = "No-Cache"
Response.CacheControl = "Private"
nickname=Session("hxf_u_nickname")
grade=Session("hxf_u_grade")
If nickname = "" Then Response.Redirect "manerr.asp?id=100"
If Int(grade) <> 12 Then Response.Redirect "manerr.asp?id=130"
Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
connstr=Application("wsaxhg_connstr")
conn.open connstr
sql = "SELECT username FROM reginfo WHERE kill = '1'"
rs.Open sql, conn, 1, 1
totalrec = rs.RecordCount
Do While Not rs.Eof
 If show = "" Then
  show = rs("username")
 Else
  show = show & "|" & rs("username")
 End If
rs.MoveNext
Loop
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing
%>
<html>
<head>
<title>自杀用户名单</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type=text/css>
body{font-family:"宋体";font-size:9pt;background-color:buttonface;line-height:160%}
td{font-family:'宋体';font-size:9pt}
.p105{font-family:'宋体';font-size:10.5pt}
.p12{font-family:'宋体';font-size:12pt}
a{font-family:'宋体';color:blue;text-decoration:none}
a:hover{font-family:'宋体';color:red;text-decoration:none}
</style>
<script Language=JavaScript>
function d(v){
 window.open("manaccdelre.asp?id=" + unescape(v), "", "width=380,height=120");
}
function q(v){
 window.open("friendqueryview.asp?id=" + unescape(v), "", "width=320,height=200");
}
function ck(){
 if(confirm("真的要删除这些用户名吗?")){
  this.location.href = "manaccdelkillok.asp";
 }
}
function show(v){
 if(v != ""){
  document.write("<table width=100% border=0>");
  m = v.split("|")
  for(i = 0;i < m.length;i = i+5){
   document.write("<tr>");
   for(j = i;j < i+5;j++){
    if(j < m.length){
     document.write("<td width=20% class=p9><a href=javascript:q('" + escape(m[j]) + "')><font color=000000>◇</font></a> <a href=javascript:d('" + escape(m[j]) + "');>" + m[j] + "</a></td>");
    }
    else{
     document.write("<td width=20% class=p9></td>");
    }
   }
   document.write("</tr>");
  }
  document.write("</table>");
 }
}
</script>
</head>
<body leftmargin="3" topmargin="3">
<hr>
<div align=center>
<div align=center>共找到 <font color=red><%=totalrec%></font> 个自杀的用户名,点击用户名取消自杀操作<%If totalrec > 0 Then%>,<a href=javascript:ck()>点击此处全部清除</a><%End If%></div>
</div>
<div align=center></div>
<hr>
<script Language=JavaScript>
show("<%=show%>");
</script>
<hr>
</body>
</html>

⌨️ 快捷键说明

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