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

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

<%

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 

（编辑：银川站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!