发布网友 发布时间:2024-12-18 08:19
共3个回答
热心网友 时间:2024-12-31 09:20
下面这个就足够了:
插入前或插入后均可,但只需候调用一次就行了
Function HTMLDecode(s)
If Trim(s)<>"" Then
s = Replace(s, CHR(13),"<p> </p>") '#####3我晕!!!!你把这个换成回车符不就行了。这里面你换成什么就是什么,,,可以自定义啊,你写函数是为了什么???不是为了处理一些你想要的东西???
s = Replace(s, CHR(10),"<br />") '换行符
s = Replace(s, CHR(32)," ") '空格
s = Replace(s, CHR(9)," ") 'TAB键的空格
End If
HTMLDecode = s
End Function
楼上的 xsh_xgc 抄袭的可真够狠的啊!!!无语
热心网友 时间:2024-12-31 09:20
调用:
<%
=UHTMLEncode(rs("你要显示的字段名"))
%>
'楼上的写法,若调用的话,与你的一样.
热心网友 时间:2024-12-31 09:23
Function HTMLDecode(s)
If Trim(s)<>"" Then
s = Replace(s, CHR(13),"<br />") '回车符
s = Replace(s, CHR(10),"<br />") '换行符
s = Replace(s, CHR(32)," ") '空格
s = Replace(s, CHR(9)," ") 'TAB键的空格
End If
HTMLDecode = s
End Function