.asp文件样例:
<% Option Explicit
On Error Resume Next
Dim sPath, oFso, oSt, oFile, iSize
If Request.QueryString.Count<1 Then Response.End()
sPath = unescape(Request.QueryString)
Set oFso = Server.CreateObject("Scripting.FileSystemObject")
Set oSt = Server.CreateObject("ADODB.Stream")
Set oFile = oFso.GetFile(sPath)
iSize = oFile.Size