28,409
社区成员




Function YH(t_v)
If IsNull(t_v) Then t_v = ""
YH = Replace(Replace(t_v, """", """), "'", "'")
End Function
Function UN_YH(t_v)
If IsNull(t_v) Then t_v = ""
UN_YH = Replace(Replace(t_v, """, """"), "'", "'")
End Function
Function BUG(a, b)
'SQL BUG
Dim r
Set r = new RegExp
r.Global = True
Select Case b
Case 0 : BUG = YH(a)
Case 1 : r.Pattern = "(?:[^\d\.]|\.(?=[^\.]*\.))" : BUG = r.Replace(a, "")
Case 2
r.Pattern = "^\d+(?:\s*,\s*\d+)*$"
If r.Test(a) Then
BUG = a
Else
BUG = ""
End If
Case 3 : r.Pattern = "\D" : BUG = r.Replace(a, "")
End Select
Close r
End Function
Function RE(a, b, c)
Dim t_val
If b = 0 Then
t_val = Request.Form(a)
Else
t_val = Request.QueryString(a)
End If
RE = BUG(t_val, c)
End Function