‘壹’ 从文件夹下载文件的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/
这个不错
你说的功能全部能实现