<%@Idioma = vbscript codePage = 936%>
< % Opção Explícita %>
< % Response.Buffer = True %>
<%
'/////////////////////////////////////////////////////////Ticol //////////////////// Gestingead ////////////////////////////////////tipos /////////////////////////////////////////////////////////Tipos ///// glesle ////////////////////////////////////////////// /////////////////////////////////////////////////////////Tipos /////////////////////////////////////////////////////////Tipos /////////////// ggig
'///
'/// Nome do arquivo: sqlbuilderforvbs
'/// Função: Crie algumas instruções SQL simples.
'/// Programaker: Zeng Siyuan
'/// Descrição: Classe simples de construção de frases SQL, versão VBS, desde que você mantenha esta seção de anotação, independentemente de envolver ou não negócios, você pode usá -lo arbitrariamente, reimpressão ou citação
'/// Data: 2005-1-8
'/// _________________________________________________________________________________________
'/////////////////////////////////////////////////////////Ticol //////////////////// Gestingead ////////////////////////////////////tipos /////////////////////////////////////////////////////////Tipos ///// glesle ////////////////////////////////////////////// /////////////////////////////////////////////////////////Tipos /////////////////////////////////////////////////////////Tipos /////////////// ggig
%>
<%
Em erro de erro em seguida
Classe QuestStringBuilder
Prive Objfields
Strtableename privado
Private strpkey
Strpkeysort privado
Strcondição privada
Private acate () ()
Stroperator privado
Strlogic particular
Blnstate privado
'/----- Inicialização ------/
Sub -classe privado_initialize ()
set objfields = server.createObject (script.dictionary)
strtableName = null
strpkey = nulo
strpkeysort = nulo
Strcondition = nulo
Redim Acontition (1)
Stroprator = =
strLogic = e
blnstate = false
final sub
Sub -classe particular ()
Defina Objfields = nada
strtableName = null
strpkey = nulo
strpkeysort = nulo
Strcondition = nulo
Apagar a acontição
Stroprator = nulo
strLogic = nulo
blnstate = false
final sub
' /---- Processamento de nome do campo ------ /
Função Privada Processfield (Byval SField)
Processfield = [& sfield &]
Função final
' /----- Processamento de valor de campo ------ /
Função Privada ProcessValue (Byval Svalue)
Dim Tmptype: tmptype = Vartype (Svalue)
Selecione o caso tmptype
Caso 2,3,4,5,11 'tipo digital, tipo booleano
ProcessValue = Svalue
Caso 8 'Tipo de personagem
ProcessValue = '& Safe (Svalue) &'
CASE SLESS OUTROS TIPOS
ProcessValue = '& Safe (Svalue) &'
final Selecione
Função final
' /----- Tratamento abrangente ------ /
Processo de função privada (Byref Obj, Byval Strtype)
Dim Keys: Keys = Obj.Keys
itens escuros: itens = obj.items
Dim IntCount: intcount = obj.count
Dim TMP ()
Redim TMP (1)
Se intcount> 0 então
dim tmparray (), eu
Redim Tmparay (IntCount-1)
para i = 0 para intcount -1
tmparray (i) = chaves (i) & = & itens (i)
próximo
Selecione Case UCase (Trim (Strtype))
Atualização do caso
Process = JONE (TMPARRAY ,,)
Caso Selecione
Process = JONE (chaves ,,)
Inserção de casos
Tmp (0) = junção (chaves ,,)
Tmp (1) = junção (itens ,,)
Processo = tmp
Apague o TMP
final Selecione
Apagar tmparray
outro
Selecione Case UCase (Trim (Strtype))
Atualização do caso
Processo = false
Caso Selecione
Processo = *
Inserção de casos
Processo = tmp
final Selecione
final se
Função final
' /----- pequeno tratamento de segurança ------ /
Economia de funções privadas (s)
seguro = substituir (s, ',' ')
Função final
' /----- Os parâmetros da última entrada da última vez foram limpos, mas retendo o nome da tabela ------ / /
public sub clear()
objfields.removeall
'strtablename = null
strpkey = null
strpkeysort = null
strcondition = null
erase acontition
stroperator = =
strlogic = and
blnstate = false
final sub
' /---- gerar declarações de consulta ---- /
Função pública getSelect ()
Dim strSQLTemplate: strSQLTemplate = Selecione {Fields} de {tabela} {condições} {orderby} {sort}
StrSQLTemplate = substituir (strSQLTemplate, {Fields}, Process (Objfields, select)))
Se Masspe (strtableNeame) = 1 então função de saída
StrSQLTemplate = substituir (strsqltemplate, {tabela}, strtableneame)
Se Masspe (strcondition) <> 1 e strcondition <> então
strSQLTemplate = Substituir (StrSQLTem