Lo encontré buscando información en Internet, pero encontré algunos problemas durante la depuración. Después de algunas modificaciones, todavía hay algunos problemas, pero se puede usar para uso general. No se consideró el problema del tipo de datos y la diferencia entre SQL Server y el acceso. Lo mejoraré cuando tenga tiempo en el futuro. No sé qué tan eficiente será. Si alguien lo mejora por favor envíeme una copia.
Copie el código de código de la siguiente manera:
<%
claseSQLString
'************************************
'Definición variable
'************************************
'sTableName ---- nombre de la tabla
'iSQLType ----tipo de declaración SQL: 0-agregar, 1-actualizar, 2-eliminar, 3-consultar
'sWhere ---- condición
'sOrder ---- método de clasificación
'sSQL ---- valor
Nombre de tabla privada, tipo de iSQL, sdónde, sorden, sSQL
'************************************
'Inicialización/fin de clase
'************************************
Subclase privada_Initialize()
sTableName=""
tipoiSQL=0
sDonde=""
sOrden=""
sSQL=""
Subtítulo final
Subclase privada_Terminar()
Subtítulo final
'************************************
'propiedad
'************************************
'Establece las propiedades del nombre de la tabla
Propiedad pública Let TableName (valor)
sTableName=valor
Propiedad final
'Establecer condiciones
Propiedad pública alquilada donde (valor)
sDonde=valor
Propiedad final
'Establecer método de clasificación
Orden de alquiler de propiedad pública (valor)
sOrden=valor
Propiedad final
'Establece el tipo de declaración de consulta
Propiedad pública Let SQLType(valor)
iSQLType=valor
seleccione caso iSQLType
caso 0
sSQL="insertar en {&*#}0 ({&*#}1) valores ({&*#}2)"
caso 1
sSQL="actualizar {&*#}0 establecer {&*#}1={&*#}2"
caso 2
sSQL="eliminar de {&*#}0 "
caso 3
sSQL="seleccione {&*#}1 de {&*#}0 "
finalizar seleccionar
Propiedad final
'************************************
'función
'************************************
'Agregar campo (nombre del campo, valor del campo)
Subcampo público (sFieldName,sValue)
seleccione caso iSQLType
caso 0
sSQL=reemplazar(sSQL,"{&*#}1",sFieldName & ",{&*#}1")
sSQL=reemplazar(sSQL,"{&*#}2","" & sValue & ",{&*#}2")
caso 1
sSQL=reemplazar(sSQL,"{&*#}1",sNombreCampo)
sSQL=reemplazar(sSQL,"{&*#}2","" & sValue & ",{&*#}1={&*#}2")
caso 3
sSQL=reemplazar(sSQL,"{&*#}1",sFieldName & ",{&*#}1")
Seleccionar fin
Subtítulo final
'Función modificada que devuelve un valor de cadena
'Devuelve declaración SQL
Función pública ReturnSQL()
sSQL=reemplazar(sSQL,"{&*#}0",sTableName)
seleccione caso iSQLType
caso 0
sSQL=reemplazar(sSQL,",{&*#}1","")
sSQL=reemplazar(sSQL,",{&*#}2","")
caso 1
sSQL=reemplazar(sSQL,",{&*#}1={&*#}2","")
caso 3
sSQL=reemplazar(sSQL,",{&*#}1","")
finalizar seleccionar
si sWhere<>"" y iSQLType<>0 entonces
sSQL=sSQL & "dónde" & sDónde
terminar si
si sOrder<>"" y iSQLType<>0 entonces
sSQL=sSQL & "ordenar por" & sOrdenar
terminar si
RetornoSQL=sSQL
Función final
'Devuelve declaración SQL
Función pública ReturnSQL1()
sSQL=reemplazar(sSQL,"{&*#}0",sTableName)
seleccione caso iSQLType
caso 0
sSQL=reemplazar(sSQL,",{&*#}1","")
sSQL=reemplazar(sSQL,",{&*#}2","")
caso 1
sSQL=reemplazar(sSQL,",{&*#}1={&*#}2","")
caso 3
sSQL=reemplazar(sSQL,",{&*#}1","")
finalizar seleccionar
si sWhere<>"" y iSQLType<>0 entonces
sSQL=sSQL & "dónde" & sDónde
terminar si
si sOrder<>"" y iSQLType<>0 entonces
sSQL=sSQL & "ordenar por" & sOrdenar
terminar si
RetornoSQL=sSQL
Función final
'Declaración clara
Subclaro público()
sTableName=""
tipoiSQL=0
sDonde=""
sOrden=""
sSQL=""
Subtítulo final
Fin de clase
%>
Ejemplo de llamada:
<%
establecer un =new SQLString 'Crear objeto de clase
a.TableName=" mensaje " 'Establece el nombre de la tabla en mensaje
'a.where="enviar =9"
'a.order="enviar desc"
a.SQLType=0 'Establece el tipo de consulta para agregar registros
a.AddField "incepto", "'2'"
a.AddField "remitente", "'%3%'"
a.AddField "título", "#"&ahora&"#"
a.AddField "remitente", "5"
a.AddField "contenido", "6"
a.AddField "hora de envío", "7"
a.AddField "bandera", 8
a.AddField "issend", 9
Respuesta.Escribir a.ReturnSQl
establecer a = nada
%>
<%
establecer un =new SQLString 'Crear objeto de clase
a.TableName=" mensaje " 'Establece el nombre de la tabla en mensaje
'a.where="enviar =9"
'a.order="enviar desc"
a.SQLType=0 'Establece el tipo de consulta para agregar registros
a.AddField "incepto", "'2'"
a.AddField "remitente", "'%3%'"
a.AddField "título", "#"&ahora&"#"
a.AddField "remitente", "5"
a.AddField "contenido", "6"
a.AddField "hora de envío", "7"
a.AddField "bandera", 8
a.AddField "issend", 9
Respuesta.Escribir a.ReturnSQl
establecer a = nada
%>
<%
establecer un =new SQLString 'Crear objeto de clase
a.TableName=" mensaje " 'Establece el nombre de la tabla en mensaje
'a.where="enviar =9"
'a.order="enviar desc"
a.SQLType=0 'Establece el tipo de consulta para agregar registros
a.AddField "incepto", "'2'"
a.AddField "remitente", "'%3%'"
a.AddField "título", "#"&ahora&"#"
a.AddField "remitente", "5"
a.AddField "contenido", "6"
a.AddField "hora de envío", "7"
a.AddField "bandera", 8
a.AddField "issend", 9
Respuesta.Escribir a.ReturnSQl
establecer a = nada
%>