Recomendado: Código do modelo ASP Modelo de classe Private m_filename, m_root, m_unknowns, m_lasterror, m_haltonerr privado m_valuelist, m_blocklist privado m_regexp private subs class_initialize m_valuelist = createObject (scripting.dictionary) set m_blocklist = script (script (script.dictionary) set m_blocklist = script (script (script.dictionary) set m_blocklist = script (script (scripts) set m_blocklist =
Ao escrever um programa de banco de dados ASP, geralmente usamos as instruções SQL e, ao adicionar e atualizar dados, geralmente usamos o seguinte método: Insira na mensagem (INCECT, remetente, título, conteúdo, envio, sinalizador, sinalize) valores ('e INCEPT (i) e' 0,1) e mais soldados, quando há mais, quando há mais, quando há mais, quando há mais, quando, mais, quando, mais, quando, mais, quando, mais, o que é mais importante, o que é mais importante, o que é mais importante. Para modificar e encontrar erros. Depois de usar esta classe SQL, ela pode ser simplificada e é mais fácil verificar erros. Adicionar nomes de campo e valores de campo através da função AddField da classe pode inserir facilmente nomes de campo e valores de campo nas instruções SQL e retornar a instrução SQL.
Vamos dar uma olhada no código desta classe:
＜%
Classe sqlString
'***************************************
'Definição variável
'***************************************
'Nome do stablename --- Tabela
'ISQLTYPE --- Tipo de instrução SQL: 0-ADD, 1-UPDATE, 2-DELETE, 3 QUEM
'Swhere --- Condições
'Sorter --- classificar por
'SSQL ---- Valor
Private StableName, ISQLType, Swhere, Sorder, SSQL
'***************************************
'Inicialização da classe/final
'***************************************
Sub -classe privado_initialize ()
stableName =
isqltype = 0
swhere =
Sorer =
ssql =
Final sub
Sub -classe particular ()
Final sub
'***************************************
'propriedade
'***************************************
'Defina as propriedades do nome da tabela
Propriedade pública Let tableName (valor)
stableName = value
Propriedade final
'Defina as condições
Propriedade pública Let Where (valor)
swhere = valor
Propriedade final
'Defina o método de classificação
Propriedade pública Let Order (valor)
Sorder = Valor
Propriedade final
'Defina o tipo de declaração de consulta
Propriedade pública Let SQLTYPE (Valor)
isqltype = valor
Selecione o caso ISQLTYPE
Caso 0
ssql = inserir nos valores#0 (#1) (#2)
Caso 1
SSQL = Atualização #0 Conjunto #1 = #2
Caso 2
SSQL = Exclua do #0
Caso 3
ssql = selecione #1 de #0
final Selecione
Propriedade final
'***************************************
'função
'***************************************
'Adicionar campo (nome do campo, valor de campo)
Public Sub Addfield (SfieldName, Svalue)
Selecione o caso ISQLTYPE
Caso 0
SSQL = Substitua (SSQL,#1, SfieldName &,#1)
ssql = substituir (ssql,#2, '& sfieldName &',#2)
Caso 1
SSQL = Substitua (SSQL,#1, SfieldName)
ssql = substituir (ssql,#2, '& sfieldName &',#1 =#2)
Caso 3
SSQL = Substitua (SSQL,#1, SfieldName &,#1)
Final Selecione
Final sub
'Retornar a instrução SQL
Função pública ReturnSql ()
SSQL = Substitua (SSQL,#0, STABLENAME)
Selecione o caso ISQLTYPE
Caso 0
ssql = substituir (ssql ,,#1,)
SSQL = Substitua (SSQL ,,#2,)
Caso 1
ssql = substituir (ssql ,,#1 =#2,)
Caso 3
ssql = substituir (ssql ,,#1,)
final Selecione
Se for swhere ＜＞ então
ssql = ssql e onde e swhere
final se
Se Sorder ＜＞ então
SSQL = SSQL & Order By & Sorder
final se
ReturnSQL = SSQL
Função final
'Declaração clara
Public Sub Clear ()
stableName =
isqltype = 0
swhere =
Sorer =
ssql =
Final sub
Classe final
%＞
Como usar:
Exemplo: Insira na mensagem (INCECT, remetente, título, conteúdo, sendtime, sinalizador, sissend) valores ('& INCECT (i) &', '& membroName &', '& Title &', '& Message &', agora (), 0,1)
Definir a = novo objeto de classe SQLSTRING '
A.TableName = Mensagem 'Defina o nome da tabela como mensagem
a.sqltype = 0 'Defina o tipo de consulta para adicionar registro
A.Addfield Incept, Incept (i)
A.Addfield remetente, membro do membro
A.Addfield Title, MemberName
A.Addfield remetente, título
A. Conteúdo do campo, mensagem
A.Addfield SendTime, SendTime ()
A.Addfield Flag, 0
A.Addfield emitir, 1
Response.Write A.ReturnSql
Definir a = nada
Compartilhar: Programa de Calendário produzido pela ASP Um programa de calendário puro-criado a ASP pode embelezar por si só, e apenas o estilo CSS mais simples está disponível aqui. . . corpo de estilo {font-size: 12px; margem: 20px 0 0 20px; preenchimento: 0} tr, td {text-align: Center;} /estilo % '==================================================================================== ===================================================================================== Descrição: Calendário Arquivo '========================================================== ===============================================================