Recomendado: FileSystemObject Código de amostra No código de amostra descrito nesta seção, os exemplos da vida real são fornecidos para ilustrar muitos dos recursos disponíveis no padrão de objeto FileSystemObject. Este código mostra todos os recursos de como usar padrões de objeto juntos e como usá -los efetivamente em seu próprio código
Primeiro, crie um banco de dados de acesso. Há uma tabela de urlindex na biblioteca, onde os campos de URL e palavras -chave são indexadas, respectivamente, como segue:
| A seguir, o conteúdo citado: Texto da URL (índice: com (sem duplicação)) Texto do título Descrição Texto Texto de resumo Palavras -chave Texto (índice: com (sem duplicação)) |
Arquivo de programa DoQuery.asp, código:
| A seguir, o conteúdo citado: <html> <head> <title> mecanismo de pesquisa simples </title> </ad Head> <Corpo bgcolor =#ffffff marginwidth = 0 marginHeight = 0 LeftMargin = 0 topMargin = 0> <Método form = pós -ação = doquery.asp? Act = Search> Consulta: <Tipo de entrada = Nome do texto = Querystring> <br> <Tipo de entrada = Submite Value = Enviar> </morm> </Central> <% ACT DUM ato = solicitação (ato) if (Act = pesquisa) então Querystring = request.form (querystring) Querywords = Split (Querystring) STRINDENT = 'Se a pesquisa estiver vazia, retorne Se querystring = então Response.Redirect (padrão.asp) Final se Session.timeout = 2 Se Isobject (sessão (sitesearch_conn)) então Definir Conn = Session (sitesearch_conn) Outro Definir Conn = Server.CreateObject (Adodb.Connection) Conn.open driver = {Microsoft Access Driver (*.mdb)}; dbq = & server.mappath (Database/sitesearch.mdb) ,,, Defina sessão (sitesearch_conn) = Conn Final se 'Declaração de consulta sql = selecione * de [urlindex] onde 'Campo de descrição da pesquisa SQL = SQL & ([Descrição] como ' % & Querywords (0) & %' 'Primeiro Para i = lbound (Querywords) 1 para ubound (Querywords) Se querywords (i) <> e ucase (querywords (i)) <> ou e ucase (querywords (i)) <> e então Se ucase (querywords (i-1)) = ou então SQL = SQL & ou [Descrição] como ' % & Querywords (i) & %' Outro SQL = SQL & e [Descrição] como ' % & Querywords (i) & %' Final se Final se Próximo 'Pesquise o campo de palavras -chave sql = sql &) ou ([palavras -chave] como ' % & Querywords (0) & %' Para i = lbound (Querywords) 1 para ubound (Querywords) Se querywords (i) <> e ucase (querywords (i)) <> ou e ucase (querywords (i)) <> e então Se ucase (querywords (i-1)) = ou então sql = sql & ou [palavras -chave] como ' % & Querywords (i) & %' Outro sql = sql & e [palavras -chave] como ' % & Querywords (i) & %' Final se Final se Próximo 'Pesquise por campos de título sql = sql &) ou ([título] como ' % & Querywords (0) & %' Para i = lbound (Querywords) 1 para ubound (Querywords) Se querywords (i) <> e ucase (querywords (i)) <> ou e ucase (querywords (i)) <> e então Se ucase (querywords (i-1)) = ou então sql = sql & ou [título] como ' % & Querywords (i) & %' Outro sql = sql & e [título] como ' % & Querywords (i) & %' Final se Final se Próximo 'Pesquise por campos de resumo sql = sql &) ou ([resumo] como ' % & Querywords (0) & %' Para i = lbound (Querywords) 1 para ubound (Querywords) Se querywords (i) <> e ucase (querywords (i)) <> ou e ucase (querywords (i)) <> e então Se ucase (querywords (i-1)) = ou então sql = sql & ou [resumo] como ' % & Querywords (i) & %' Outro sql = sql & e [resumo] como ' % & Querywords (i) & %' Final se Final se Próximo sql = sql &) ' Set rs = server.createObject (adodb.recordset) Rs.Open SQL, Conn, 3, 3 Response.write <br> <b> Você está procurando: </b> & Querystring Response.write <br> <b> Pesquise palavras -chave: </b> Para i = lbound (Querywords) para ubound (querywords) Response.write <br> & strindent & i &: & Querywords (i) Próximo 'Imprima a string sql Response.write <br> <b> SQL Declaração: </b> & sql 'Imprima os resultados Response.write <br> <b> Resultado: </b> <ul> Em erro de erro em seguida rs.movefirst Faça enquanto não é Rs.eof Response.write <br> & <a href = 'OpenPage.asp? Response.Write Rs.Fields (Descrição) & <br> Response.write <font size = 2> url: & rs.fields (url) & </font> Response.write <size de hr = 1 largura = 200 alinhamento = esquerda> rs.movenext Laço Response.Write </ul> final se %> </Body> </html> |
Compartilhar: Como criar uma página de verificação de login Script de verificação de login do usuário, chkpwd.asp a seguir é o conteúdo referenciado: % '========== Script de verificação de login do usuário ======' se o objeto passado ainda não estiver definido, ele é definido como falso, indicando que não houver não