方法二:
wfile = server.MapPath("/DownLoad/"&fname&".pbf")
set file=server.CreateObject("Scripting.FileSystemObject")
set TextFile=file.OpenTextFile(wfile,2,true)
TextFile.WriteLine "文件内容"
set file=nothing
set TextFile=nothing
<a href=<%="../../DownLoad/"&fname&".pbf"%>>下载报表</a> '用href下载
Response.ContentType = "application/vnd.ms-excel" 'excel文件
'Response.ContentType = "application/msword" word文件
'文件内容 例如:显示10个数
For i = 0 to 10
Response.write i
Next