ASP编程:完成搜刮了局的关头词变色标注的程序
实现规模效益。与传统的用户拥有硬件软件所有权和使用权以及传统的应用服务商提供一对一的服务模式不同,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服务器,所以性能稳定性也一般 学习ASP其实应该上升到如何学习程序设计这种境界,其实学习程序设计又是接受一种编程思想。比如ASP如何学习,你也许在以前的学习中碰到过。以下我仔细给你说几点: ASP的语言不仅仅只是命令格式差不多,而是包含在<%%>之内的命令完全就是VB语法。虽然ASP也是做为单独的一个技术来提出的,但他就是完全继承了VB所有的功能。 不是很难但是英文要有一点基础网上的教程很少有系统的详细的去买书吧,另不用专门学习vb关于vbscript脚本在asp教材都有介绍 掌握asp的特性而且一定要知道为什么。 用户端的浏览器不需要提供任何别的支持,这样大提高了用户与服务器之间的交互的速度。 弱类型造成潜在的出错可能:尽管弱数据类型的编程语言使用起来回方便一些,但相对于它所造成的出错几率是远远得不偿失的。 Server:这个表示的服务器,操作服务器的一些东西使用这个,如Server.Mappath转换服务器路径,Server.CreateObject实例化一个组件 虽然ASP也有很多网络教程。但是这些都不系统。都是半路出家,只是从一个例子告诉你怎么用。不会深入讨论,更不会将没有出现在例子里的方法都一一列举出来。 ASP.Net摆脱了以前ASP使用脚本语言来编程的缺点,理论上可以使用任何编程语言包括C++,VB,JS等等,当然,最合适的编程语言还是MS为.NetFrmaework专门推出的C(读csharp),它可以看作是VC和Java的混合体吧。
页:
[1]