A simple SQL statement of ASP (VBScript) to build a "class"

<% @ LANGUAGE = "VBSCRIPT" CODEPAGE = "936" %>
<% Option Explicit %>
<% Response. Buffer = True %>
<%
'/////////////////////////////////////// //////////////////////////////////////// //////////////////////////////////////// //////////////
'///
'// File name: SQLBuilderForVbs
'// Function: it is convenient to construct some simple SQL statements and use them when submitting forms.
'// Programmer: Zeng Siyuan
'// Description: a simple SQL statement is used to construct a "class" and VBS version. You can use, repost, or reference this comment segment, regardless of whether it is commercial or not.
'// Date: 2005-1-8
'///_________________________________________________________________________________________________
'/////////////////////////////////////// //////////////////////////////////////// //////////////////////////////////////// //////////////
%>
<%
On Error Resume Next
Class QuestStringBuilder
Private objFields
Private strTableName
Private strPKey
Private strPKeySort
Private strCondition
Private aContition ()
Private strOperator
Private strLogic
Private blnState
'/----- Initialization -----/
Private Sub Class_Initialize ()
Set objFields = Server. CreateObject ("Scripting. Dictionary ")
StrTableName = Null
StrPKey = Null
StrPKeySort = Null
StrCondition = Null
ReDim aContition (1)
StrOperator = "="
StrLogic = "AND"
BlnState = False
End Sub
Private Sub Class_Terminate ()
Set objFields = Nothing
StrTableName = Null
StrPKey = Null
StrPKeySort = Null
StrCondition = Null
Erase aContition
StrOperator = Null
StrLogic = Null
BlnState = False
End Sub
'/---- Field name processing ----/
Private Function ProcessField (ByVal sField)
ProcessField = "[" & sField & "]"
End Function
'/----- Field value processing -----/