当前位置: 首页 > 图文教程 > 网络编程 > ASP.NET > ASPX保存远程图片到本地的两种方法的函数

ASP.NET
部署ASP.NET的三大技术(2)
部署ASP.NET的三大技术(3)
部署ASP.NET的三大技术(4)
部署ASP.NET的三大技术(5)
部署ASP.NET的三大技术(6)
ASP.NET可交互式位图窗体设计(1)
ASP.NET可交互式位图窗体设计(2)
ASP.NET可交互式位图窗体设计(3)
ASP.NET可交互式位图窗体设计(4)
ASP.NET可交互式位图窗体设计(5)
ASP.NET可交互式位图窗体设计(6)
ASP.NET可交互式位图窗体设计(7)
ASP.NET可交互式位图窗体设计(8)
ASP.NET可交互式位图窗体设计(9)
ADO.NET2.0的十大新特性
用Asp.net实现基于XML的留言簿之一
用Asp.net实现基于XML的留言簿之二
用Asp.net实现基于XML的留言簿之三
用Asp.net实现基于XML的留言簿之四
在ASP.NET中使用.NET组件

ASP.NET 中的 ASPX保存远程图片到本地的两种方法的函数


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-08-14   浏览: 191 ::
收藏到网摘: n/a

FunctionUpRemoteFileToLocal(ByValUpTypeAsString,ByValRemoteUrlAsString,ByValLocalFileAsString)AsBoolean
DimTmpResultAsBoolean=False
SelectCaseUpType
Case"xmlhttp"
'WithMSXML2
DimmyXmlHttpAsNewMSXML2.XMLHTTP40
myXmlHttp.open("GET",RemoteUrl,False)
myXmlHttp.send()
DimFSAsFileStream=NewFileStream(LocalFile,FileMode.CreateNew)
DimBWAsBinaryWriter=NewBinaryWriter(FS)
BW.Write(myXmlHttp.responseBody)
BW.Close()
FS.Close()
TmpResult=True
Case"webclient"
'WithSystem.NetNameSpace
DimmyWebClientAsNewWebClient
myWebClient.DownloadFile(RemoteUrl,LocalFile)
TmpResult=True
EndSelect
EndFunction