📄 manaccdel30.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 grade<>12 then Response.Redirect "manerr.asp?id=130"
n = Year(Date)
y = Month(Date)
r = Day(Date)
s = Hour(Time())
f = Minute(Time())
m = Second(Time())
If Len(y) = 1 Then y = "0" & y
If Len(r) = 1 Then r = "0" & r
If Len(s) = 1 Then s = "0" & s
If Len(f) = 1 Then f = "0" & f
If Len(m) = 1 Then m = "0" & m
sjsfm = s & ":" & f & ":" & m
sj = n & "-" & y & "-" & r & " " & sjsfm
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='0' AND leave='0' AND DateDiff('d',lasttime,#" & sj & "#)> 30"
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("manaccyjadd.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 = "manaccdel30ok.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 + -