asp文本框输出将数据库里的一段
在输入rst("a_content")的时候要对里面的字符进行转换一下。因为里面可能有"<>"类似的符号。。
'------------------------------------------------------------------
'函数:空格、回车等字符替换
'参数说明
' fString : 需要替换的字符串
'返回值 : 替换后的字符串
'------------------------------------------------------------------
function HTMLEncode(fString...全部
在输入rst("a_content")的时候要对里面的字符进行转换一下。因为里面可能有"<>"类似的符号。。
'------------------------------------------------------------------
'函数:空格、回车等字符替换
'参数说明
' fString : 需要替换的字符串
'返回值 : 替换后的字符串
'------------------------------------------------------------------
function HTMLEncode(fString)
fString = replace(fString, ">", ">")
fString = replace(fString, "&#")
'fString = Replace(fString, CHR(32), " ")
fString = Replace(fString, CHR(9), " ")
fString = Replace(fString, CHR(34), """)
fString = Replace(fString, CHR(39), "'")
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), " ")
fString = Replace(fString, CHR(10), " ")
HTMLEncode = fString
end function
function Dis_HTMLEncode(fString)
fString = replace(fString, ">", ">")
fString = replace(fString, "<", "&#", "&#")
'fString = Replace(fString, " ",CHR(32) )
fString = Replace(fString, " ",CHR(9))
fString = Replace(fString, """,CHR(34))
fString = Replace(fString, "'",CHR(39))
fString = Replace(fString, "",CHR(13))
fString = Replace(fString, " ", CHR(10) & CHR(10))
fString = Replace(fString, " ", CHR(10))
Dis_HTMLEncode = fString
end Function
在入库之前用
rs("a_content")=htmlencode(request("a_content"))
在编辑的时候这样
进行过滤html字符,呵呵。
祝好运。收起
