仓酷云

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 428|回复: 7
打印 上一主题 下一主题

[学习教程] ASP网页设计利用正则表达式完成形式图片旧事(增强)...

[复制链接]
小妖女 该用户已被删除
跳转到指定楼层
楼主
发表于 2015-1-16 22:50:49 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?立即注册

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的致命缺点就是不支持跨平台的系统,在大型项目开发和维护上非常困难。
小魔女 该用户已被删除
沙发
发表于 2015-1-20 05:30:07 | 只看该作者
代码逻辑混乱,难于管理:由于ASP是脚本语言混合html编程,所以你很难看清代码的逻辑关系,并且随着程序的复杂性增加,使得代码的管理十分困难,甚至超出一个程序员所能达到的管理能力,从而造成出错或这样那样的问题。
金色的骷髅 该用户已被删除
板凳
发表于 2015-1-26 12:37:17 | 只看该作者
代码的可重用性差:由于是面向结构的编程方式,并且混合html,所以可能页面原型修改一点,整个程序都需要修改,更别提代码重用了。
蒙在股里 该用户已被删除
地板
发表于 2015-2-4 14:44:03 | 只看该作者
ASP主要是用好六个对象,其实最主要的是用好其中两个:response和request,就可以随心所欲地控制网页变换和响应用户动作了。
admin 该用户已被删除
5#
发表于 2015-2-10 01:45:35 | 只看该作者
还有如何才能在最短的时间内学完?我每天可以有效学习2小时,双休日4小时。
再现理想 该用户已被删除
6#
发表于 2015-2-28 13:22:20 | 只看该作者
它可通过内置的组件实现更强大的功能,如使用A-DO可以轻松地访问数据库。
兰色精灵 该用户已被删除
7#
发表于 2015-3-9 23:50:51 | 只看该作者
从事这个行业,那么你可以学ASP语言,简单快速上手,熟练dreamweav排版,写asp代码,熟练photoshop处理图片,打好基础就行了
分手快乐 该用户已被删除
8#
发表于 2015-3-23 17:54:27 | 只看该作者
以HTML语言整合(HTML负责界面上,ASP则负责功能上)形成一个B/S(浏览器/服务器)模式的网页程序。
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|仓酷云 鄂ICP备14007578号-2

GMT+8, 2024-12-24 04:23

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表