马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
写软件都是想的时间比写的时间要长的.如果反过来了就得看看是什么原因了.另外大家可以回去问问公司里的小MM.(一般企业里,跟你们交付软件接触得最多的是她们)下载以下另存为:DOWNLOAD.HTM
<ahref=download.asp?filename=download.asp>guid.asp</a>
以下另存为:DOWNLOAD.ASP
<%@language=VBscript%>
<%
ConstForReading=1
ConstTristateTrue=-1
ConstFILE_TRANSFER_SIZE=16384
Response.Buffer=True
FunctionTransferFile(path,mimeType,filename)
DimobjFileSystem,objFile,objStream
Dimchar
Dimsent
send=0
TransferFile=True
SetobjFileSystem=Server.CreateObject("Scripting.FileSystemObject")
SetobjFile=objFileSystem.GetFile(Path)
SetobjStream=objFile.OpenAsTextStream(ForReading,TristateTrue)
Response.AddHeader"content-type",mimeType
response.AddHeader"Content-Disposition","attachment;filename="&filename
Response.AddHeader"content-length",objFile.Size
DoWhileNotobjStream.AtEndOfStream
char=objStream.Read(1)
Response.BinaryWrite(char)
sent=sent+1
If(sentMODFILE_TRANSFER_SIZE)=0Then
Response.Flush
IfNotResponse.IsClientConnectedThen
TransferFile=False
ExitDo
EndIf
EndIf
Loop
Response.Flush
IfNotResponse.IsClientConnectedThenTransferFile=False
objStream.Close
SetobjStream=Nothing
SetobjFileSystem=Nothing
EndFunction
Dimpath,mimeType,sucess,downfilename
downfilename=request("filename")
path=Server.MapPath(downfilename)
mimeType="text/plain"
sucess=TransferFile(path,mimeType,downfilename)
Response.End
%>
</p>写软件都是想的时间比写的时间要长的.如果反过来了就得看看是什么原因了.另外大家可以回去问问公司里的小MM.(一般企业里,跟你们交付软件接触得最多的是她们) |