、程序代码asp文件直接下载代码一：如果你只需要实现下载jpg、txt、html文件，可以采用这种简单的代码，代码如下：%url=request(filename)Response。AddHeader content-type,application/x-msdownload Response。
AddHeader Content-Disposition,attachment;filename= urlResponse。End() %asp文件直接下载代码二：如果你要实现不但可以下载jpg、txt、html格式文件，同时还希望能够直接下载asp、php等格式文件下载，那么可以用下面的代码来实现，代码如下：%Const ForReading=1Const TristateTrue=-1 Const FILE_TRANSFER_SIZE=16384 Response。
Buffer = TrueFunction TransferFile(path, mimeType, filename)Dim objFileSystem, objFile, objStreamDim charDim sentsend=0TransferFile = TrueSet objFileSystem = Server。
CreateObject(Scripting。FileSystemObject)Set objFile = objFileSystem。GetFile(Path)Set objStream = objFile。OpenAsTextStream(ForReading, TristateTrue)Response。
AddHeader content-type, mimeTyperesponse。AddHeader Content-Disposition,attachment;filename= filename Response。AddHeader content-length, objFile。
SizeDo While Not objStream。AtEndOfStreamchar = objStream。Read(1)Response。BinaryWrite(char)sent = sent + 1If (sent MOD FILE_TRANSFER_SIZE) = 0 ThenResponse。
FlushIf Not Response。IsClientConnected ThenTransferFile = FalseExit DoEnd IfEnd IfLoopResponse。FlushIf Not Response。IsClientConnected Then TransferFile = FalseobjStream。
CloseSet objStream = NothingSet objFileSystem = NothingEnd FunctionDim path, mimeType, sucess,downfilenamedownfilename=request(filename)path = Server。
MapPath(downfilename)mimeType=text/plainsucess = TransferFile(path, mimeType,downfilename)Response。End%asp。
答：详情>>
