关于数据的写入和输出的格式问题！ - 编程论坛

#2

tianyu1232008-05-12 15:21

写个函数即可

Function HTMLEncode(fString)'HTML加码函数
    If Not IsNull(fString) Then
        fString = Replace(fString, CHR(38), "&")
        fString = Replace(fString, ">", ">")
        fString = Replace(fString, "<", "<")
        fString = Replace(fString, CHR(39), "'")
        fString = Replace(fString, CHR(32), " ")
        fString = Replace(fString, CHR(34), """)
        fString = Replace(fString, CHR(13), "")
        fString = Replace(fString, CHR(10), "<br>")
        HTMLEncode = fString
    End If
End Function

输出内容时，调用即可
Response.Write HTMLEncode(内容)

#3

yjq1102008-05-13 14:30

好用，非常感谢~~~

#4

xll20082008-05-13 15:01

看不明白,我是新手,以后请多关照