📄 badlinks.asp
字号:
<%@ LANGUAGE = VBScript.Encode %>
<%
if session("admin")="" then
objconn.close
set objconn=nothing
response.redirect "../default.asp"
end if
%>
<!--#include file="dbpath.asp"-->
<!--#include file="../confirm.asp"-->
<%Set objrs= Server.CreateObject("ADODB.Recordset")%>
<html>
<head>
<title>errors reported by visitors</title><link rel="stylesheet" type="text/css" href="../links.css">
<body marginwidth="0" leftmargin="0" topmargin="0" marginheight="0" >
<div align="left"> <a href="main.asp"><br>
</a>
<table width="630" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td><a href="main.asp">管理主页面</a>::访客报信息：</td>
</tr>
</table>
<a href="main.asp">
</a>
<%If Request.QueryString("CurPage") = "" or Request.QueryString("CurPage") = 0 then
CurPage = 1
Else
CurPage = CINT(Request.QueryString("CurPage"))
End If
sql= "SELECT * FROM gallery WHERE error=true order by dateandtime desc"
objrs.open sql,objconn,1,1
if not objrs.eof then
objRS.PageSize=objrs1("number")
Dim TotalPages
TotalPages = objRS.PageCount
If CurPage>objRS.Pagecount Then
CurPage=objRS.Pagecount
end if
objRS.AbsolutePage=CurPage
objrs.CacheSize = objRS.PageSize
Dim Totalcount
Totalcount =INT(objRS.recordcount)
%>
</div>
<table width="630" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td width="630"><b>访问者报告了<font color=red><%=Totalcount%></font> 个错误链接：</b></td>
</tr>
</table>
<table width="630" border="0" cellspacing="0" cellpadding="0" bgcolor="#660099" align="center">
<tr>
<td> <b><font color="#FFFFFF">图片名称</font></b></td>
<td width="60" align="center"><b><font color="#FFFFFF">编辑</font></b></td>
<td width="60" align="center"><b><font color="#FFFFFF">删除</font></b></td>
</tr>
</table>
<%do while (Not objRS.Eof) and (II<objRS.PageSize)%>
<table width="630" border="0" cellspacing="0" cellpadding="0" align="center" style="TABLE-LAYOUT: fixed">
<tr>
<td nowrap><a href=../showimage.asp?id=<%=objrs("id")%> target="_top"><font color="#008000"><b><%=objrs("imagename")%></b></font></a>
</td>
<td width="60" align="center" nowrap><a href="edit.asp?id=<%=objrs("id")%>">编辑</a></td>
<td width="60" nowrap align="center"><a href="delete.asp?id=<%=objrs("id")%>">删除</a></td>
</tr>
</table>
<hr size="1" width="630" align="center">
<%objrs.movenext
II=II+1
loop
StartPageNum=1
do while StartPageNum+4<=CurPage
StartPageNum=StartPageNum+4
Loop
EndPageNum=StartPageNum+4-1
If EndPageNum>objRS.Pagecount then EndPageNum=objRS.Pagecount%>
<table width="630" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td>页面：<%=CurPage%> / <%=TotalPages%></td>
<td align="right" nowrap>
<%response.write"页面：<a href=badlinks.asp?CurPage="&StartPageNum-1&"> << </a>"
For I=StartPageNum to EndPageNum
if I<>CurPage then
response.write"<a href=badlinks.asp?CurPage="&I&">["&I&"]</a>"
else
response.write"<font color=#FF0000><b>"&I&"</b></font>"
end if
Next
if EndPageNum<objRS.Pagecount then
response.write"<a href=badlinks.asp?CurPage="&EndPageNum+1&">[More badlinks...]</a>"
end if%>
</td>
</tr>
</table>
<%else%>
<div align="center">没有错误报告！<b></b>
<%end if%>
</div>
<P align=center>制作：<a href="http://www.huamed.com/gallery">Galleryit Pro 3.0.0</a></p>
<P align=center>来源：<a href="http://bbs.5iasp.com">http://bbs.5iasp.com</a></p>
<P align=center>汉化：<a href="http://www.youilove.com">ORPIN</a></p>
</body></html>
<%
objrs1.close
set objrs1=nothing
objconn.close
set objconn=nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -