|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
实现规模效益。与传统的用户拥有硬件软件所有权和使用权以及传统的应用服务商提供一对一的服务模式不同,ASP拥有应用系统所有权,用户拥有使用权,应用系统集中放在ASP的数据中心中,集中管理,分散使用,以一对多的租赁的形式为众多用户提供有品质保证的应用技术服务,实现规模效益。程序
<%
之前写全文检索程序的时分写的.
原创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=red>"&match.value&"</font>")>0)then
result=replace(result,match.value,"<fontcolor=red>"&match.value&"</font>")
endif
next
found=true
else
found=false
endif
setregEx=nothing
endsub
%>
asp可以使用微软的activeX使得网页功能无比强大,不过安全性也较差,而且是基于的windows服务器,所以性能稳定性也一般 |
|