<%Function HTMLEncode(ByVal strValue) '忽略错误 On Error Resume Next '定义变量 Dim strNewValue If strValue <> "" Then strNewValue = Replace(strValue,"<","<") strNewValue = ...
http://www.jb51.net//article/178.htm
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "'target=_blankrel=nofollow>http://www.w3.org/TR/html4/loose.dtd"><html><head><title>UBB编辑器</title><meta http-equiv="Content-Type" content="text/html; cha...
http://www.jb51.net//article/176.htm
一、读者指引 读者指引帮助你掌握本文的梗概。以免你看了大半才明白这编文章不适合你，给你造成视觉污染。 如果你正在用ＡＳＰ写程序，或者你正在写一些诸如ＢＢＳ、留言溥或表单数据检查之类的东东那就值得一看。 如果你对正则表达式已经了如指掌，那么你不必一行行的看，只要看看我写的模板，再比较一下，取其精华就行了。 如果你还是第一次接触正则表达式，那么你最好一行行的看，并逐条试验 当你熟练的掌握了正则表达式的用法，你就会发现其乐无穷。二、正则表达式的概念 什么是ＵＢＢ代码？什么是正则表达式？ ＵＢＢ代码是HTML的一个变种。一般情况下，ＵＢＢ论坛不允许你使用ＨＴＭＬ代码，而只能用ＵＢＢ代码替...
http://www.jb51.net//article/111.htm
[code] functionunHtml(content)unHtml=contentifcontent<>""thenunHtml=replace(unHtml,"&","&")unHtml=replace(unHtml,"<","<")unHtml=replace(unHtml,">",">")unHtml=replace(unHtml,chr(34),""")unHtml=replace(unHtml,chr(13),"<br>")unHtml=replace(unHtml,chr(32),"")'unHtml=...
http://www.jb51.net//article/60.htm
记得以前贴过一个ubb代码转换为html格式的代码，前几天读ubb的源代码。所以有了这个新的版本。注意，这个版本可能还不能正常使用，详细见注。这段代码将用户输入的ubb代码转化为html格式，注意，需要ScriptEngine5.0的支持(使用了RegExp对象)注：pattern中使用()将知道regexp记忆搜索到的值，$1是第一个()，其余类推。但$2的语法并不被5.0版本的vbscript.dll所支持，我检查了自己机器上的版本（安装过ie5.5)，发现vbscript.dll的版本为5.50.4629，最后修改日期为12月25日。该版本支持$1之类的语法，这个简单的改进使regexp...
http://www.jb51.net//article/50.htm
<%functionChkBadWords(fString) ifnot(isnull(BadWords)orisnull(fString))then bwords=split(BadWords,"|") fori=0toubound(bwords) fString=Replace(fString,bwords(i),string(len(bwords(i)),"*")) ...
http://www.jb51.net//article/41.htm