<%

if session("islogin")="" then
response.Redirect("./")
end if
q=request.QueryString("a")
if q <> "" then
session("islogin")=""
response.Redirect("./")
end if
function a(b)
if b< 1024 then
a=cstr(b)+("B")
elseif b < 1048576 then
a=cstr(b/1024)+("KB")
elseif b < 1073741824 then
a=cstr(b/1048576)+("MB")
end if
end function
%>
<center>
<table width="900px" border="1" align="center" cellpadding="0" cellspacing="0" style="font-size:14px;">
  <tr>
    <td align="center" valign="middle">IP</td>
    <td align="center" valign="middle">上傳時(shí)間</td>
    <td align="center" valign="middle">MD5數(shù)值</td>
    <td align="center" valign="middle">原文件名</td>
    <td align="center" valign="middle">密碼</td>
    <td align="center" valign="middle">ID</td>
    <td align="center" valign="middle">文件大小</td>
    <td align="center" valign="middle">&nbsp;</td>
    <td align="center" valign="middle">&nbsp;</td>
  </tr>

<%
db="file.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
conn.open connstr
set rs=server.createobject("adodb.recordset")
sql="select * from a"
rs.open sql,conn,1,3

if not rs.eof then
pages = 30 '定義每頁顯示的記錄數(shù)
rs.pageSize = pages '定義每頁顯示的記錄數(shù)
allPages = rs.pageCount'計(jì)算一共能分多少頁
page = Request.QueryString("p")'通過瀏覽器傳遞的頁數(shù)
'if語句屬于基本的排錯(cuò)處理
if isEmpty(page) or Cint(page) < 1 then
page = 1
elseif Cint(page) > allPages then
page = allPages 
end if
rs.AbsolutePage = page
end if
%>
<br /><center>
<%
for i=1 to allPages
%>
<a href="?p=<%=i%>"><%=i%></a>
<%
next 
%><br><br>
<%
Do while not rs.eof and pages > 0 
 pages = pages - 1
i=rs("id")
%>  

<tr>
    <td width="15%" align="center" valign="middle"><%=rs("ip")%></td>
    <td width="15%" align="center" valign="middle"><%=rs("time")%></td>
    <td width="15%" align="center" valign="middle"><%=rs("old")%></td>
    <td width="15%" align="center" valign="middle"><%=rs("file")%></td>
    <td width="8%" align="center" valign="middle"><%
	if rs("pass")="" then 
	response.write "無密碼" 
	else 
	response.write rs("pass") 
	end if%></td>
    <td width="2%" align="center" valign="middle"><%=i%></td>
    <td width="10%" align="center" valign="middle"><%=a(rs("size"))%></td>
    <td width="16%" align="center" valign="middle"><%
	if lcase(Right(rs("file"),4))=".gif" or lcase(Right(rs("file"),4))=".jpg" or lcase(Right(rs("file"),4))=".png" or lcase(Right(rs("file"),4))="jpeg" or lcase(Right(rs("file"),4))=".bmp" or lcase(Right(rs("file"),4))=".tif" or lcase(Right(rs("file"),4))=".tiff" then
	%><a href="re.asp?f=<%=rs("old")%>"><img src="re.asp?f=<%=rs("old")%>" alt=" " width="120" height="120" border="0" /></a><%else %><a href=re.asp?f=<%=rs("old")%>>非圖片格式</a><%end if%></td>
    <td width="5%" align="center" valign="middle"><a href="mine-d.asp?f=<%=rs("old")%>">刪除</a></td> 
</tr>
    <%
rs.movenext
loop
rs.Close
set rs=nothing
conn.close
set conn=nothing
%>
</table>
<br />
<%
for i=1 to allPages
%>
<a href="mine.asp?p=<%=i%>"><%=i%></a>
<%
next 
%><br>
<br>
<a href="?a=go">我要滾蛋</a>
</center>