?? uplist.asp
字號(hào):
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%OPTION EXPLICIT%>
<!--#include file="conn.asp"-->
<%
dim lngSize : lngSize=Request.QueryString("lngSize")
if isNumeric(lngSize) then
lngSize=clng(lngSize)
else
lngSize=0
end if
dim conn,sql,rs
set conn=Server.CreateObject("ADODB.Connection")
conn.Open strDconn
sql="select * from book where strSize1+strSize2>"&lngSize&" order by ID desc"
set rs=Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,1,1
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>測(cè)試結(jié)果——風(fēng)聲無組件上傳類</title>
<link href="../style/default.css" rel="stylesheet" type="text/css" />
<script type="text/javascript" src="function.js"></script>
</head>
<body>
<div id="Context">
<div id="Topic">風(fēng)聲無組件上傳類 V2.1 [Fonshen UpLoadClass Version 2.1]</div>
<div id="Menu">
<a href="../index.htm">首 頁</a>
<a href="../help/help1.htm">對(duì)象參考</a>
<a href="../help/help2.htm">專家說明</a>
<a href="../Demo1">上傳范例一</a>
<a href="../Demo2">上傳范例二</a>
<a href="../Demo3">上傳范例三</a>
<a href="../Speed">速度測(cè)試</a>
</div>
<div id="Tip1"><a href="http://www.fonshen.com/FonshenASP/">風(fēng)聲 ASP 上傳組件</a></div>
<div id="Tip2"><a href="../Speed/UpList.asp">上傳速度測(cè)試結(jié)果-></a></div>
<p id="Title">上傳速度測(cè)試結(jié)果</p>
<table width="100%" border="0" cellpadding="2" cellspacing="1" style="font-size:12px;text-align:center">
<tr>
<th width="80">時(shí)間</th>
<th width="60">網(wǎng)友</th>
<th>留言</th>
<th width="140">上傳文件/大小(Byte)</th>
<th width="65">總用時(shí)(s)</th>
<th width="65">速率(K/s)</th>
<th width="100">上傳IP</th>
</tr>
<%
dim intRsCount,intPageSize,intPageCount,intPageNo
intPageSize=20
if pageDivide(intRsCount,intPageSize,intPageCount,intPageNo) then
dim intTemp
for intTemp=1 to intPageSize
if rs.EOF then exit for
%>
<tr>
<td width="80" title="<%=rs("datePost")%>"><%=datevalue(rs("datePost"))%></td>
<td width="60"><%=rs("strUser")%></td>
<td style="text-align:left;"><%=rs("strMessage")%></td>
<td width="140">
<%
if rs("strSize1")<>0 then Response.Write("<a href='UpLoadFile/"&rs("strFile1")&"' target='_blank' title='文件大小："&rs("strSize1")&" Bytes'>"&rs("strFile1")&"</a><br />")
if rs("strSize2")<>0 then Response.Write("<a href='UpLoadFile/"&rs("strFile2")&"' target='_blank' title='文件大小："&rs("strSize2")&" Bytes'>"&rs("strFile2")&"</a>")
%>
</td>
<td width="65"><%=rs("strTime")%></td>
<td width="65"><%=rs("strSpeed")%></td>
<td width="100"><%=rs("strIp")%></td>
</tr>
<%
rs.MoveNext ()
next
end if
%>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td><%call pageTurn(intRsCount,intPageSize,intPageCount,intPageNo)%></td>
</tr>
</table>
<div id="Copyright">風(fēng)聲無組件上傳類 V2.1<br />Powered by 風(fēng)聲邊界(<a href="http://www.fonshen.com/" target="_blank">www.fonshen.com</a>)</div>
</div>
</body>
</html>
<%
rs.Close() : set rs=nothing
conn.Close() : set conn=nothing
%>?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -