ASP编程：replace不辨别巨细写(高亮显现关头字)的...
ASP由于使用了COM组件所以它会变的十分强大，但是这样的强大由于WindowsNT系统最初的设计问题而会引发大量的安全问题。只要在这样的组件或是操作中一不注意，哪么外部攻击就可以取得相当高的权限而导致网站瘫痪或者数据丢失；巨细写|高亮显现|关头字|函数以下是函数源代码：<%
FunctionTakeout(patrn,string1,colors)
’提取搜刮关头字婚配笔墨
DimregEx,Match,Matches,tt’创建变量。
SetregEx=NewRegExp’创建正则表达式。
regEx.Pattern=patrn’设置形式。
regEx.IgnoreCase=True’设置是不是辨别巨细写。
regEx.Global=True’设置全局可用性。
SetMatches=regEx.Execute(string1)’实行搜刮。
ForEachMatchinMatches’遍历Matches汇合。
RetStr=RetStr&Match.Value&""
Next
RetStr=trim(RetStr)
ifinstr(RetStr,"")>0then
fortt=0toubound(split(RetStr,""))
string1=replace(string1,split(RetStr,"")(tt),"<fontcolor="""&colors&""">"&split(RetStr,"")(tt)&"</font>")
next
else
string1=replace(string1,RetStr,"<fontcolor="""&colors&""">"&RetStr&"</font>")
endif
Takeout=string1
EndFunction
response.writeTakeout("jOeKOe","Joekoe乔客双语版","red")
FunctionHighlight(strContent,keyword)’标志高亮关头字
DimRegEx
SetRegEx=newRegExp
RegEx.IgnoreCase=True’不辨别巨细写
RegEx.Global=True
DimArrayKeyword,i
ArrayKeyword=Split(keyword,"")’用空格离隔的多关头字
Fori=0ToUbound(ArrayKeyword)
RegEx.Pattern="("&ArrayKeyword(i)&")"
strContent=RegEx.Replace(strContent,"<fontcolor=red>$1</font>")
Next
SetRegEx=Nothing
Highlight=strContent
EndFunction
response.writeHighlight("Joekoe乔客双语版","jOeKOe")
%>
当然了,现在国内CRM厂商的产品与其说是CRM,但从至少从我的角度分析上来看,充其量只是一个大型的进销存而已了,了解尚浅,不够胆详评,这里只提技术问题 它可通过内置的组件实现更强大的功能，如使用A-DO可以轻松地访问数据库。 以上是语言本身的弱点，在功能方面ASP同样存在问题，第一是功能太弱，一些底层操作只能通过组件来完成，在这点上是远远比不上PHP/JSP，其次就是缺乏完善的纠错/调试功能，这点上ASP/PHP/JSP差不多。 它可通过内置的组件实现更强大的功能，如使用A-DO可以轻松地访问数据库。 跟学别的语言一样，先掌握变量，流程控制语句(就是ifwhileselect)等，函数/过程，数组 我想问如何掌握学习节奏(先学什么再学什么)最好详细点? ASP也是这几种脚本语言中最简单易学的开发语言。但ASP也是这几种语言中唯一的一个不能很好支持跨平台的语言。 因为ASP脚本语言非常简单，因此其代码也简单易懂，结合HTML代码，可快速地完成网站的应用程序。 下载一个源代码，然后再下载一个VBScript帮助，在源代码中遇到不认识的函数或是其他什么程序，都可以查帮助进行解决，这样学习效率很高。
页:
[1]