A cópia do código é a seguinte:
'Título da informação do sujeito
'Nome da empresa da empresa
'Conteúdo do conteúdo de postar informações
Endereço do endereço da empresa
Perfil da empresa de infomação
'Observe instruções relacionadas
Todos os valores acima são enviados por formulário e, em seguida, os valores correspondentes são obtidos por: sujeito = TRIM (request.form ("sujeito") etc.
<%
'Esta função é muito crítica! --------------------------------------------------------------------------------------------------------------------------------------------------
Funções QL (A, B, SQLS)
IFB <> "" Então 'Se o cliente não enviar esse valor, a instrução SQL correspondente não será gerada.
sqls = sqls & "e" & a & "como '%" & b & "%'"
endif
SQL = SQLS
Função final
'-----------------------------------------------------------------------------------------------------------------------------------
SetCon_N = server.createObject ("adodb.connection")
Dbpath = server.mappath ("/database/mydb.mdb")
Conn.open "Driver = {Microsoft AccessDriver (*. MDB)}; pwd =; dbq =" & dbPath
Setrs = server.createObject ("adodb.recordset")
sqls = "Selecione*FromMyTablewhere1 = 1"
'A seguir, chama a função acima, e há muitas chamadas (teoricamente qualquer)
sqls = sql ("sujeito", sujeito, sqls)
SQLS = SQL ("Company", Company, SQLS)
SQLS = SQL ("Conteúdo", Conteúdo, SQLS)
sqls = sql ("endereço", endereço, sqls)
SQLS = SQL ("Infomação", Infomação, SQLS)
sqls = sql ("nota", nota, sqls)
SQLS = SQLS e "OrderByidDesc"
Rs.Opensqls, Conn, 3,2
%>
[Conclusão]
Se não houver funções de função -chave (a, b, sqls), podemos imaginar quantos julgamentos são necessários um após o outro!