了解Msxml2.XMLHTTP的高手帮我看看,谢谢

ahcs 2012-04-05 05:42:54
程序思路是这样的:
A.asp 页面上有一个按钮,点击这个按钮,通过传递参数(B.asp?id=111) 复制服务器上面的123.exe生成111.exe 自动弹出给用户下载


我目前的程序是:

###############################################################
B.asp是这样写的

uid=Trim(Request("id"))
url="http://www.xxxxxx.net/C.asp?uid="&uid&""

filename=""&uid&".exe"

Set xml = Server.CreateObject("Msxml2.XMLHTTP")
xml.Open "GET",url,False
xml.Send
if Err.Number>0 then
Response.Status="404"
else
Response.ContentType="application/octet-stream"
Response.AddHeader "Content-Disposition:","attachment; filename=" & filename
Range=Mid(Request.ServerVariables("HTTP_RANGE"),7)
if Range="" then
Response.BinaryWrite(xml.responseBody)
else
S.position=Clng(Split(Range,"-")(0))
response.Write xml.responseBody
End if

end if

Response.End
Set xml = Nothing

############################################################

C.asp是这样写的


if trim(request("uid"))<>"" then

Set fs = Server.CreateObject("Scripting.FileSystemObject")
SFile = Server.MapPath("123.exe")
NFile = Server.MapPath(""&request("uid")&".exe")
on Error Resume Next
fs.CopyFile SFile, NFile
If Err.Number = 53 Then
Response.Write File & "文件不存在!"
Response.End
Elseif Err.Number = 70 Then
Response.Write File & "文件属性为只读!"
Response.End
Elseif Err.Number <> 0 Then
Response.Write "未知错误,错误编码:" & Err.Number
Response.End
Else
Response.Redirect "http://www.xxxxx.com/"&request("uid")&".exe"
Response.End
End If
End If


问题是,自动弹出给用户下载,出现两次,不知道为什么,请高手帮我看一下哪里出错了



...全文
65 回复 打赏 收藏 转发到动态 举报
写回复
用AI写文章
回复
切换为时间正序
请发表友善的回复…
发表回复

28,390

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧