ASP网页设计利用正则表达式完成形式图片旧事(增强)...
结论：和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的致命缺点就是不支持跨平台的系统，在大型项目开发和维护上非常困难。 代码逻辑混乱，难于管理：由于ASP是脚本语言混合html编程，所以你很难看清代码的逻辑关系，并且随着程序的复杂性增加，使得代码的管理十分困难，甚至超出一个程序员所能达到的管理能力，从而造成出错或这样那样的问题。 代码的可重用性差：由于是面向结构的编程方式，并且混合html，所以可能页面原型修改一点，整个程序都需要修改，更别提代码重用了。 ASP主要是用好六个对象，其实最主要的是用好其中两个：response和request，就可以随心所欲地控制网页变换和响应用户动作了。 还有如何才能在最短的时间内学完?我每天可以有效学习2小时，双休日4小时。 它可通过内置的组件实现更强大的功能，如使用A-DO可以轻松地访问数据库。 从事这个行业，那么你可以学ASP语言，简单快速上手，熟练dreamweav排版，写asp代码，熟练photoshop处理图片，打好基础就行了 以HTML语言整合(HTML负责界面上，ASP则负责功能上)形成一个B/S(浏览器/服务器)模式的网页程序。
页:
[1]