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

Source: Internet
Author: User
<% @ 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 -----/
Related Article

E-Commerce Solutions

Leverage the same tools powering the Alibaba Ecosystem

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

Contact Us

The content source of this page is from Internet, which doesn't represent Alibaba Cloud's opinion; products and services mentioned on that page don't have any relationship with Alibaba Cloud. If the content of the page makes you feel confusing, please write us an email, we will handle the problem within 5 days after receiving your email.

If you find any instances of plagiarism from the community, please send an email to: info-contact@alibabacloud.com and provide relevant evidence. A staff member will contact you within 5 working days.