<%
if rs.eof and rs.bof then
response.Write("正在加载中")
response.End()
else
%>
<%
FileName=titlee&".txt"
ur="./pxiaoshuo/t.txt"
'response.Write(title)
if FileName = "" Then
Response.Write "无效文件名."
Response.End
End if
'下面是不希望下载的文件
FileExt = Mid(FileName, InStrRev(FileName, ".") + 1)
Select Case UCase(FileExt)
Case "ASP", "ASA", "ASPX", "ASAX", "MDB"
Response.Write "受保护文件,不能下载."
Response.End
End Select
' 下载这个文件
name=Mid(FileName, InStrRev(FileName, "/")+1)
Response.Clear
Response.ContentType = "application/octet-stream"
Response.AddHeader "content-disposition", "attachment; filename="&FileName
Set Stream = server.CreateObject("ADODB.Stream")
Stream.Type = adTypeBinary
Stream.Open
Stream.LoadFromFile Server.MapPath(ur)
While Not Stream.EOS
Response.BinaryWrite Stream.Read(1024 * 64)
Wend
Stream.Close
Set Stream = Nothing
Response.Flush
rs.pagesize=200
pagecount=rs.pagecount
page=int(request("page"))
if page<=0 then page=1
if request.QueryString("page")="" then
page=1
end if
rs.absolutepage=page
for i=1 to rs.PageSize
if rs.EOF then
exit for
end if
baord=rs("baord")
tu=rs("tu")
title=rs("zj")
wenjianming=rs("wenjianming")
titletu=rs("titletu")
url="./pxiaoshuo/"&yytu&"/"&title&".txt"
Set fso=CreateObject("Scripting.FileSystemObject")
Set f=fso.GetFile(server.mappath(url))
filesize=f.size '文件大小
dim objrs
set objrs=server.createObject("Scripting.FileSystemObject")
seek20url=server.mappath(url)
set Stream=objrs.opentextfile(seek20url,1,true,-2)
response.Write(lyy(stream.readall))
stream.close
rs.movenext
next
rs.close
set rs=nothing
end if
%>
|
