- '**************************************************
- '函数名:CreateKeyWord
- '作 用:由给定的字符串生成关键字
- '参 数:Constr---要生成关键字的原字符串
- '返回值:生成的关键字
- '**************************************************
- Function CreateKeyWord(byval Constr,Num)
- If Constr="" or IsNull(Constr)=True or Constr="$False$" Then
- CreateKeyWord="$False$"
- Exit Function
- End If
- If Num="" or IsNumeric(Num)=False Then
- Num=2
- End If
- Constr=Replace(Constr,CHR(32),"")
- Constr=Replace(Constr,CHR(9),"")
- Constr=Replace(Constr," ","")
- Constr=Replace(Constr," ","")
- Constr=Replace(Constr,"(","")
- Constr=Replace(Constr,")","")
- Constr=Replace(Constr,"<","")
- Constr=Replace(Constr,">","")
- Constr=Replace(Constr,"""","")
- Constr=Replace(Constr,"?","")
- Constr=Replace(Constr,"*","")
- Constr=Replace(Constr,"|","")
- Constr=Replace(Constr,",","")
- Constr=Replace(Constr,".","")
- Constr=Replace(Constr,"/","")
- Constr=Replace(Constr,"\","")
- Constr=Replace(Constr,"-","")
- Constr=Replace(Constr,"@","")
- Constr=Replace(Constr,"#","")
- Constr=Replace(Constr,"$","")
- Constr=Replace(Constr,"%","")
- Constr=Replace(Constr,"&","")
- Constr=Replace(Constr,"+","")
- Constr=Replace(Constr,":","")
- Constr=Replace(Constr,":","")
- Constr=Replace(Constr,"‘","")
- Constr=Replace(Constr,"“","")
- Constr=Replace(Constr,"”","")
- Constr=Replace(Constr,"&","")
- Constr=Replace(Constr,"gt;","")
- Dim i,ConstrTemp
- For i=1 To Len(Constr)
- ConstrTemp=ConstrTemp & "|" & Mid(Constr,i,Num)
- Next
- If Len(ConstrTemp)<254 Then
- ConstrTemp=ConstrTemp & "|"
- Else
- ConstrTemp=Left(ConstrTemp,254) & "|"
- End If
- ConstrTemp=left(ConstrTemp,len(ConstrTemp)-1)
- ConstrTemp= Right(ConstrTemp,len(ConstrTemp)-1)
- CreateKeyWord=ConstrTemp
- End Function
CreateKeyWord asp实现的由给定的字符串生成关键字的代码
2019-10-09 14:11asp代码网 ASP教程
CreateKeyWord asp实现的由给定的字符串生成关键字的代码
延伸 · 阅读
- 2019-10-08asp #include命令
- 2019-10-08推荐下天枫常用ASP函数封装,推荐大家使用
- 2019-10-08asp最简单最实用的计数器
- 2019-10-08用asp实现的iframe批量替换工具
- 2019-10-08asp分页生成html的程序脚本代码
- 2019-10-08比较不错的asp单表单字段多条件查询
精彩推荐
- ASP教程
asp ADO GetString函数与用GetString来提高ASP的速度
没想到asp下有getstring这个东西,看样子不熟悉这块啊,以后考虑用这个,应该不错,另外还有getrows等,都是asp下提高性能不错的函数。 ...
- ASP教程
asp程序定义变量比不定义变量速度快一倍
一直以来对asp的程序编写都比较随意,也没有太多考虑运行效率的问题。asp对语法是相当宽容的,容错性很高,它不需要定义变量便可直接使用,变量名不...
- ASP教程
ASP通过ODBC连接SQL Server 2008数据库的方法
这篇文章主要介绍了ASP通过ODBC连接SQL Server 2008数据库的方法,需要的朋友可以参考下...
- ASP教程
静态页面利用JS读取cookies记住用户信息
很多网站、博客都采用生成技术把网页生成html静态页面了,以利于搜索引擎的索引排名,减轻服务器负担。 ...
- ASP教程
asp textbox获取显示mysql数据示例代码
这篇文章主要介绍了asp textbox如何获取显示mysql数据,需要的朋友可以参考下...
- ASP教程
ASP JSON类源码分享
ASP JSON类源码分享,需要的朋友可以参考下。...
- ASP教程
asp将全角的字符转变成半角字符,将半角转变成全角的代码
asp将全角的字符转变成半角字符,将半角转变成全角d的代码 ...
- ASP教程
手写个小组件(组件入门)asp版
下面,我们会来编写一个非常简单的组件,重点是知道怎样开发DLL组件,而不是其复杂的代码!这些都要靠你们自己以后的努力了...