📄 down_check.asp
字号:
<!-- #include virtual="/admin/admin_head.asp" -->
<SCRIPT LANGUAGE="JavaScript">
<!--
function WM_imageSwap(daImage, daSrc)
{
var objStr,obj;
if(document.images){
// Check to see whether you are using a name, number, or object
if (typeof(daImage) == 'string')
{
// This whole objStr nonesense is here solely to gain compatability
// with ie3 for the mac.
objStr = 'document.' + daImage;
obj = eval(objStr);
obj.src = daSrc;
}
else if ((typeof(daImage) == 'object') && daImage && daImage.src)
{
daImage.src = daSrc;
}
}
}
// Trim 窃荐
function trim(str)
{
var trimstr = str;
for (var i=0; i< str.length;i++)
{
trimstr = trimstr.replace(' ' ,'');
}
return trimstr;
}
// 其捞瘤 捞悼窃荐
function go_page(page)
{
thisform=document.frmList
//thisform.reset();
frmList.page.value=page;
frmList.action="down_check.asp?sort=<%=request("sort")%>"
frmList.submit();
}
//-->
</SCRIPT>
<%
'*********************************************************************
If Request("page")="" Then
Page=1
Else
Page=Request("page")
End If
if request("sort")="" then
sort=0
else
sort = request("sort")
end if
'*********************************************************************
SQL="EXEC usp_gamedownchk_nologin_list_01s "
SQL=SQL + " @Page=" & Cstr(page)
SQL=SQL + ", @sort=" & Cstr(sort)
Set Rs = DbCon.Execute(SQL)
If Not (Rs.Eof OR Rs.Bof) Then
TotalPage=Rs("TotalPage")
PreviousPage=Rs("PreviousPage")
NextPage=Rs("NextPage")
CurrentRecord=Rs("CurrentRecord")
RecordCount=Rs("RecordCount")
Else
TotalPage=0
PreviousPage=0
NextPage=0
CurrentRecord=0
RecordCount=0
End If
'=========================================================
If Not (rs.Eof OR rs.Bof) Then
Rs.Move 50 - Cint(CurrentRecord)
Dim IndexCount
IndexCount=(page*50+1)-50
%>
<table width="750" border="0" cellspacing="1" cellpadding="1" align="center">
<tr>
<td bgcolor="#CCCCCC" height="50">
<div align="center"><font size="5" face="蹈框"><b>航霸烙 促款肺靛 泅炔 炼雀</b></font></div>
</td>
</tr>
</table><br>
<form name="frmList" method="post">
<input type="hidden" name="page" value="<%=Page%>">
<table width="750" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td height="26">
<table width="500" border="0" cellspacing="0" cellpadding="0" height="26" class="boardtext03">
<tr>
<td width="30"> </td>
<td>促款 罐篮 IP 荐:<%=RecordCount%> IP 泅犁<%=page%>/<%=TotalPage%>其捞瘤</td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="25" align="center">
<table width="740" border="0" cellspacing="1" cellpadding="2" class="boardtext03">
<tr bgcolor="#FFCC00">
<td width="200" height="30" align="center"><b><a href="down_check.asp?sort=1">IP鉴栏肺 沥纺</a></b></td>
<td width="340" height="30" align="center"> <b><a href="down_check.asp?sort=2">弥辟 促款罐篮 矫阿鉴栏肺 沥纺</a></b></td>
<td width="200" height="30" align="center"><b><a href="down_check.asp?sort=3">促款 罐篮 冉荐肺 沥纺</a></b></td>
</tr>
<%
DO UNTIL rs.Eof OR rs.Bof
idx = rs("idx")
User_IP = rs("UserIP")
lastdowntime = rs("lastdowntime")
downcount = rs("downcount")
%>
<tr bgcolor="#CCCCCC" height="25">
<td align="center"<%if sort = 1 then%> bgcolor="skyblue"<%end if%>><%=User_IP%></td>
<td align="center"<%if sort = 2 then%> bgcolor="skyblue"<%end if%>><%=lastdowntime%></a></td>
<td align="center"<%if sort = 3 then%> bgcolor="skyblue"<%end if%>><%=downcount%></a></td>
</tr>
<%
IndexCount=IndexCount+1
rs.MOVENEXT
LOOP
%>
<tr bgcolor="#CCCCCC">
<td colspan=7 align=center>
<br>
<%
Blockpage=Int((Page-1)/10)*10 + 1
If Blockpage = 1 Then
%>
⑿
<%
Else
%>
<a href="javascript:go_page('1')">1Page</a>
<a href="javascript:go_page('<%=blockPage-10%>')">⑿</a>
<%
End If
Count=1
Do Until (Count > 10 Or Blockpage > Cint(TotalPage))
If Blockpage=Cint(Page) Then
%>
[<font class=blue><%=Blockpage%></font>]
<%
Else
%>
<a href="javascript:go_page('<%=Blockpage%>')"><%=Blockpage%></a>
<%
End If
Blockpage=Blockpage+1
Count = Count + 1
Loop
If Blockpage > Cint(TotalPage) Then
%>
⒀
<%
Else
%>
<a href="javascript:go_page('<%=Blockpage%>')">⒀</a>
<a href="javascript:go_page('<%=TotalPage%>')"> Last page</a>
<%
End If
Set Conn = Nothing
%>
</form>
</td>
</tr>
</table>
</td>
</tr>
</table>
<%
else%>
鞠帛滴 矿栋咯~~~!!!
<%
end if%>
<!-- #include virtual="/admin/admin_bottom.asp" -->
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -