博文

文件区域html格式(2006-04-13 09:28:00)

摘要:这个网页的名字叫:text.asp
<% 
' 内容提交前用这个函数
Function HTMLEncode(fString)'HTML加码函数
    If Not IsNull(fString) Then
        fString = Replace(fString, CHR(38), "&#38;")
        fString = Replace(fString, ">", "&gt;")
        fString = Replace(fString, "<", "&lt;")
        fString = Replace(fString, CHR(39), "&#39;")
        fString = Replace(fString, CHR(32), "&nbsp;")
        fString = Replace(fString, CHR(34), "&quot;")
        fString = Replace(fString, CHR(13), "")

阅读全文(4514) | 评论:0 | 复制链接