ASP网页设计ASP下载网页内的图片实例
我想详细了解ASP整站代码与PSP整站代码有什么优缺点，那个更好，更安全，更用容易维护，和管理。。。网页|下载 <%Function WordStrRemoteUrl(sHTML, sSaveFilePath, sFileExt)
'//
'//近程保留图片
'/////////////////////////////////////////////////////
'作 用：交换字符串中的近程文件为当地文件并保留近程文件
'参 数：
' sHTML : 要交换的字符串
' sSavePath : 保留文件的途径
' sExt : 履行交换的扩大名
Dim s_Content
s_Content = sHTML
'If IsObjInstalled("Microsoft.XMLHTTP") = False then
'WordStrRemoteUrl = s_Content
' Exit Function
' End If
'近程图片保留目次,开头请不要加“/”
SaveFilePath="/upload"
'近程图片保留类型
FileExt="jpg|gif|bmp|png"
Dim re, RemoteFile, RemoteFileurl,SaveFileName,SaveFileType,arrSaveFileNameS,arrSaveFileName,sSaveFilePaths
Set re = new RegExp
re.IgnoreCase = True
re.Global = True
re.Pattern = "((http|https|ftp|rtsp|mms):(\/\/|\\\\){1}((\w)+[.]){1,}(net|com|cn|org|cc|tv|{1,3})(\S*\/)((\S)+[.]{1}(" & sFileExt & ")))"
's_Content="http://union.3721.com/v2/images/sicon.gif sfsdf"
response.write s_Content
Set RemoteFile = re.Execute(s_Content)
For Each RemoteFileurl in RemoteFile
SaveFileType = WordStr(WordStr(RemoteFileurl,"/", "a"), ":", "a")
'arrSaveFileName = Right(SaveFileType,12)
arrSaveFileName = Mid(RemoteFileurl,InStrRev(RemoteFileurl, "/")+1)
sSaveFilePaths=sSaveFilePath & "/"
SaveFileName = sSaveFilePaths & arrSaveFileName
Call SaveRemoteFile(SaveFileName, RemoteFileurl)
s_Content = WordStr(s_Content,RemoteFileurl,SaveFileName)
Next
WordStrRemoteUrl = s_Content
End Function
Sub SaveRemoteFile(LocalFileName,RemoteFileUrl)
Dim Ads, Retrieval, GetRemoteData
On Error Resume Next
Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "Get", RemoteFileUrl, False, "", ""
.Send
GetRemoteData = .ResponseBody
End With
Set Retrieval = Nothing
Set Ads = Server.CreateObject("Adodb.Stream")
With Ads
.Type = 1
.Open
.Write GetRemoteData
.SaveToFile Server.MapPath(LocalFileName), 2
.Cancel()
.Close()
End With
Set Ads=nothing
End Sub
Server.ScriptTimeOut=6000 '页面超不时间
url="http://www.webjx.com/htmldata/2006-02-20/1140402873.html"'吸收的网址
code=replace(getHTTPPage(url),vbcrlf,"")'交换失落代码中的 回车符
start=Instr(code,"<html>")'入手下手的代码 这里取网页中有独一性质的 代码入手下手
over=Instr(code,"</html>")'停止的代码 这里取网页中有独一性质的 代码停止
types=mid(code,start,over-start) 'types 变量就是你需求的局部
'//这里应当持续对获得后的代码做休整 以便合适本人需求
'//我才取的是从<html>到</html> 所所以读全部页面 实践上依据本人需求检查人家的代码 对比下
'//实践上还需求一些其他的函数 好比收拾整顿HTML标记符的函数, 主动吸收近程图片的函数
'//还有就是页面的主动跳转等 == 这个就看本人的扩大了
types=WordStrRemoteUrl(types,SaveFilePath,FileExt)//下载近程图片
response.write types ' 测试输入
'下边的函数不必管, 包含 翻开,读取,网页
Function getHTTPPage(Path)
t = GetBody(Path)
getHTTPPage=BytesToBstr(t,"GB2312")
End function
Function GetBody(url)
on error resume next
Set Retrieval = CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "Get", url, False, "", ""
.Send
GetBody = .ResponseBody
End With
Set Retrieval = Nothing
End Function
Function BytesToBstr(body,Cset)
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 = Cset
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function
%>
asp是基于web的一种编程技术，可以说是cgi的一种。它可以完成以往cgi程序的所有功能，如计数器、留言簿、公告板、聊天室等等。 ASP主要是用好六个对象，其实最主要的是用好其中两个：response和request，就可以随心所欲地控制网页变换和响应用户动作了。 如何更好的使自己的东西看上去很不错等等。其实这些都不是问题的实质，我们可以在实践中不断提升自己，不断充实自己。 弱类型造成潜在的出错可能：尽管弱数据类型的编程语言使用起来回方便一些，但相对于它所造成的出错几率是远远得不偿失的。 先学习用frontpage熟悉html编辑然后学习asp和vbscript建议买书进行系统学习 以上是语言本身的弱点，在功能方面ASP同样存在问题，第一是功能太弱，一些底层操作只能通过组件来完成，在这点上是远远比不上PHP/JSP，其次就是缺乏完善的纠错/调试功能，这点上ASP/PHP/JSP差不多。 以HTML语言整合(HTML负责界面上，ASP则负责功能上)形成一个B/S(浏览器/服务器)模式的网页程序。 下载一个源代码，然后再下载一个VBScript帮助，在源代码中遇到不认识的函数或是其他什么程序，都可以查帮助进行解决，这样学习效率很高。 他的语法和设计思路和VB完全相同，导致很多ASP的书都留一句“相关内容请参考VB的相关教材....”更糟糕的是，相当多的ASP教程混合了Javascript,VBscript等等脚本语言，搞的初学者。 你可以通过继承已有的对象最大限度保护你以前的投资。并且C#和C++、Java一样提供了完善的调试/纠错体系。 代码逻辑混乱，难于管理：由于ASP是脚本语言混合html编程，所以你很难看清代码的逻辑关系，并且随着程序的复杂性增加，使得代码的管理十分困难，甚至超出一个程序员所能达到的管理能力，从而造成出错或这样那样的问题。 我认为比较好的方法是找一些比较经典的例子，每个例子比较集中一种编程思想而设计的。 我想问如何掌握学习节奏(先学什么再学什么)最好详细点? 兴趣爱好，那么你无须学编程，申请一个域名和空间，在网上下载一些免费开源的CMS系统，你不用改代码，只须熟悉它们的后台操作，像office一样简单方便，很快就能建一个站点，很多站长都是这样做的 ASP.Net和ASP的最大区别在于编程思维的转换，而不仅仅在于功能的增强。ASP使用VBS/JS这样的脚本语言混合html来编程，而那些脚本语言属于弱类型、面向结构的编程语言，而非面向对象，这就明显产生以下几个问题： 多看多学多思。多看一些关于ASP的书籍，一方面可以扩展知识面一方面可以鉴借别人是如何掌握、运用ASP的;多学善于关注别人，向同学老师多多学习，不论知识的大小;多思则是要将学到的知识灵活运用。 封装性使得代码逻辑清晰，易于管理，并且应用到ASP.Net上就可以使业务逻辑和Html页面分离，这样无论页面原型如何改变，业务逻辑代码都不必做任何改动；继承性和多态性使得代码的可重用性大大提高。 下面简单介绍一下我学习ASP的方法,希望对想学习ASP的朋友有所帮助... 他的语法和设计思路和VB完全相同，导致很多ASP的书都留一句“相关内容请参考VB的相关教材....”更糟糕的是，相当多的ASP教程混合了Javascript,VBscript等等脚本语言，搞的初学者。 从事这个行业，那么你可以学ASP语言，简单快速上手，熟练dreamweav排版，写asp代码，熟练photoshop处理图片，打好基础就行了
页:
[1]