ASP网页设计ASP下载网页内的图片实例

只看该作者 · 发表于 2015-2-3 23:30:53

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有帐号？立即注册

x

我想详细了解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|[0-9]{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程序的所有功能，如计数器、留言簿、公告板、聊天室等等。

只看该作者 · 发表于 2015-6-26 13:22:15

从事这个行业，那么你可以学ASP语言，简单快速上手，熟练dreamweav排版，写asp代码，熟练photoshop处理图片，打好基础就行了

只看该作者 · 发表于 2015-6-16 00:54:00

他的语法和设计思路和VB完全相同，导致很多ASP的书都留一句“相关内容请参考VB的相关教材....”更糟糕的是，相当多的ASP教程混合了Javascript,VBscript等等脚本语言，搞的初学者。

只看该作者 · 发表于 2015-5-3 06:42:54

下面简单介绍一下我学习ASP的方法,希望对想学习ASP的朋友有所帮助...

只看该作者 · 发表于 2015-4-28 13:48:51

封装性使得代码逻辑清晰，易于管理，并且应用到ASP.Net上就可以使业务逻辑和Html页面分离，这样无论页面原型如何改变，业务逻辑代码都不必做任何改动；继承性和多态性使得代码的可重用性大大提高。

只看该作者 · 发表于 2015-4-21 21:10:43

多看多学多思。多看一些关于ASP的书籍，一方面可以扩展知识面一方面可以鉴借别人是如何掌握、运用ASP的;多学善于关注别人，向同学老师多多学习，不论知识的大小;多思则是要将学到的知识灵活运用。

只看该作者 · 发表于 2015-4-18 15:33:35

ASP.Net和ASP的最大区别在于编程思维的转换，而不仅仅在于功能的增强。ASP使用VBS/JS这样的脚本语言混合html来编程，而那些脚本语言属于弱类型、面向结构的编程语言，而非面向对象，这就明显产生以下几个问题：

只看该作者 · 发表于 2015-4-16 16:47:56

兴趣爱好，那么你无须学编程，申请一个域名和空间，在网上下载一些免费开源的CMS系统，你不用改代码，只须熟悉它们的后台操作，像office一样简单方便，很快就能建一个站点，很多站长都是这样做的

只看该作者 · 发表于 2015-3-29 02:32:28

我想问如何掌握学习节奏(先学什么再学什么)最好详细点?

只看该作者 · 发表于 2015-3-24 10:08:56

我认为比较好的方法是找一些比较经典的例子，每个例子比较集中一种编程思想而设计的。

只看该作者 · 发表于 2015-3-22 23:35:57

代码逻辑混乱，难于管理：由于ASP是脚本语言混合html编程，所以你很难看清代码的逻辑关系，并且随着程序的复杂性增加，使得代码的管理十分困难，甚至超出一个程序员所能达到的管理能力，从而造成出错或这样那样的问题。

仓酷云 · 发表于 2015-3-20 09:52:27

你可以通过继承已有的对象最大限度保护你以前的投资。并且C#和C++、Java一样提供了完善的调试/纠错体系。

只看该作者 · 发表于 2015-3-19 19:40:35

他的语法和设计思路和VB完全相同，导致很多ASP的书都留一句“相关内容请参考VB的相关教材....”更糟糕的是，相当多的ASP教程混合了Javascript,VBscript等等脚本语言，搞的初学者。

只看该作者 · 发表于 2015-3-12 09:36:54

下载一个源代码，然后再下载一个VBScript帮助，在源代码中遇到不认识的函数或是其他什么程序，都可以查帮助进行解决，这样学习效率很高。

只看该作者 · 发表于 2015-3-5 15:56:20

以HTML语言整合(HTML负责界面上，ASP则负责功能上)形成一个B/S(浏览器/服务器)模式的网页程序。

只看该作者 · 发表于 2015-3-1 16:00:47

以上是语言本身的弱点，在功能方面ASP同样存在问题，第一是功能太弱，一些底层操作只能通过组件来完成，在这点上是远远比不上PHP/JSP，其次就是缺乏完善的纠错/调试功能，这点上ASP/PHP/JSP差不多。

只看该作者 · 发表于 2015-2-27 19:14:46

先学习用frontpage熟悉html编辑然后学习asp和vbscript建议买书进行系统学习

只看该作者 · 发表于 2015-2-9 19:46:10

弱类型造成潜在的出错可能：尽管弱数据类型的编程语言使用起来回方便一些，但相对于它所造成的出错几率是远远得不偿失的。

只看该作者 · 发表于 2015-2-9 07:53:49

如何更好的使自己的东西看上去很不错等等。其实这些都不是问题的实质，我们可以在实践中不断提升自己，不断充实自己。

只看该作者 · 发表于 2015-2-4 00:16:42

ASP主要是用好六个对象，其实最主要的是用好其中两个：response和request，就可以随心所欲地控制网页变换和响应用户动作了。

		自动登录	找回密码
密码			立即注册

[学习教程] ASP网页设计ASP下载网页内的图片实例

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子