- ubuntu12.04环境下使用kvm ioctl接口实现最简单的虚拟机
- Ubuntu 通过无线网络安装Ubuntu Server启动系统后连接无线网络的方法
- 在Ubuntu上搭建网桥的方法
- ubuntu 虚拟机上网方式及相关配置详解
CFSDN坚持开源创造价值,我们致力于搭建一个资源共享平台,让每一个IT人在这里找到属于你的精彩世界.
这篇CFSDN的博客文章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
- 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读取远程文件并保存到本地代码的内容请搜索CFSDN的文章或继续浏览相关文章,希望大家以后支持我的博客! 。
我试图对 ASP.Net MVC 有一个高层次的理解,我开始意识到它看起来很像原始的 ASP 脚本。过去,我们将“模型”/业务逻辑代码组织到 VBScript 类或 VB COM 组件中。 当然,现在
我已经搜索了一段时间,但似乎找不到答案。 我想在我的旋转木马中显示一个计数器,左边是当前项目(工作),左边是项目总数。 我的代码:
. 最佳答案 Scott Gu 称这些为代码块。这就是我的看法。 http://weblogs.asp.net/scottgu/archive/2010/04/06/new-lt-gt-syntax
我有一个使用 Visual Studio 2010/.net 4/VB 制作的网站。 我真的很喜欢我发现的 FAQ 系统的布局,因为它很简单,但它是经典的 asp。所以,显然,我不能包括我的母版页布局
好吧,对于你们许多人来说,这个问题可能有一个非常明显的答案,但它让我难住了。 我有一个 asp.net Web 表单,上面有两个控件(嗯,不止这两个,但我们将重点关注这些) - 第一个是 asp:dr
当我将 ASP.NET 复选框控件设置为 asp.net 更新面板的异步回发触发器时,EventName 属性是什么? 最佳答案 我相信它是 CheckedChanged。 关于asp.net - a
我有一个用经典 asp 编写的(巨大的)网站。现在我必须切换到 vb.net (razor)。有没有办法将这两个结合起来直到切换完成? 有没有办法让应用程序与经典的 asp 和 vb.net 一起工作
I am creating a products page, where the user selects an option in a radiobuttonlist for example, an
我最近将一个经典的 ASP 应用程序转换为 ASP.NET 3.5,但我觉得我的经典 ASP 版本要快一些(我不知道可能买家会后悔)。 所以你们能帮我解决这个问题吗,让我知道哪个更快,asp、asp.
从本周开始,我被要求开始学习如何使用 ASP 开发网站。我通过 XNA 对 C# 有一定的经验,所以这部分对我来说并不是什么麻烦。 我一直在关注Music Store Tutorial这需要我设置一个
关闭。这个问题需要多问focused 。目前不接受答案。 想要改进此问题吗?更新问题,使其仅关注一个问题 editing this post . 已关闭 8 年前。 Improve this ques
我想将一些表单变量发布到经典 ASP 页面中。我不想改变经典的 ASP 页面,因为需要完成大量的工作,以及消耗它们的页面数量。 经典的 ASP 页面需要将表单变量 Username 和 Userpas
已结束。此问题正在寻求书籍、工具、软件库等的推荐。它不满足Stack Overflow guidelines 。目前不接受答案。 我们不允许提出寻求书籍、工具、软件库等推荐的问题。您可以编辑问题,以便
在某种程度上,这可能是一个异端问题。我们有一个大型站点,其中许多页面仍在ASP中。通常,并没有真正动态的,而是包括(通过SSI或Server.Execute)定期重新生成的HTML块。看起来好像是一个
关闭。这个问题需要多问focused 。目前不接受答案。 想要改进此问题吗?更新问题,使其仅关注一个问题 editing this post . 已关闭 9 年前。 Improve this ques
我有一个遗留的 ASP 应用程序——在不久的某个时候——需要迁移到 ASP.Net 2.0(以与也在 2.0 中的其他应用程序兼容)。 对于这类事情是否有最佳实践,即作为第一步将当前 html、vbs
我目前在一家公司工作,该公司使用 ASP.NET Webforms 和旧 ASP 页面的组合进行 Web 开发。这对于他们当前的项目来说效果很好,但我想说服/建议他们切换到 ASP.NET MVC,因
我有一个经典的 asp 应用程序。我想将该页面的竞赛表格发布到 Asp.Net 表格。原因是我想在进入数据库之前使用我在 Asp.Net 页面中内置的大量逻辑进行验证,而我对 asp 不太了解。更不用
我知道在 ASP.NET MVC 中,您可以拥有移动 View 并执行类似 Index.mobile.cshtml 的操作。和 _Layout.mobile.cshtml并且服务器知道将这些 View
我需要从一些服务器端 c#.net 代码中调用经典 asp 页面上的 VBscript 函数 - 有谁知道一种干净的方法来做到这一点?在 .net 中重写函数不是一种选择。 我会再解释一下这个问题..
我是一名优秀的程序员,十分优秀!