| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1452 人关注过本帖
标题:HTML格式过滤怎么做?
只看楼主 加入收藏
yfen258
Rank: 1
等 级:新手上路
帖 子:266
专家分:0
注 册:2006-3-31
收藏
 问题点数:0 回复次数:10 
HTML格式过滤怎么做?
我想把留言添加上HTML格式过滤这一功能,该怎么弄?

谢谢~~~
搜索更多相关主题的帖子: HTML格式 留言 
2006-06-14 11:16
hangxj
Rank: 6Rank: 6
等 级:贵宾
威 望:29
帖 子:2045
专家分:0
注 册:2006-4-10
收藏
得分:0 
[QUOTE]Function CheckStr(byVal ChkStr) '字符过滤
Dim Str:Str=ChkStr
Str=Trim(Str)
If IsNull(Str) Then
CheckStr = ""
Exit Function
End If
Dim re
Set re=new RegExp
re.IgnoreCase =True
re.Global=True
re.Pattern="(\r\n){3,}"
Str=re.Replace(Str,"$1$1$1")
Set re=Nothing
Str = Replace(Str,"'","''")
Str = Replace(Str, "select", "select")
Str = Replace(Str, "join", "join")
Str = Replace(Str, "union", "union")
Str = Replace(Str, "where", "where")
Str = Replace(Str, "insert", "insert")
Str = Replace(Str, "delete", "delete")
Str = Replace(Str, "update", "update")
Str = Replace(Str, "like", "like")
Str = Replace(Str, "drop", "drop")
Str = Replace(Str, "create", "create")
Str = Replace(Str, "modify", "modify")
Str = Replace(Str, "rename", "rename")
Str = Replace(Str, "alter", "alter")
Str = Replace(Str, "cast", "cast")
Str = Replace(Str, "script", "script")
Str = Replace(Str, "src", "src")
Str = Replace(Str, ">", ">")
Str = Replace(Str, "<", "<")
CheckStr=Str
End Function[/QUOTE]

调用方法:
CheckStr(Str)
如:
Content=CheckStr(Request.Form("content"))

http://www./
2006-06-14 11:30
yfen258
Rank: 1
等 级:新手上路
帖 子:266
专家分:0
注 册:2006-3-31
收藏
得分:0 
这个函数该放什么位置?<head></head>之间吗?

还有这"Content=CheckStr(Request.Form("content")) "怎么理解?


2006-06-14 11:49
hangxj
Rank: 6Rank: 6
等 级:贵宾
威 望:29
帖 子:2045
专家分:0
注 册:2006-4-10
收藏
得分:0 

你可以专门做一个页面(function.asp)
然后在要过滤字符的页面包含进来
<!--#include file="function.asp" -->

function.asp 页面代码如下(eg):

[QUOTE]<%

Function CheckStr(byVal ChkStr) '字符过滤
Dim Str:Str=ChkStr
Str=Trim(Str)
If IsNull(Str) Then
CheckStr = ""
Exit Function
End If
Dim re
Set re=new RegExp
re.IgnoreCase =True
re.Global=True
re.Pattern="(\r\n){3,}"
Str=re.Replace(Str,"$1$1$1")
Set re=Nothing
Str = Replace(Str,"'","''")
Str = Replace(Str, "select", "sel&#101;ct")
Str = Replace(Str, "join", "jo&#105;n")
Str = Replace(Str, "union", "un&#105;on")
Str = Replace(Str, "where", "wh&#101;re")
Str = Replace(Str, "insert", "ins&#101;rt")
Str = Replace(Str, "delete", "del&#101;te")
Str = Replace(Str, "update", "up&#100;ate")
Str = Replace(Str, "like", "lik&#101;")
Str = Replace(Str, "drop", "dro&#112;")
Str = Replace(Str, "create", "cr&#101;ate")
Str = Replace(Str, "modify", "mod&#105;fy")
Str = Replace(Str, "rename", "ren&#097;me")
Str = Replace(Str, "alter", "alt&#101;r")
Str = Replace(Str, "cast", "ca&#115;t")
Str = Replace(Str, "script", "script")
Str = Replace(Str, "src", "src")
Str = Replace(Str, ">", ">")
Str = Replace(Str, "<", "<")
CheckStr=Str
End Function
%>[/QUOTE]

Content=CheckStr(Request.Form("content")) 是指把提交表单中的content经过字符过滤后给Content

http://www./
2006-06-14 12:30
yfen258
Rank: 1
等 级:新手上路
帖 子:266
专家分:0
注 册:2006-3-31
收藏
得分:0 
加入这函数后这样写行吗
if ly="" then

Response.write("请输入留言内容!")
Response.end
else
ly=CheckStr(Request.Form("ly"))
end if


2006-06-14 13:01
hangxj
Rank: 6Rank: 6
等 级:贵宾
威 望:29
帖 子:2045
专家分:0
注 册:2006-4-10
收藏
得分:0 

不过第一行
if ly="" then '应该改为 if request("ly")="" then

Response.write("请输入留言内容!")
Response.end
else
ly=CheckStr(Request.Form("ly"))
end if

http://www./
2006-06-14 13:43
yfen258
Rank: 1
等 级:新手上路
帖 子:266
专家分:0
注 册:2006-3-31
收藏
得分:0 

我前面有定义
dim ly
ly=trim(request("ly"))


可以实现了 ,我得改些过滤的字符


2006-06-14 13:57
yfen258
Rank: 1
等 级:新手上路
帖 子:266
专家分:0
注 册:2006-3-31
收藏
得分:0 
谢谢拉

你帮我解决不少问题

2006-06-14 13:57
yfen258
Rank: 1
等 级:新手上路
帖 子:266
专家分:0
注 册:2006-3-31
收藏
得分:0 
函数的这个定义"Dim Str:Str=ChkStr"怎么理解的?

2006-06-14 14:10
yfen258
Rank: 1
等 级:新手上路
帖 子:266
专家分:0
注 册:2006-3-31
收藏
得分:0 
第一个 str是字符数据类型
第二个 str是变量名

应该是这样的

2006-06-14 14:12
快速回复:HTML格式过滤怎么做?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.060027 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved