|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
强大的可扩展性。ASP具有强大的扩展性,可以实现与多种网络、硬件设备的连接:通过专用的通讯线路远程接入企业;通过远程拨号服务器为远程拨号客户提供服务;通过WAP为移动电话互联网客户服务。程序|正则<%
之前写全文检索程序的时分写的.
原创by飞鸟@dev-club.com
Email:flybird@dev-club.com
ie5.5剧本引擎required
dimpatern
dimfound
dimstr
dimresult
patern="(a)|(b)"
str="Adogfallinlovewithacat.Canyoubelieve?"
result=""
callgetMatchText(str,result,false)
Response.Writeresult
subgetMatchText(byrefstr,byrefresult,isNeedTrunc)
onerrorresumenext
DimregEx,Match,Matches
dimtStr
SetregEx=NewRegExp创建正则表达式。
regEx.Pattern=(patern)设置形式。
regEx.IgnoreCase=True设置是不是辨别字符巨细写。
regEx.Global=True设置全局可用性。
SetMatches=regEx.Execute(str)实行搜刮。
iferr.number0then
response.write"毛病1:"&err.description
err.clear
exitsub
endif
ifmatches.count0then
dimstartIndex
dimmyMatchValue
startIndex=1
foreachmatchinmatches
if(instr(str,match.value)>0)then
ifinstr(str,match.value)-50>0then
startIndex=instr(str,match.value)-50
else
startIndex=1
endif
myMatchValue=match.value
exitfor
endif
next
ifisNeedTruncthen
result=(mid(str,startIndex,strLength(myMatchValue)+100))
else
result=(str)
endif
foreachmatchinmatches
ifnot(instr(result,"<fontcolor=re</p>结论:和PHP一样,ASP简单而易于维护,很适合小型网站应用,通过DCOM和MTS技术,ASP甚至还可以完成小规模的企业应用,但ASP的致命缺点就是不支持跨平台的系统,在大型项目开发和维护上非常困难。 |
|