作家
登录

asp读取远程文件并保存到本地代码

作者: 来源:www.28hudong.com 2013-03-30 08:41:34 阅读 我要评论

<% 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 ''''''''''''''''''''''''''''''''''''''''''''''''''''' %>

  推荐阅读

  可用的ASP无重复数字随机函数, 数组实现, 并应用于随机显示记录集

经脚本之家站长测试可用的ASP无重复数字随机函数, 数组实现, 并应用于随机显示记录集作用: 本函数适用于随机显示小数量的随机不重复数字 本函数适用于显示小数量的随机不重复记录集 为了不影响效率, 上限超过一千,>>>详细阅读


本文标题:asp读取远程文件并保存到本地代码

地址:http://www.17bianji.com/kaifa2/ASP/32587.html

关键词: 探索发现

乐购科技部分新闻及文章转载自互联网,供读者交流和学习,若有涉及作者版权等问题请及时与我们联系,以便更正、删除或按规定办理。感谢所有提供资讯的网站,欢迎各类媒体与乐购科技进行文章共享合作。

网友点评
自媒体专栏

评论

热度

精彩导读
栏目ID=71的表不存在(操作类型=0)