asp下根据标题生成关键字的代码

'Function CreateKeyWords(KeyWords)
'关键字生成系统
Dim i,L,TempStr
KeyWords_Temp=reReplace(KeyWords, "[\x00-\xff]|\n| |　|，|。|、|！|？|：|"|"|［|］|—|—|（|）|…", "")
L=Len(KeyWords_Temp)
For i=1 To L-1
TempStr=TempStr & "," & Mid(KeyWords_Temp,i,2)
Next
CreateKeyWords=KeyWords & TempStr
End Function

Function reReplace(Str, restrS, restrD)
'正则表达式写的替换
'Made by www.yongfa365.com
Set re = New RegExp
re.IgnoreCase = True
re.Global = True
re.Pattern = restrS
reReplace = re.Replace(Str, restrD)
End Function

MsgBox CreateKeyWords("hello 你好啊， 你知道 我是谁不？ ，呵呵，我是柳永法() yongfa365 知道不")

[Ctrl+A 全选 注:如需引入外部Js需刷新才能执行]

赞 (0)

相关推荐

  • asp下根据标题生成关键字的代码

    'Function CreateKeyWords(KeyWords) '关键字生成系统 Dim i,L,TempStr KeyWords_Temp=reReplace(KeyWords, "[\x00-\xff]|\n| | |,|.|.|!|?|:|"|"|［|］|-|-|(|)|-", "") L=Len(KeyWords_Temp) For i=1 To L-1 TempStr=TempStr & "," &am

  • CreateKeyWord asp实现的由给定的字符串生成关键字的代码

    '************************************************** '函数名:CreateKeyWord '作  用:由给定的字符串生成关键字 '参  数:Constr---要生成关键字的原字符串 '返回值:生成的关键字 '************************************************** Function CreateKeyWord(byval Constr,Num)    If Constr="" or IsNu

  • asp下使用数组存放数据的代码

    asp用客户端数组存放数据,这种应用我已经见过很多.但最近在研究几套流量交换联盟系统时,这种技术才引起了我的注意. 下面我讲讲如何运用,先给出个没有结合ASP,就单纯适用javascript的例子. 1.js 复制代码 代码如下: var a = new Array();  var temp = "<table>";  a[0] = new Array(1,"阿会楠","男");   a[1] = new Array(2,"

  • asp下用fso生成js文件的代码

    <%sub fsojs()%>  <% Set fso= Server.CreateObject("Scripting.FileSystemObject") set fd=fso.createtextfile(server.MapPath("../category.js"),true) '开始操作 set rs=server.CreateObject("adodb.recordset") rs.Open "select

  • asp下用replace非正则实现代码运行功能的代码

    今天更新了一下博客的代码运行功能,因为原来的写得不够完善,如果想在博客里插入多个可运行的代码,那就会--呃屁.关于replace函数,js中只是替换从起始位置的第一个指定字串,而vbs则是替换所有的指定字串,因此如果想要用vbs一个一个替换,那就得绕个弯子了,写个函数就行了,顺便,把写完的这个函数上传了,这下可以在一个日志里放多个代码运行演示了! 感冒了,写完函数就乖乖去睡觉,今天过得真是辛苦,有种快要死掉的感觉...鼻子里塞着纸团,因为鼻涕止不住地流,呜 替换函数的代码如下: function

  • ASP下检测图片木马的函数代码

    木马原理:入侵者使用诸如ASP图片木马生成器之类的工具将一张正常的图片与一个ASP木马文件合并成一个图片文件(即将对网站有害的 ASP代码插在图片编码之后,虽然图片仍然可以正常显示,但是文件内容和尺寸已被改变),然后通过网站提供的文件上传功能上传这一张"合 '法的"图片,进而实现了上传ASP木马的目的. ' 防范方法:因为这种木马是图片与木马的二合一,所以需要在上传图片前检查文件内容,若文件内容不合法(即包含有恶意代码在里面), '则禁止上传,从而堵住了木马攻击的源头,这是木马攻击的第

  • asp 下产生任意位数随机密码的代码

    <% '****************************** '函数:MakePassword(byval maxlen) '参数:maxlen,要生成的密码位数长度 '作者:阿里西西 '日期:2007/7/12 '描述:产生任意位数随机密码 '示例:<%=MakePassword(8)%>  '****************************** function MakePassword(byval maxlen)  dim strnewpass  dim whats

  • asp下实现 重新排序数字数组的代码

    <% '****************************** '函数:NewOrder(ArrStr) '参数:Rstr,以逗号做分隔的数字数组 '作者:阿里西西 '日期:2007/7/13 '描述:重排序数字数组 '示例:<%=NewOrder("34,53,13,22,38,86,111,23,65")%> '****************************** Function NewOrder(ArrStr) For i = 0 To Ubou

  • asp下实现UrlEncoding转换编码的代码

    '================================================== '函数名:UrlEncoding '作  用:转换编码 '================================================== Function UrlEncoding(DataStr)     Dim StrReturn,Si,ThisChr,InnerCode,Hight8,Low8     StrReturn = ""     For Si = 

  • Linux下控制(统计)文件的生成的C代码实现

    本文分享了Linux下控制(统计)文件的生成的C代码实现案例,供大家参考,具体内容如下 一.需求描述 不定时地在Linux机器下的某目录中放入文件,文件内容中包含了用户号码.起止时间等字段,现要求编写一程序来统计目前该目录中所有文件中的记录总条数及所有记录中的最早起始时间和最晚结束时间. 例如,该目录中有两个文件Test_1.txt和Test_2.txt,其中Test_1.txt文件内容为: 15696192591|15696192592|20151103 120909|20151103 201

随机推荐