<%
'*************************************************************************************
'函數名稱:filtrateHtml(str)
'作 者:Rock
'函數功能:去掉HTML標籤，去掉<>之間的內容
'函數參數:str爲要轉換的字符串,如:filtrateHtml("<html>aaaaaa</html>")將顯示aaaaaa
'*************************************************************************************
Function filtrateHtml(str)
For i = 1 To Len(str)
If Mid(str, i, 1) = "<" Then
For j = i To Len(str)
If Mid(str, j, 1) = ">" Then
i = j
Exit For
End If
Next
Else
filtrateHtml = filtrateHtml & Mid(str, i, 1)
End If
Next
End Function
%>
<%
'去除HTML標記
Function delHTML(s_string)
Dim re
Set re = New RegExp
re.Pattern = "<[^<>]*>"
re.Global = true
delHTML = re.Replace(s_string,"")
End Function
%>