请教一个 ASP读取地址 - ASP

訫譩

电梯直达

1^#

发表于 2010-1-7 05:31:54 | 只看该作者回帖奖励

|倒序浏览 |阅读模式

http://www.xxx.com/download.asp?id=555&xid=8&id=428

怎么使用ASP 来读取它并且返回一个文件地址值，要用ASP自己在内部完成。

收藏0

使用道具举报

DJ爱有多痛DJ

2^#

发表于 2010-1-7 05:31:57 | 只看该作者

Function GetUrl()
On Error Resume Next
Dim strTemp
If LCase(Request.ServerVariables("HTTPS")) = "off" Then
strTemp = "http://"
Else
strTemp = "https://"
End If
strTemp = strTemp & Request.ServerVariables("SERVER_NAME")
If Request.ServerVariables("SERVER_PORT") <> 80 Then
strTemp = strTemp & ":" & Request.ServerVariables("SERVER_PORT")
end if
strTemp = strTemp & Request.ServerVariables("URL")
If Trim(Request.QueryString) <> "" Then
strTemp = strTemp & "?" & Trim(Request.QueryString)
end if
GetUrl = strTemp
End Function
Response.Write(GetUrl())

回复支持反对

使用道具举报

Ｉしovのyou

3^#

发表于 2010-1-7 05:32:00 | 只看该作者

好的哦前面的问题好像没有达到我的目的! 可能是我说错了
http://bbs.bc-cn.net/viewthread.php?tid=143515&star=at#

回复支持反对

使用道具举报

爱(じΩvê)

4^#

发表于 2010-1-7 05:32:03 | 只看该作者

上面的可以用了吗？

回复支持反对

使用道具举报

江边人家

5^#

发表于 2010-1-7 05:32:06 | 只看该作者

直接说调用下载函数咯。。
download.asp中的带奥妙应该是这样。。
<%
'Filename must be input
Function downloadFile(url)
' make sure you are on the latest MDAC version for this to work
' get full path of specified file
strFilename = server.MapPath(url)
' clear the buffer
Response.Buffer = True
Response.Clear
' create stream
Set s = Server.CreateObject("ADODB.Stream")
s.Open
' Set as binary
s.Type = 1
' load in the file
on error resume next
' check the file exists
Set fso = Server.CreateObject("Scripting.FileSystemObject")
if not fso.FileExists(strFilename) then
Response.Write("<h1>Error:</h1>"&strFilename&" does not exists!<p>")
Response.End
end if
' get length of file
Set f = fso.GetFile(strFilename)
intFilelength = f.size
s.LoadFromFile(strFilename)
if err then
Response.Write("<h1>Error: </h1>Unknown Error!<p>")
Response.End
end if
' send the headers to the users Browse
Response.AddHeader "Content-Disposition","attachment; filename="&f.name
Response.AddHeader "Content-Length",intFilelength
Response.CharSet = "UTF-8"
Response.ContentType = "application/octet-stream"
' output the file to the browser
Response.BinaryWrite s.Read
Response.Flush
' tidy up
s.Close
Set s = Nothing
End Function
%>
<%
'此处的 url 仅为下载文件的名称(包括扩展名)
loadfile = downloadFile(url) '调用文件下载函数
%>

回复支持反对

使用道具举报

爲眀天活着

6^#

发表于 2010-1-7 05:32:09 | 只看该作者

晕我才来论坛没想到大家回答这么积极，谢谢啊！

回复支持反对

使用道具举报

怎么可能

7^#

发表于 2010-1-7 05:32:12 | 只看该作者

那以后要多来啊.

回复支持反对

使用道具举报

		自动登录	找回密码
密码			注册