<%
function HtmlEncode(fString)
fString = replace(fString, ">", ">")
fString = replace(fString, "<", "<")
fString = Replace(fString, CHR(32), " ")
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), "</P><P>")
fString = Replace(fString, CHR(10), "<BR>")
fString = Replace(fString, "exec", "e xec")
fString = Replace(fString, "config", "c onfig")
fString = Replace(fString, "echo", "e cho")
fString = Replace(fString, "'", """")
HtmlEncode = fString
end function
function HtmlDecode(fString)
fString = Replace(fString, ">", ">")
fString = Replace(fString, "<", "<")
fString = Replace(fString, "&","&")
fString = Replace(fString,""", """")
fString = Replace(fString, CHR(32), " ")
fString = Replace(fString, CHR(10), "<BR>")
fString = Replace(fString, CHR(10) & CHR(10), "</P><P>")
fString = Replace(fString, "e xec", "exec")
fString = Replace(fString, "c onfig", "config")
fString = Replace(fString, "e cho", "echo")
HtmlUncode = fString
end function
%>
---------------------------------------------------------------------------------
<%
'----------------------------------------------------------------'
' encodeHTML
' HTML 编码,替换输入内容中的 HTML 代码
' 参数:
' str 需要被编码的字符串
' 返回值:字符串 (被编码过的字符串)
'----------------------------------------------------------------'
Function encodeHTML(ByVal str)
If IsNull(str) Then
encodeHTML = ""
Exit Function
End If
str = Replace(str, ">", ">")
str = Replace(str, "<", "<")
str = Replace(str, Chr(9), " ")
str = Replace(str, Chr(39), "'")
str = Replace(str, Chr(34), """)
str = Replace(str, Chr(13), "")
str = Replace(str, Chr(10), "<br/>")
encodeHTML = str
End Function
'----------------------------------------------------------------'
' decodeHTML
' HTML 解码,将编码过的字符串反向解码,恢复 HTML 代码
' 参数:
' str 需要被解码的字符串
' 返回值:字符串 (解码后的字符串)
'----------------------------------------------------------------'
Function decodeHTML(ByVal str)
If IsNull(str) Then
decodeHTML = ""
Exit Function
End If
Str = replace(Str, ">", ">")
Str = replace(Str, "<", "<")
Str = Replace(Str, "", CHR(13))
Str = Replace(Str, "</P><P>", CHR(10) & CHR(10))
Str = Replace(Str, "<BR>", CHR(10))
Str = Replace(Str, "<br/>", CHR(10))
Str = Replace(Str, " ", CHR(9))
Str = Replace(Str, "'", CHR(39))
Str = Replace(Str, """, CHR(34))
Str = Replace(Str, "e xec", "exec")
Str = Replace(Str, "c onfig", "config")
Str = Replace(Str, "e cho", "echo")
Str = Replace(Str, """", "'")
decodeHTML = str
End Function
'这两个函数也是一对逆向操作。很多人都问到自己提交的文章怎么没有换行了,上面的 encodeHTML 就能帮上忙。一般大家都写作 HTMLEncode,这里是为了统一命名(并且区别与 Server 方法),所以写作 encodeHTML。另外,有一个Server.HTMLEncode,功能相似,只是一般自己编写的函数更加灵活。
%>
-------------------------------------------------------------------------------
<%
'替换掉html标记,使其能在页面显示标记
function htmlencode2(str)
dim result
dim l
if isNULL(str) then
htmlencode2=""
exit function
end if
l=len(str)
result=""
dim i
for i = 1 to l
select case mid(str,i,1)
case "<"
result=result+"<"
case ">"
result=result+">"
case chr(13)
result=result+"<br>"
case chr(34)
result=result+"""
case "&"
result=result+"&"
case chr(32)
result=result+" "
if i+1<=l and i-1>0 then
if mid(str,i+1,1)=chr(32) or mid(str,i+1,1)=chr(9) or mid(str,i-1,1)=chr(32) or mid(str,i-1,1)=chr(9) then
result=result+" "
else
result=result+" "
end if
else
result=result+" "
end if
case chr(9)
result=result+" "
case else
result=result+mid(str,i,1)
end select
next
htmlencode2=result
end function
%>
分享到:
相关推荐
条码扫描枪的文本框数据接收,测试正常使用。
1、定义js原生的替换函数。js里没有replaceAll的函数,需要我们自定义 代码如下: String.prototype.replaceAll = function(s1,s2){ return this.replace(new RegExp(s1,”gm”),s2); } 2、使用js的replace进行处理 ...
编写文本替换函数 # 1.1打开目标文件夹,并寻找后缀为.txt的文件 # 1.2打开文件读取文件内容 # 1.3替换符合条件的字符串 # 2.新建界面函数 # 2.1创建标签和单行文本框,包含2个标签和2个单行文本框 # 2.2创建按钮和...
本文将介绍 Java 函数的常用方法,包括字符串操作、文本框和文本区、按钮、标签等。 字符串操作 在 Java 中,字符串是 String 类的实例对象,可以使用各种方法来操作字符串。常用的字符串操作方法包括: 1. 获取...
66.防止用户对文本框中输入文本:onfocus="this.blur()" 67.取出该元素在页面中出现的数量:document.all.tags("div(或其它HTML标记符)").length 68.JS中分为两种窗体输出:模态和非模态.window.showModaldialog(),...
InputBox 函数 在对话框中显示提示,等待用户输入文本或者单击按钮,并返回文本框的内容。 InStr 函数 返回一个字符串在另一个字符串中第一次出现的位置。 InStrRev 函数 返回一个字符串在另一个字符串中出现的...
InputBox 函数 在对话框中显示提示,等待用户输入文本或者单击按钮,并返回文本框的内容。 InStr 函数 返回一个字符串在另一个字符串中第一次出现的位置。 InStrRev 函数 返回一个字符串在另一个字符串中出现的...
InputBox 函数 在对话框中显示提示,等待用户输入文本或者单击按钮,并返回文本框的内容。 InStr 函数 返回一个字符串在另一个字符串中第一次出现的位置。 InStrRev 函数 返回一个字符串在另一个字符串中出现的...
InputBox 函数 在对话框中显示提示,等待用户输入文本或者单击按钮,并返回文本框的内容。 InStr 函数 返回一个字符串在另一个字符串中第一次出现的位置。 InStrRev 函数 返回一个字符串在另一个字符串中出现的...
InputBox 函数 在对话框中显示提示,等待用户输入文本或者单击按钮,并返回文本框的内容。 InStr 函数 返回一个字符串在另一个字符串中第一次出现的位置。 InStrRev 函数 返回一个字符串在另一个字符串中出现的...
主要介绍了PHP转换文本框内容为HTML格式的方法,通过自定义函数实现字符串转换为HTML格式的功能,涉及php针对HTML标签的替换技巧,需要的朋友可以参考下
一、验证类 1、数字验证内 1.1 整数 1.2 大于0的整数 (用于传来的ID的验证) 1.3 负整数的验证 ...4.4 字符串替换函数.Replace(); 5、浏览器类 5.1 判断浏览器的类型 5.2 判断ie的版本 5.3 判断客户端的分辨率
• INDEX函数和SUMIF函数特殊情况下的易失性 • Excel公式结果的检验和验证 • 创建Excel动态名称来实现采购数据的动态引用 • 成绩检索表-Excel名称代替引用 • Excel图表中使用名称 • 相对引用和混合引用定义...
aplly 按钮用您在文本框中输入的函数替换被调用的函数。 恢复按钮返回调用函数时的代码。 * 但是,如果更改一次后关闭sefcon(),将无法返回到之前的状态。 本程序对JS有以下依赖。 jQuery 用 当今领先的浏览器...
0181 替换指定的字符串 117 0182 在文本中删除指定的汉字或句子 118 0183 指定符号分割字符串 119 0184 如何使用随机密码和字符串 120 第6章 日期和时间 121 0185 获得系统当前时间 122 0186 获得系统...
0181 替换指定的字符串 117 0182 在文本中删除指定的汉字或句子 118 0183 指定符号分割字符串 119 0184 如何使用随机密码和字符串 120 第6章 日期和时间 121 0185 获得系统当前时间 122 0186 获得系统...
替换元素节点 包裹元素节点 遍历元素 删除元素 数据管理 第4章 事件中的冒泡现象 bind方法绑定事件 映射方式绑定不同的事件 切换事件hover 切换事件toggle 移除事件unbind 其他事件one 其他事件trigger ...
文本框显示在中间,返回值显示在ID为files的文本框里面,上传目录为默认值,最大允许上传999个,就是不限制了,没有定义回调函数; showUpload(this,'files','upfiles',2,function(obj){alert(obj.length);}); 把这句...
1、软件的每个地方(复选框、文本框、按钮)都有说明文字,鼠标放到上面就会显示相应提示。 2、软件的右上角有个帮助按钮(?形式),点击可以查看一些常见问题的解决办法。建议查看。 3、本软件的部分代码来源于...