La copia del código es la siguiente:
'Título de la información del tema
'Nombre de la compañía de la compañía
'Contenido del contenido de publicar información
'Dirección de la empresa
'Perfil de la compañía de infominación
'Nota Instrucciones relacionadas con
Todos los valores anteriores se envían mediante la forma, y luego los valores correspondientes se obtienen mediante: SUTM = TRIM (request.form ("sujeto")) etc.
<%
'¡Esta función es muy crítica! ----------------------------------------------------------------------------------------------------------------------------
Functionsql (A, B, SQLS)
ifb <> "" entonces 'Si el cliente no envía este valor, no se generará la instrucción SQL correspondiente.
sqls = sqls & "y" & a & "me gusta '%" & b & "%'"
endif
sql = sqls
Función final
'-------------------------------------------------------------------------------------------------------------------------
Setcon_n = server.createObject ("ADODB.Connection")
Dbpath = server.mappath ("/base de datos/mydb.mdb")
Conn.open "controlador = {Microsoft AccessDriver (*. Mdb)}; pwd =; dbq =" & dbpath
Setrs = server.createObject ("ADODB.Recordset")
sqls = "select*fromMytableWhere1 = 1"
'Lo siguiente llama la función anterior, y hay muchas llamadas (en teoría cualquiera)
sqls = sql ("sujeto", sujeto, sqls)
SQLS = SQL ("Compañía", Compañía, SQLS)
sqls = sql ("contenido", contenido, sqls)
sqls = sql ("dirección", dirección, sqls)
SQLS = SQL ("Infomación", Infomation, SQLS)
sqls = sql ("nota", nota, sqls)
SQLS = SQLS y "OrderByIdDesc"
Rs.Opensqls, Conn, 3,2
%>
[Conclusión]
Si no hay funciones de función claveqL (A, B, SQLS), ¡podemos imaginar cuántos juicios se necesitan uno tras otro!