如何检查一段字符串里含有html代码?

Question

try
-----------------------------------
<script language="javascript">
var reg = /<[^>]*>/gi;
if(reg.test("<a>dasdf</a>"))
alert("有HTML");
</script>

Answer 1

function CheckHtml(strTemp)
dim reg
reg = "/<[^>]*>/gi"
if reg.test(strTemp) then
return true
else
return false
end if
End function有错误啊

Answer 2

帮帮忙,第一次处理asp的一些事情,谢谢

Answer 3

Function CheckHtml(strTemp)
  Dim regEx, retVal            ' 建立变量。
  Set regEx = New RegExp         ' 建立正则表达式。
  regEx.Pattern = "/<[^>]*>/gi"         ' 设置模式。
  regEx.IgnoreCase = False         ' 设置是否区分大小写。
  retVal = regEx.Test(strTemp) ' 执行搜索测试。
  If retVal Then
    RegExpTest="含有html" 
  Else
RegExpTest="不含有html"
  End If
End Function检测的结果不对啊

Answer 4

function CheckHtml(strTemp)
dim reg
Set reg = new RegExp reg.IgnoreCase = true
reg.Global = true
reg.Pattern = "<[^>]*>"
if reg.test(strTemp) then
CheckHtml = true
else
CheckHtml = false
end if
End function

Answer 5

try
---------------------------------------------------------
<script language="vbscript">
Function CheckHtml(strTemp)
  Dim regEx, retVal            ' 建立变量。
  Set regEx = New RegExp         ' 建立正则表达式。
  regEx.Pattern = "<[^>]*>"         ' 设置模式。
  regEx.IgnoreCase = true         ' 设置是否区分大小写。
  regEx.Global = true
  if regEx.Test(strTemp) then CheckHtml="含有html" else CheckHtml="不含有HTML"
End Functionmsgbox CheckHtml("<a>asfasd</a>")
</script>