当前位置: 首页 > 图文教程 > 网络编程 > ASP.NET > 用ASP.NET实现简单的文字水印

ASP.NET
.Net将如何影响我们?(一)
.Net将如何影响我们?(二)
开发者面临的.Net挑战(一)
开发者面临的.Net挑战(三)
.Net的精髓-XML和SOAP(一)
.Net的精髓-XML和SOAP(二)
.Net的精髓-XML和SOAP(三)
.net的reflection (1)
.net的reflection (2)
Asp.net编写的PING工具
.NET语言的选择
且看微软的.Net和Sun公司的J2EE如何对垒
从 Visual Basic 6.0 到 Visual Basic.NET 的转换(1)
从 Visual Basic 6.0 到 Visual Basic.NET 的转换(2)
从 Visual Basic 6.0 到 Visual Basic.NET 的转换(3)
从 Visual Basic 6.0 到 Visual Basic.NET 的转换(4)
从 Visual Basic 6.0 到 Visual Basic.NET 的转换(5)
什么是配件(assembly)?
什么是映射(reflection)?
从一个舆论调查的制作谈面向对象的编程思路(一)

用ASP.NET实现简单的文字水印


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-08-14   浏览: 187 ::
收藏到网摘: 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