% dim act,ifLogin,loginUrl,loginActUrl,loginData,fileUrl,fileName act=request.QueryString("act") if(act="do") then ifLogin=Cint(request.QueryString("ifLogin")) loginActUrl=request.Form("loginActUrl") loginData=request.Form("loginData") fileUrl=request.Form("fileUrl") fileName=mid(fileUrl,instrrev(fileUrl,"/")+1) extPos=instrrev(fileName,"?") if(extPos>0) then fileName=left(fileName,extPos-1) end if if(ifLogin=1) then call PostHttpPage(loginActUrl,loginData) end if call DownloadFile(fileUrl,fileName) else %> form name="form1" method="post" action="?act=do"> p>是否登录： input name="ifLogin" type="radio" value="1"> 是 input name="ifLogin" type="radio" value="0" checked> 否 /p> p>登录提交地址： input name="loginActUrl" type="text" size="50"> /p> p> 登录数据：input name="loginData" type="text" size="50"> /p> p> 要保存的远程文件URL： input name="fileUrl" type="text" size="50"> /p> p> input type="submit" name="Submit" value="提交"> input type="reset" name="Submit2" value="重写"> /p> /form> % end if Function BytesToBstr(body,code) dim objstream set objstream = Server.CreateObject("adodb.stream") objstream.Type = 1 objstream.Mode =3 objstream.Open objstream.Write body objstream.Position = 0 objstream.Type = 2 objstream.Charset =code BytesToBstr = objstream.ReadText objstream.Close set objstream = nothing End Function Function PostHttpPage(loginActUrl,PostData) Dim xmlHttp Dim RetStr Set xmlHttp = CreateObject("Microsoft.XMLHTTP") xmlHttp.Open "POST", loginActUrl, False XmlHTTP.setRequestHeader "Content-Length",Len(PostData) xmlHttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" xmlHttp.Send PostData If Err.Number > 0 Then Set xmlHttp=Nothing response.Write("提交登录时出错！提交数据："PostData) Exit Function End If PostHttpPage=BytesToBstr(xmlHttp.responseBody,"GB2312") Set xmlHttp = nothing End Function ''''''''''''''''''''''''''''''''''''''''''' function DownloadFile(url,filename) 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.BinaryWrite(xml.responseBody) End if end if Response.End Set xml = Nothing end function ''''''''''''''''''''''''''''''''''''''''''''''''''''' %>
