asp插入数据库

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字符,呵呵。
   祝好运。收起