📄 uplist.asp
字号:
<%@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>测试结果——风声无组件上传类</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">风声无组件上传类 V2.1 [Fonshen UpLoadClass Version 2.1]</div>
<div id="Menu">
<a href="../index.htm">首 页</a>
<a href="../help/help1.htm">对象参考</a>
<a href="../help/help2.htm">专家说明</a>
<a href="../Demo1">上传范例一</a>
<a href="../Demo2">上传范例二</a>
<a href="../Demo3">上传范例三</a>
<a href="../Speed">速度测试</a>
</div>
<div id="Tip1"><a href="http://www.fonshen.com/FonshenASP/">风声 ASP 上传组件</a></div>
<div id="Tip2"><a href="../Speed/UpList.asp">上传速度测试结果-></a></div>
<p id="Title">上传速度测试结果</p>
<table width="100%" border="0" cellpadding="2" cellspacing="1" style="font-size:12px;text-align:center">
<tr>
<th width="80">时间</th>
<th width="60">网友</th>
<th>留言</th>
<th width="140">上传文件/大小(Byte)</th>
<th width="65">总用时(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">风声无组件上传类 V2.1<br />Powered by 风声边界(<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
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -