<%@Idioma = VBScript CodePage = 936%>
< % Opción explícita %>
< % Respuesta.Buffer = True %>
<%
'////////////////////////////////////////////// /////////////////// gestingead /////////////////////////// /////////////////////////////////////////////// ///// glesle ///////////////////////////////////////// /////////////////////////////////////////////// /////////////////////////////////////////////// ////////////// ggestle como /////////////////////////////// /////////////////// ggestlene as ///////////////////////// /////////////////// gons
'//
'/// Nombre del archivo: sqlBuilderforvbs
'/// Función: construya algunas declaraciones SQL simples.
'/// Programador: Zeng Siyuan
'/// Descripción: Construcción de oraciones SQL simple "clase", versión VBS, siempre que mantenga esta sección de anotación, ya sea que involucre o no negocios, puede usarla arbitrariamente, reimprimir o citar
'/// Fecha: 2005-1-8
'/// _____________________________________________________________________________________
'////////////////////////////////////////////// /////////////////// gestingead /////////////////////////// /////////////////////////////////////////////// ///// glesle ///////////////////////////////////////// /////////////////////////////////////////////// /////////////////////////////////////////////// ////////////// ggestle como /////////////////////////////// /////////////////// ggestlene as ///////////////////////// /////////////////// gons
%>
<%
En el currículum de error siguiente
Clase QuestStringBuilder
Prive objfields
Nombre de strtableenenga privado
Strpkey privado
Strpkeysort privado
Strcondición privada
ACATE PRIVADO () ()
Stroperator privado
Strlogic privado
Estado privado
'/----- Inicialización ------/
Sub class_initialize () privado ()
Establecer objfields = server.createObject (scripting.dictionary)
strtableName = nulo
strpkey = nulo
strpkeysort = nulo
Strcondition = nulo
Acontición redimentos (1)
Stroprator = =
strlogic = y
blnstate = falso
final
Sub class_terminate () privado ()
establecer objfields = nada
strtableName = nulo
strpkey = nulo
strpkeysort = nulo
Strcondition = nulo
Borrar la acontición
Stroprator = nulo
strlogic = nulo
blnstate = falso
final
' /---- Procesamiento de nombres de campo ------ /
Función privada Processfield (Byval Sfield)
ProcessField = [& sfield &]
función final
' /----- Procesamiento de valor de campo ------ /
Función privada ProcessValue (Byval Svalue)
Dim tmpType: tmpType = vartype (svalue)
Seleccionar Case TMPType
Caso 2,3,4,5,11 'Tipo digital, tipo booleano
ProcessValue = svalue
Tipo de carácter del caso 8 '
ProcessValue = '& Safe (Svalue) &'
Otros tipos del caso de lo contrario
ProcessValue = '& Safe (Svalue) &'
final seleccionar
función final
' /----- Tratamiento integral ------ /
Proceso de función privada (Byref OBJ, Byval Strtype)
Dim Keys: Keys = Obj.Keys
Dim elementos: elementos = obj.Items
dim intcount: intcount = obj.count
Dim tmp ()
Redim TMP (1)
Si intCount> 0 entonces
dim tmParray (), yo
Redim tmparay (intcount-1)
para i = 0 a intcount -1
tmparray (i) = teclas (i) & = & elementos (i)
próximo
Seleccione Case UCase (Trim (Strtype))
Actualización de casos
Proceso = unión (tmParray ,,)
Caso seleccionar
Proceso = unión (claves ,,)
inserción de la caja
Tmp (0) = unir (claves ,,)
Tmp (1) = unir (elementos ,,)
Proceso = tmp
Borrar TMP
final seleccionar
Borrar tmparray
demás
Seleccione Case UCase (Trim (Strtype))
Actualización de casos
Proceso = falso
Caso seleccionar
Proceso = *
inserción de la caja
Proceso = tmp
final seleccionar
final si
función final
' /----- Tratamiento de seguridad pequeño ------ /
Guardar (s) de funciones privadas
seguro = reemplazar (s, ',' ')
función final
' /----- Los parámetros de la entrada anterior, pero retención de TableEname ------ / /
Public Sub Clear ()
objfields.removeall
'Strtableneame = null
strpkey = nulo
strpkeysort = nulo
Strcondition = nulo
Borrar la acontición
Stroprator = =
strlogic = y
blnstate = falso
final
' /---- Genere declaraciones de consultas ---- /
Función pública getSelect ()
Dim strsqltemplate: strsqltemplate = select {Fields} de {table} {condiciones} {ordenby} {sort}
Strsqltemplate = reemplazar (strsqltemplate, {campos}, proceso (objfields, select)))
Si Masspe (strtableNeame) = 1 entonces salga de la función
Strsqltemplate = reemplazar (strsqltemplate, {table}, strtableNeame)
Si Masspe (strcondition) <> 1 y strcondition <> entonces
strsqltemplate = reemplazar (strsqltem