下载首页 | 资讯中心 | 下载分类 | 最近更新 | 排 行 榜 | 国产软件 | 国外软件 | 汉化补丁 |
文章搜索: 分类 关键字 收藏本站设为首页
您的位置:首页网页设计ASP程序 → 使用正则表达式实现模式图片新闻.ASP__教程
使用正则表达式实现模式图片新闻.ASP__教程
日期:2007-5-20 1:28:21 人气:177     [ ]
上一页 [1] [2] 下一页
 '文字或特定图片模式显示新闻

function shownew(content,ntype)

shownew = ""

if(ntype = 1) then

shownew = shownew &" "
shownew = shownew &""
shownew = shownew &" "
shownew = shownew &""
shownew = shownew &""
shownew = shownew &" "
shownew = shownew &""
shownew = shownew &"
"&ShowPic(content)&"
"&OnlyWord(content)&"
"


elseif (ntype = 2) then


shownew = shownew &" "

shownew = shownew &""
shownew = shownew &" "
shownew = shownew &""
shownew = shownew &""
shownew = shownew &" "
shownew = shownew &""
shownew = shownew &"
"&OnlyWord(content)&"
"&ShowPic(content)&"
"

elseif (ntype = 3) then


shownew = shownew &""

shownew = shownew &""
shownew = shownew &""

shownew = shownew &""


shownew = shownew &""
shownew = shownew &"
"&ShowPic(content)&""&OnlyWord(content)&"
"

elseif (ntype = 4) then

shownew = shownew &""

shownew = shownew &""

shownew = shownew &""
shownew = shownew &""

shownew = shownew &""
shownew = shownew &"
"&OnlyWord(content)&""&ShowPic(content)&"
"
else
shownew = shownew & "
"&content&"
"
end if

end function

'显示提取的图片
function ShowPic(strng)

ShowPic = ""
ImageUrl= RegExpExecute(strng)

ImageUrls = Split(ImageUrl,"
")

for i = LBound(ImageUrls) to (UBound(ImageUrls) - 1)

ShowPic = ShowPic & ("按此在新窗口浏览图片")

next

end function


'从内容中提取图片
Function RegExpExecute(strng)
Dim regEx, Match, Matches '建立变量。
Set regEx = New RegExp '建立正则表达式。
regEx.Pattern = "(src=)('|"&CHR(34)&"| )?(.[^'|\s|"&CHR(34)&"]*)(\.)(jpg|gif|png|bmp|jpeg)('|"&CHR(34)&"|\s|>)?" '设置模式。
' regEx.Pattern = "(src=)('|"&CHR(34)&"| )?(.[^'| |"&CHR(34)&"]*)(\.)(jpg|gif|png|bmp|jpeg)('|"&CHR(34)&"| |>)?" '设置模式。
'regEx.Pattern = "(s|S)(r|R)(c|C)=('|"+CHR(34)+")(\w|\\|\/|\.)+('|"+CHR(34)+"| *|>)?" '设置模式。
regEx.IgnoreCase = true '设置是否区分字符大小写。
regEx.Global = True '设置全局可用性。
Set Matches = regEx.Execute(strng) '执行搜索。
For Each Match in Matches '遍历匹配集合。
values=values&Match.SubMatches(2)&Match.SubMatches(3)&Match.SubMatches(4)&"
"
Next
RegExpExecute = values
出处:本站原创 作者:佚名
 阅读排行
01.精美qq空间横幅代码
02.最酷qq个性女生网名
03.最新又有免费QQ秀啦《..
04.巧用透明FlaSh扮靓你的..
05.花之神匠代码(最新代码..
06.最新QQ空间免费导航
07.最新免费个人形象设置..
08.最新qq空间flash代码m..
09.CSS技术结合图像实现动..
10.Photoshop光影魔术师:..
11.QQ音速种子狂刷
12.最新QQ空间透明代码
13.PS实例教程:教你制作结..
14.Photoshop光影魔术师:..
15.制作背景图__教程
16.用Photoshop制作漂亮的..
17.如何获得QQ音速种子
18.≤QQ空间代码≥在日志..
19.网页浮动广告的制作代..
20.用Photoshop制作大红灯..
21.常用CSS
22.Photoshop给靓丽美女打..
 推荐文章
·Photoshop 表现技法之..
·快速将你的相片矢量化..
·PHOTOSHOP制作炽热的太..
·用Photoshop制作美丽的..
·流行杀手的娃娃工厂__..
·打造8号台球__教程
·PHOTOSHOP制作待机MM图..
·用Photoshop帮MM做纹身..
·PHOTOSHOP美眉着色绝招..
·PHOTOSHOP花露的制作_..
·PHOTOSHOP渐变工具的巧..
·PHOTOSHOP手绘奥兰多-..
·高难度抠图两种方法__..
·Photoshop高尔夫球的制..
·Photoshop打造精美玉佩..
Eqxia_COM下载站 版权所有 Copyright© 2001-2005 Www.eqxia.COM, All Rights Reserved.