『壹』 從文件夾下載文件的asp源代碼
<a href=download.asp?filename=download.asp>guid.asp</a>
以下另存為：DOWNLOAD.ASP
<%@language=VBscript%>
<%
Const ForReading=1
Const TristateTrue=-1
Const FILE_TRANSFER_SIZE=16384
Response.Buffer = True
Function TransferFile(path, mimeType, filename)
Dim objFileSystem, objFile, objStream
Dim char
Dim sent
send=0
TransferFile = True
Set objFileSystem = Server.CreateObject("Scripting.FileSystemObject")
Set objFile = objFileSystem.GetFile(Path)
Set objStream = objFile.OpenAsTextStream(ForReading, TristateTrue)
Response.AddHeader "content-type", mimeType
response.AddHeader "Content-Disposition","attachment;filename=" & filename
Response.AddHeader "content-length", objFile.Size
Do While Not objStream.AtEndOfStream
char = objStream.Read(1)
Response.BinaryWrite(char)
sent = sent + 1
If (sent MOD FILE_TRANSFER_SIZE) = 0 Then
Response.Flush
If Not Response.IsClientConnected Then
TransferFile = False
Exit Do
End If
End If
Loop
Response.Flush
If Not Response.IsClientConnected Then TransferFile = False
objStream.Close
Set objStream = Nothing
Set objFileSystem = Nothing
End Function
Dim path, mimeType, sucess,downfilename
downfilename=request("filename")
path = Server.MapPath(downfilename)
mimeType="text/plain"
sucess = TransferFile(path, mimeType,downfilename)
Response.End
%>
『貳』 ASP寫的文件下載代碼
Function downloadFile(strFile)
strFilename = server.MapPath(strFile)
Response.Buffer = True
Response.Clear
Set s = Server.CreateObject("ADODB.Stream")
s.Open
s.Type = 1
on error resume next
Set fso = Server.CreateObject("Scripting.FileSystemObject")
if not fso.FileExists(strFilename) then
Response.Write("<h1>Error:</h1> 文件不存在<p>")
Response.End
end if
Set f = fso.GetFile(strFilename)
intFilelength = f.size
s.LoadFromFile(strFilename)
if err then
Response.Write("<h1>Error: </h1>" & err.Description & "<p>")
Response.End
end if
Response.AddHeader "Content-Disposition", "attachment; filename=" &f.name
Response.AddHeader "Content-Length", intFilelength
Response.CharSet = "UTF-8"
Response.ContentType = "application/octet-stream"
Response.BinaryWrite s.Read
Response.Flush
s.Close
Set s = Nothing
End Function
看這個函數能幫到你嗎
『叄』 asp網站源代碼是如何下載的
這些代碼是作者寫出來放到網上的，不是從一個用這個系統的網站上下載的，asp的源代碼在一般情況下是沒有辦法下載的。
『肆』 誰能提供一個學校網站用的asp源代碼，或者給我下載地址
深度學習文章管理系統 v0.05
http://www.h81.cn/down/soft/351/downfile48551/
『伍』 免費asp源碼下載 免費asp論壇源碼 asp企業免費源碼
樓主可以去天天源碼論壇下載，那裡有近萬套的精品源碼，www.ttyuanma.com
『陸』 ASP源代碼哪裡有
那麼我跟你解釋下，你下載的那些都是源代碼，一般都是打包好的文件，那麼你解壓之後是不是看到裡面有好多後綴名為.asp的文件，那麼這些就是源代碼了，你有沒有裝Dreamweaver什麼的軟體，如果裝了就用這個打開，如果沒有裝就用記事本打開，之後你就會看到代碼了，這就是所說的源代碼。
我想還有一種情況，可能你是用Dreamweaver打開的，但是打開看到的是一個圖像一樣的東西，不是什麼代碼，那麼你只要把視圖切換成源代碼視圖就可以了，因為你打開默認的是設計視圖，所以你看到的就是圖片一樣的東西
至於你說的域名，那個就不是我們能給你的了，那個是要花錢才可以買到的。像淘寶的網址這就是一個域名，但是這個是淘寶花錢買的。買了域名別人在跟你做域名解析，然後別人就可以通過這個域名訪問你的網站了！總之一句，域名要花錢向別人買！ 如果不清楚可以在網上查查相關的內容~
『柒』 目前最好用的免費網站ASP源碼下載地址是
我極力推薦一個:
源碼之家:www.codejia.com
專注於精品源碼下載!
『捌』 asp源碼下載那個網站最好
建議你直接在搜索哪裡輸入你需要的程序,這樣就可以多多的比較一下,哪個程序比較安全!
『玖』 asp代碼下載
這里有很多
http://down.chinaz.com/class/18_1.htm
ASP編程網----中國最好的ASP專業編程網站
http://www.aspprogram.cn/
『拾』 ASP源碼帶會員下載系統
帝國CMS － 安全、強大、穩定、靈活
提供帝國網站管理系統,帝國CMS,帝國下載系統,程序開發等服務
www.phome.net/
這個不錯
你說的功能全部能實現