正文

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

【评论】 【打印】 【字体: 】 本文链接:http://blog.pfan.cn/wangsdong/12340.html

分享到:

这个网页的名字叫: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), "")
        fString = Replace(fString, CHR(10), "<br>")
        HTMLEncode = fString
    End If
End Function 
  dim aaa
  aaa =htmlencode(request("text1"))
   %>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>

<body>
<div align="center">
  <form name="form1" method="post" action="text.asp">
    <p> 
      <textarea name="text1" cols="50" rows="10" id="text1"></textarea>
    </p>
    <p>&nbsp;</p>
    <p>
      <input type="submit" name="Submit" value="提交">
    </p>
    <p> <%=aaa%> </p>
    <p>
      <textarea name="textarea" cols="50" rows="10"><%=aaa%></textarea>
    </p>
    <p>&nbsp;</p>
    <p>&nbsp;</p>
  </form>
</div>
</body>
</html

 

修改时:

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), "")
        fString = Replace(fString, CHR(10), "<br>")
        HTMLEncode = fString
    End If
End Function
显示的时候再把内容转换过来就可以了
Function HTMLChange(fString)'HTML加码函数
    If Not IsNull(fString) Then
        fString = Replace(fString, &#38;, "CHR(38)")
        fString = Replace(fString, "&gt;", ">")
        fString = Replace(fString, "&lt;", "<")
                  ......
        HTMLEncode = fString
    End If
End Function

阅读(5041) | 评论(0)


版权声明:编程爱好者网站为此博客服务提供商,如本文牵涉到版权问题,编程爱好者网站不承担相关责任,如有版权问题请直接与本文作者联系解决。谢谢!

评论

暂无评论
您需要登录后才能评论,请 登录 或者 注册