过滤关键字<%
'******************************
'函数:ChkKeyWord(ByVal keyword)
'参数:keyword,关键字
'作者:阿里西西
'日期:2007/7/15
'描述:过滤关键字
'示例:ChkKeyWord("sfsdfdf'8&5ddd")
'******************************
Function ChkKeyWord(ByVal keyword)
Dim FobWords, i
On Error Resume Next
FobWords = Array(91, 92, 304, 305, 430, 431, 437, 438, 12460, 12461, 12462, 12463, 12464, 12465, 12466, 12467, 12468, 12469, 12470, 12471, 12472, 12473, 12474, 12475, 12476, 12477, 12478, 12479, 12480, 12481, 12482, 12483, 12485, 12486, 12487, 12488, 12489, 12490, 12496, 12497, 12498, 12499, 12500, 12501, 12502, 12503, 12504, 12505, 12506, 12507, 12508, 12509, 12510, 12521, 12532, 12533, 65339, 65340)
For i = 1 To UBound(FobWords, 1)
If InStr(keyword, ChrW(FobWords(i))) > 0 Then
keyword = Replace(keyword, ChrW(FobWords(i)), "")
End If
Next
keyword = Left(keyword, 100)
FobWords = Array("~", "!", "@", "#", "$", "%", "^", "&", "*", "(", ")", "_", "+", "=", "`", "[", "]", "{", "}", ";", ":", """", "'", ",", "<", ">", ".", "/", "\", "?", "_")
For i = 0 To UBound(FobWords, 1)
If InStr(keyword, FobWords(i)) > 0 Then
keyword = Replace(keyword, FobWords(i), "")
End If
Next
ChkKeyWord = keyword
End Function%>
asp实现过滤关键字的函数
时间: 2024-08-01 20:40:24
asp实现过滤关键字的函数的相关文章
asp实现过滤关键字的函数_应用技巧
过滤关键字<% '****************************** '函数:ChkKeyWord(ByVal keyword) '参数:keyword,关键字 '作者:阿里西西 '日期:2007/7/15 '描述:过滤关键字 '示例:ChkKeyWord("sfsdfdf'8&5ddd") '****************************** Function ChkKeyWord(ByVal keyword) Dim FobWords, i
asp.net MVC利用自定义ModelBinder过滤关键字的方法(附demo源码下载)_实用技巧
本文实例讲述了MVC利用自定义ModelBinder过滤关键字的方法.分享给大家供大家参考,具体如下: 前面一篇主要讲解了如何利用ActionFilter过滤关键字,这篇主要讲解如何利用自己打造的ModelBinder来过滤关键字. 首先,我们还是利用上一篇<asp.net MVC利用ActionFilterAttribute过滤关键字的方法>中的实体类,但是我们需要加上DataType特性,以便于我们构造的ModelBinder通过DataTypeName识别出来: using System
asp.net C# 关键字过滤程序代码
代码如下 复制代码 例1 /// <summary> /// 过滤关键字 /// </summary> /// <param name="value">过滤字眼,用| 隔开</param> /// <param name="text">传入要过滤的数据</param> /// <returns>&l
巧用asp语言过滤html元素
巧用asp语言过滤html元素: '过滤html '函数名:GlHtml '作 用:过滤html 元素 '参 数:str ---- 要过滤字符 '返回值:没有html 的字符 '************************************************** Public Function GlHtml(ByVal str) If IsNull(str) Or Trim(str) = "" Then GlHtml = "" Exit Func
ASP超级链接和HTML函数正则表达式 修正版_正则表达式
过滤超级链接 复制代码 代码如下: Function RegRemoveHref(HTMLstr) Set ra = New RegExp ra.IgnoreCase = True ra.Global = True ra.Pattern = "<A[^>]+>(.+?)<\/A>" RegRemoveHref = ra.replace(HTMLstr,"$1") END Function 过滤所有HTML代码 复制代码 代码如下: Fu
ASP超级链接和HTML函数正则表达式 修正版
过滤超级链接 复制代码 代码如下: Function RegRemoveHref(HTMLstr) Set ra = New RegExp ra.IgnoreCase = True ra.Global = True ra.Pattern = "<A[^>]+>(.+?)<\/A>" RegRemoveHref = ra.replace(HTMLstr,"$1") END Function 过滤所有HTML代码 复制代码 代码如下: Fu
asp之日期和时间函数示例
函数|示例 asp之日期和时间函数示例 可以使用日期和时间函数来得到各种格式的日期和时间 函数 语法 说明 示例 Now Now() 取得系统当前的日期和时间 Dim MyVar MyVar = Now' MyVar 包含当前的日期和时间. Date Date() 取得系统当前的日期 Dim MyDate MyDate = Date' MyDate 包含当前系统日期. Time Time() 取得系统当前的时间 Dim MyTime MyTime = Time ' 返回当前系统时间. Year
Asp 利用 Jmail 发信的函数
jmail|函数 Asp 利用 Jmail 发信的函数 '作者:Loster(OICQ:181306) [如果转载请勿删除此信息,谢谢!]'函数名:Send_Email()'作用:利用Jmail4.3组件发送E-Mail'参数:'Email:类型:字符串.作用:接收E-Mail的地址.'E_Subject:类型:字符串.作用:信件主题.'Information:类型:字符串.作用:信件内容.'S_Type:类型:布尔值.作用:是否为Html格式信件.True为Html格式.False为文本格式.
VB.NET与VB6的比较:被撤销的关键字和函数
比较|关键字|函数 VB.NET与VB6的比较:被撤销的关键字和函数 历史的发展,就是一个不断扬弃的过程,VB.NET也是一样.它毫不犹豫地删除了不少关键字与函数,其中的很多是众多VB6编程员从不会想念的.例如,已经删除了的DefType语句.这个语句是对Fortran的倒退,允许开发人员指出,以字母I,J,K,L,M,N开始的所有变量都是整数.多数编程员或许从未使用这个函数.另一个不再可用的关键字是Go To和Go Sub函数.VB.NET敢于删除一些过于深奥和陈旧的函数的勇气,正是Micro