 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
\\\'文字或特定图片模式显示新闻 function shownew(content,ntype) shownew = "" if(ntype = 1) then shownew = shownew &" <TABLE width=100% >" shownew = shownew &"<TR>" shownew = shownew &" <TD width=600 style=\\\'word-break:break-all\\\' valign=top>"&ShowPic(content)&"</TD>" shownew = shownew &"</TR>" shownew = shownew &"<TR>" shownew = shownew &" <TD valign=top style=\\\'word-break:break-all\\\'>"&OnlyWord(content)&"</TD>" shownew = shownew &"</TR>" shownew = shownew &"</TABLE>" elseif (ntype = 2) then shownew = shownew &" <TABLE width=\\\'100%\\\'>" shownew = shownew &"<TR>" shownew = shownew &" <TD style=\\\'word-break:break-all\\\' valign=top>"&OnlyWord(content)&"</TD>" shownew = shownew &"</TR>" shownew = shownew &"<TR>" shownew = shownew &" <TD width=600 valign=top style=\\\'word-break:break-all\\\'>"&ShowPic(content)&"</TD>" shownew = shownew &"</TR>" shownew = shownew &"</TABLE>" elseif (ntype = 3) then shownew = shownew &"<TABLE>" shownew = shownew &"<TR>" shownew = shownew &"<TD width=100 valign=top>"&ShowPic(content)&"</TD>" shownew = shownew &"<TD width=80% style=\\\'word-break:break-all\\\' valign=top>"&OnlyWord(content)&"</TD>" shownew = shownew &"</TR>" shownew = shownew &"</TABLE>" elseif (ntype = 4) then shownew = shownew &"<TABLE>" shownew = shownew &"<TR>" shownew = shownew &"<TD width=80% valign=top style=\\\'word-break:break-all\\\'>"&OnlyWord(content)&"</TD>" shownew = shownew &"<TD width=100 valign=top>"&ShowPic(content)&"</TD>" shownew = shownew &"</TR>" shownew = shownew &"</TABLE>" else shownew = shownew & "<table><tr><td style=\\\'word-break:break-all\\\'>"&content&"</td></tr></table>" end if end function \\\'显示提取的图片 function ShowPic(strng) ShowPic = "" ImageUrl= RegExpExecute(strng) ImageUrls = Split(ImageUrl,"<BR>") for i = LBound(ImageUrls) to (UBound(ImageUrls) - 1) ShowPic = ShowPic & ("<a href=\\\'"&ImageUrls(i)&"\\\' target=_blank><image src=\\\'"&ImageUrls(i)&"\\\' border=\\\'0\\\' alt=\\\'按此在新窗口浏览图片\\\' onload=\\\'javascript:if(this.width>180)this.width=180\\\'></a>") 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)&"<BR>" Next RegExpExecute = values End Function \\\'删除内容中与图片有关的代码 function OnlyWord(strng) Set re=new RegExp re.IgnoreCase =True re.Global=True re.Pattern = "(<)(.[^<]*)(src=)(\\\'|"&CHR(34)&"| )?(.[^\\\'|s|"&CHR(34)&"]*)(.)(jpg|gif|png|bmp|jpeg)(\\\'|"&CHR(34)&"|s|>)(.[^>]*)(>)" \\\'设置模式。 OnlyWord=re.Replace(strng,"") Set re= nothing end function 返回类别: 教程 上一教程: 判定函数一览 下一教程: ASP 3.0高级编程(二十七) 您可以阅读与"使用正则表达式实现模式图片新闻.ASP"相关的教程: · 实现搜索结果的要害词变色标注的程序(使用正则表达式) · 通过几个异常实用的例子了解ASP中使用正则表达式 · 在ASP中利用“正则表达式” 对象实现UBB风格的论坛 · 用正则表达式突出显示字符串中查询到的单词的函数 · 用正则表达式搜索电子邮件 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
