Question

表单的文本区域里开放HTML标签功能，但要过滤危险的标签。用ASP代码怎么写？

页面里有个提交表单，文本域里可以使用通常的美化的HTML标签。
但为了安全，需要过滤掉危险的标签，
比如 script|iframe|frame|style|html|body|title|link|meta

这个功能的Asp代码怎么写呢？

如果知道的。加我下QQ.谢谢了。QQ:1011605

Answer 1

'**************************************************
'作用： 过滤非法HTML代码
'**************************************************
Function SafeHTML(strHTML)

Dim objRegExp, Match, Matches
Set objRegExp = New Regexp

objRegExp.IgnoreCase = True
objRegExp.Global = True

.................
加你QQ告诉你
.................
End Function

Answer 2

dim sql_injdata
SQL_injdata= "'|and|exec|insert|select|delete|update|count|%|chr|mid|master|truncate|char|declare|--"

SQL_inj = split(SQL_Injdata,"|")
If Request.QueryString <> "" Then
For Each SQL_Get In Request.QueryString
For SQL_Data=0 To Ubound(SQL_inj)
if instr(Request.QueryString(SQL_Get),Sql_Inj(Sql_DATA))>0 Then
Response.Write "<Script Language=javascript>alert('参数错误，请不要注入!');history.back(-1);</Script>"
Response.end
end if
next
Next
End If