|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
结论:和PHP一样,ASP简单而易于维护,很适合小型网站应用,通过DCOM和MTS技术,ASP甚至还可以完成小规模的企业应用,但ASP的致命缺点就是不支持跨平台的系统,在大型项目开发和维护上非常困难。正则客户请求保留原本的img已在的属性,忧郁,持续改
代码以下:
functionshownew(content,ntype)
shownew=""
if(ntype=1)then
shownew=shownew&"<TABLEwidth=100%>"
shownew=shownew&"<TR>"
shownew=shownew&"<TDwidth=700align=centerstyle=word-break:break-allvalign=top>"&ShowPic(content)&"</TD>"
shownew=shownew&"</TR>"
shownew=shownew&"<TR>"
shownew=shownew&"<TDvalign=topstyle=word-break:break-all>"&OnlyWord(content)&"</TD>"
shownew=shownew&"</TR>"
shownew=shownew&"</TABLE>"
elseif(ntype=2)then
shownew=shownew&"<TABLEwidth=100%>"
shownew=shownew&"<TR>"
shownew=shownew&"<TDstyle=word-break:break-allvalign=top>"&OnlyWord(content)&"</TD>"
shownew=shownew&"</TR>"
shownew=shownew&"<TR>"
shownew=shownew&"<TDalign=centerwidth=700valign=topstyle=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&"<TDwidth=100align=centervalign=top>"&ShowPic(content)&"</TD>"
shownew=shownew&"<TDwidth=80%style=word-break:break-allvalign=top>"&OnlyWord(content)&"</TD>"
shownew=shownew&"</TR>"
shownew=shownew&"</TABLE>"
elseif(ntype=4)then
shownew=shownew&"<TABLE>"
shownew=shownew&"<TR>"
shownew=shownew&"<TDwidth=80%valign=topstyle=word-break:break-all>"&OnlyWord(content)&"</TD>"
shownew=shownew&"<TDwidth=100valign=topalign=center>"&ShowPic(content)&"</TD>"
shownew=shownew&"</TR>"
shownew=shownew&"</TABLE>"
else
shownew=shownew&content
endif
endfunction
显现提取的图片
functionShowPic(strng)
setregEx2=newRegExp
regEx2.Pattern="(src=)(|"&CHR(34)&"|)?(.[^||"&CHR(34)&"]*)(.)(jpg|gif|png|bmp|jpeg)(|"&CHR(34)&"||>)?"设置形式。
regEx2.IgnoreCase=true设置是不是辨别字符巨细写。
regEx2.Global=True设置全局可用性。
ShowPic=""
ImageUrl=RegExpExecute(strng)
ImageUrls=Split(ImageUrl,"{|LDIV|}")
fori=LBound(ImageUrls)to(UBound(ImageUrls)-1)
SetMatches2=regEx2.Execute(ImageUrls(i))实行搜刮。
ForEachMatch2inMatches2遍历婚配汇合。
全Img标签
newpic=LCase(ImageUrls(i))
假如没有自界说BORDER增添BOrder=0,别的原属性保存
if(instr(newpic,"border")=false)thennewpic=left(newpic,len(newpic)-1)+"border=0>"
if(instr(newpic,"width")=false)thennewpic=left(newpic,len(newpic)-1)+"width=200>"
newpic="<astyle=padding:20pxhref="&Match2.SubMatches(2)&Match2.SubMatches(3)&Match2.SubMatches(4)&">"&newpic&"</a>"
ShowPic=ShowPic&newpic
Next
next
SetregEx2=nothing
endfunction
从内容中提取图片
FunctionRegExpExecute(strng)
DimregEx,Match,Matches创建变量。
SetregEx=NewRegExp创建正则表达式。
regEx.Pattern="(<)(.[^<]*)(src=)(|"&CHR(34)&"|)?(.[^|s|"&CHR(34)&"]*)(.)(jpg|gif|png|bmp|jpeg)(|"&CHR(34)&"|s|>)(.[^>]*)(>)"设置形式。
regEx.IgnoreCase=true设置是不是辨别字符巨细写。
regEx.Global=True设置全局可用性。
SetMatches=regEx.Execute(strng)实行搜刮。
ForEachMatchinMatches遍历婚配汇合。
values=values&Match.Val</p>结论:和PHP一样,ASP简单而易于维护,很适合小型网站应用,通过DCOM和MTS技术,ASP甚至还可以完成小规模的企业应用,但ASP的致命缺点就是不支持跨平台的系统,在大型项目开发和维护上非常困难。 |
|