[转贴]ASP获得代码中第一张图片地址[2007-10-17](页 1) - 网站编程 - 破解天下论坛

wumingxiaozu 发表于 2007-10-17 08:27

[转贴]ASP获得代码中第一张图片地址[2007-10-17]

[code]
'这个代码是存在问题的，首先还要图片地址的集合用正则弄出来
‘否则这个代码就不可以用
url=pic_url '其中pic_url为图片地址集合
url_1=split(url,".jpg") '图片格式必须为.jpg格式，不是的话需要做判断，
url_2=url_1(0)
url_3=url_2&".jpg"

[/code]

[code]
’这个代码比较完善了，可以直接实用
‘把pattern 又修改了下
'code要检测的代码
'leixing html 或者ubb
'nopic 代码没有图片时默认值
function toppic(code,leixing,nopic)
      set regex = new regexp
      regex.ignorecase = true
      regex.global = true
      if leixing = "html" then
            regex.pattern = "<img(.*?)src\s?\=\s?(\u0022?)([^\u0022\/>]+)"
      else
            regex.pattern = "\[img\]([^\u005B]+)“
      end if
      set matches = regex.execute(code)
      if regex.test(code) then
                              if leixing = "html" then
                        toppic = matches(0).submatches(3)
                              else
                                       toppic = matches(0).submatches(0)
                              end if
      else
            toppic = nopic
      end if
end function
code1 = "<img src=""1.gif"">"
pic = toppic(code1,"html","nopic.gif")
response.Write pic
[/code]

[code]

’这个是别人站点里的一个东西，改改就可以用了很简单的
‘给你贴段我自己程序里更新用的代码吧，就不细解释了．．．．．

'//图片新闻
Function UpdateImg()
      Dim TemplateFilePath
      TemplateFilePath=Server.MapPath("../../index.html")
      Dim TClass,strHtml,Rs,Sql,n
      Set TClass=New TemplateClass
      Sql="Select Top 10 Title,Content,FilePath From view_NewsInfo_P_News Where JoinID=1 and ImgNews=1 Order By UpTime Desc,Id DESC"
      Set Rs=dbm.Exec(Sql)
      strHtml=""       '表格头
      n=0
      Const regPattrn="<img[^>]*src=['""]*([^>\s'""\+]+)['""]*[^>]*>"
      do While Not Rs.Eof and n<6
            '正则匹配图片地址
               Dim regEx, Match, myMatches
               Set regEx = New RegExp
               regEx.Pattern = regPattrn
               regEx.IgnoreCase = True
               regEx.Global = True
               Set myMatches = regEx.Execute(Rs("Content"))
               if myMatches.count>0 then
               'For Each Match In myMatches
            '       response.write "<img src=""" & RepairUrl(Match.SubMatches.item(0)) & """> 地址是:" & RepairUrl(Match.SubMatches.item(0)) & "<BR><BR>"
               'Next
            strHtml=strHtml & "<td align=center bgcolor=white><img src=""" & myMatches(0).SubMatches.item(0) & """ width=130 height=95 /><BR /><div style=""text-align:center;margin-top:5px;""><a href="""&Rs("FilePath")&""" target=_blank>"&LeftNum(Rs("Title"),16)&"</a></div></td>"
                     n=n+1
            end if
            Rs.MoveNext
      loop

      Rs.Close
      Set Rs=Nothing

      With TClass
      .OpenTemplate(TemplateFilePath)
      .StartElement="" '//更新模版文件的关键字，在你要更新的文件里加入
      .EndElement=""  '//结束更新和上面的是配套的，切记
      .Value=strHtml
      .ReplaceTemplate()
      .Save()
      End With
      Set TClass=Nothing
End Function

[/code]

wumingxiaozu 发表于 2007-10-17 08:37

上面的例子只是提供给大家一个思路，其他的部分还是要靠大家自己去发挥了
编程本来就是贵在思路，有了自己的思路没有什么做不出来的了！

sbxxzb 发表于 2008-8-6 05:59

如此佳作，不顶说不过去，楼下的继续顶，直到把宇宙顶穿

nqLkUsQJ 发表于 2008-8-26 05:59

。。。苍天之下，厚土之上，竟有如此奇人异士、文人墨客

shenexlibris 发表于 2008-9-6 12:59

在下对你的景仰之情有如滔滔长江之水，连绵不绝

FnjcUMff 发表于 2008-9-6 17:59

我来了~~~~~~~~~ 闪人~~~~~~~~~~~~~~~~

宝云佳 发表于 2008-9-9 18:52

关于刘翔退赛的内幕

[size=4]关于刘翔退赛的事情我想大家也都知道了，但是内幕是什么呢？我在那里工作过一段时间，拿到了一段录音，内容如下：[/size]
[size=4][/size]
[size=4]谢亚龙：翔子，商量个事。[/size]
[size=4]刘翔：龙王，您说。[/size]
[size=4]谢亚龙：你明天能不能退赛？[/size]
[size=4]刘翔：龙王，您这不是毁我吗？[/size]
[size=4]谢亚龙：你还想在体育圈混吗？[/size]
[size=4]刘翔：在这么关键的时刻退赛，我还怎么做人，怎么对得起买票看我的粉丝？[/size]
[size=4]谢亚龙：实话告诉你，这次让你退场的目的就是让全国人民骂你。本来想让姚明退场的，可是他开价太高，现在预算很紧你也知道的。[/size]
[size=4]刘翔：可是我还不明白……[/size]
[size=4]谢亚龙：其实很简单，你退了场，全国人民就会把你当成焦点，往死了骂你，这样一来，视线转移，就没人骂男足了。你就当一次黄继光，我想办法把你弄足球圈来。我告诉你，你的功劳不亚于杨利伟上天。[/size]

[size=7][color=red]回帖超过20楼我就公布我这段录音的下载地址。[/color][/size]

[img]http://recv.cn/upload/65539/2008-8/12008822062825782.gif[/img]
如何优雅的解决你面临的网站推广问题？[url=http://www.tgxzs.com/]群发软件[/url]、[url=http://www.tgxzs.com/]论坛群发[/url]、[url=http://www.tgxzs.com/]网站推广[/url]又将何去何从？

农夫5三拳 发表于 2008-9-25 03:57

顶一下

发扬盖楼精神，顶楼主一下。
[url=http://www.gold4rs.com][color=white]www.gold4rs.com[/color][/url][color=white] [/color][url=http://www.jay-z.cn][color=white]www.jay-z.cn[/color][/url][color=white] [/color][url=http://www.163xinwen.cn][color=white]www.163xinwen.cn[/color][/url][color=white] [/color][url=http://www.southrap.cn][color=white]www.southrap.cn[/color][/url]

搞活后果飞 发表于 2008-11-11 12:45

华恒拌粉机024-31401808拌料机.拌馅机.搅拌机.拌面机

面机华恒伟业024-31401808拌粉机,拌馅机,搅粉机,粉状搅拌机华恒公司专销拌面机、拌粉机;网址www.cy139.com,该机适用于各类冷面机、压面机及面食系列产品和粉状物的配套设备,也可用于拌和其它物料之用,详情请登陆公司网站或咨询全国长途免费电话! ...
[url=http://www.cy139.com]拌面机[/url]
[url=http://www.cy139.com]拌馅机[/url]
[url=http://www.cy139.com]粉状搅拌机[/url]
[img]http://www.cy139.com/eWebEditor/UploadFile/2007827183047250.jpg[/img]
[img]http://www.cy139.com/eWebEditor/UploadFile/200712164338178.jpg[/img]
[img]http://www.cy139.com/eWebEditor/UploadFile/2008112153831935.jpg[/img]
[img]http://www.cy139.com/eWebEditor/UploadFile/2006112105011624.jpg[/img]
[img]http://www.139hh.com/eWebEditor/UploadFile/200811513637752.jpg[/img]

免费服务电话[img]http://www.118wz.com/eWebEditor/UploadFile/2007118145043646.jpg[/img]

E—MAIL：88324639@163.com

公司网站：www.cy139.com 电话024－88324639 024-88324850 024-31401808

业务咨询QQ：337808621 273037046 415160829

chenrongdianlu 发表于 2008-12-4 02:16

如何提高企业效率

莉莎：“爸爸，这道算术题我不会算。你能告诉我吗？”
爸爸：“你说说，是什么题？”
莉莎：“有个人每月薪水300元，他太太每月却要花去320元，
问……”
爸爸：“别问我了，还是问你妈去吧，她是这方面的专家。”
[url=http://www.shwlky.com]上海华宇物流[/url]
[url=http://www.shwlky.com]华宇物流[/url]
[url=http://www.hywlgs.com.cn]上海华宇物流[/url]
[url=http://www.hywlgs.com.cn]华宇物流[/url]

页: [1]

破解天下论坛's Archiver