Function EnumerateTags(ThisTags)
Dim tags
Dim i
Dim buf
Dim CleanTags
CleanTags = Trim(ThisTags & "")
If Right(CleanTags,1) = "," Then
CleanTags = Left(CleanTags, Len(CleanTags)-1)
End If
If Len(CleanTags) = 0 Then
EnumerateTags = ""
Exit Function
End If
tags = Split(CleanTags, ",")
buf = ""
For i = 0 To UBound(tags)
If Len(Trim(tags(i))) > 0 Then
buf = buf & _
"" & _
Server.HTMLEncode(Trim(tags(i))) & _
""
End If
Next
buf = buf & ""
EnumerateTags = buf
End Function
function AttackCheck(sText)
dim sDeccoded
dim oRegExpr
dim oMatchCollection
dim oMatch
sDecoded = sText
Set oRegExpr = Server.CreateObject("VBScript.RegExp")
oRegExpr.Pattern = "%[0-9,A-F]{2}"
oRegExpr.Global = True
Set oMatchCollection = oRegExpr.Execute(sText)
For Each oMatch In oMatchCollection
sDecoded = Replace(sDecoded,oMatch.value,Chr(CInt("&H" & Right(oMatch.Value,2))))
Next
if Instr(sDecoded," 0 or Instr(sDecoded,"SELECT ") > 0 or len(sDecoded) >100 Then AttackCheck = False
AttackCheck = true
End function
%>
Explore Kamat's Potpourri: Tag - battlefield
