Рекомендуется: пример примера файлов файлов. В примере кода, описанного в этом разделе, представлены реальные примеры, чтобы проиллюстрировать многие функции, доступные в шаблоне объекта файловой системы. Этот код показывает все функции того, как использовать шаблоны объектов вместе, и как эффективно использовать их в своем собственном коде.
Во -первых, создайте базу данных доступа. В библиотеке есть таблица Urlindex, где поля URL и ключевых слов индексируются соответственно, следующим образом:
| Ниже приведено цитируемое содержание: Текст URL (индекс: с (без дублирования)) Заголовок текст Описание текст Краткое текст Ключевые слова текст (индекс: с (без дублирования)) |
Файл программы doquery.asp, код:
| Ниже приведено цитируемое содержание: <html> <head> <title> Простая поисковая система </title> </head> <Body bgcolor =#ffffff marginwidth = 0 marginheight = 0 Leftmargin = 0 topmargin = 0> <Form method = post action = doquery.asp? Act = search> Запрос: <input type = text name = QueryString> <br> <Input type = отправить значение = отправить> </Form> </Center> <% Dim Act act = запрос (act) if (act = search) затем QueryString = request.form (QueryString) QueryWords = split (QueryString) Strindent = 'Если поиск пуст, вернитесь Если QueryString = Then Response.redirect (default.asp) Конец, если Session.Timeout = 2 Если isobject (session (sitesearch_conn)) тогда Установить conn = session (sitesearch_conn) Еще Установить conn = server.createObject (adodb.connection) conn.open Driver = {Microsoft Access Driver (*.mdb)}; dbq = & server.mappath (база данных/sitesearch.mdb) ,,, SET SESSION (siteSearch_conn) = conn Конец, если 'Запрос SQL = SELECT * из [urlindex] где 'Поиск описания поля sql = sql & ([description] like ' % & querywords (0) и %' 'First Для i = lbound (QueryWords) 1 к Ubound (QueryWords) Если QueryWords (i) <> и ucase (QueryWords (i)) <> или и Ucase (QueryWords (i)) <>, а затем Если ucase (Querywords (i-1)) = или тогда SQL = SQL & OR [DESTIC] LIKE ' % & QueryWords (i) и %' Еще SQL = SQL & и [Description] Like ' % & QueryWords (i) и %' Конец, если Конец, если Следующий 'Поиск поля ключевых слов sql = sql &) или ([ключевые слова] как ' % & QueryWords (0) и %' Для i = lbound (QueryWords) 1 к Ubound (QueryWords) Если QueryWords (i) <> и ucase (QueryWords (i)) <> или и Ucase (QueryWords (i)) <>, а затем Если ucase (Querywords (i-1)) = или тогда sql = sql & или [ключевые слова], как ' % & Querywords (i) и %' Еще sql = sql & and [ключевые слова] как ' % & QueryWords (i) и %' Конец, если Конец, если Следующий 'Поиск поля заголовка SQL = SQL &) или ([TIPLE] Like ' % & QueryWords (0) и %' Для i = lbound (QueryWords) 1 к Ubound (QueryWords) Если QueryWords (i) <> и ucase (QueryWords (i)) <> или и Ucase (QueryWords (i)) <>, а затем Если ucase (Querywords (i-1)) = или тогда SQL = SQL & или [TIPLE] Like ' % & QueryWords (i) и %' Еще SQL = SQL & и [TIPLE] Like ' % & QueryWords (i) и %' Конец, если Конец, если Следующий 'Поиск для резюме полей sql = sql &) или ([summary] like ' % & querywords (0) и %' Для i = lbound (QueryWords) 1 к Ubound (QueryWords) Если QueryWords (i) <> и ucase (QueryWords (i)) <> или и Ucase (QueryWords (i)) <>, а затем Если ucase (Querywords (i-1)) = или тогда SQL = SQL & OR [SURNARY] Like ' % & QueryWords (i) и %' Еще SQL = SQL & и [SURNARY] Like ' % & QueryWords (i) и %' Конец, если Конец, если Следующий SQL = SQL &) ' Установить rs = server.createObject (adodb.recordset) Rs.open SQL, Conn, 3, 3 Response.write <br> <b> Вы ищете: </b> & querystring Response.write <br> <b> Поиск ключевых слов: </b> Для i = lbound (QueryWords) до Ubound (QueryWords) Response.write <br> & strindent &: и QueryWords (i) Следующий 'Распечатайте строку SQL Response.write <br> <b> sql оператор: </b> & sql 'Печать результаты Response.write <br> <b> Результат: </b> <ul> При ошибке резюме следующим Rs.MoveFirst Делать, пока не rs.eof Response.write <br> & <a href = 'openpage.asp? Indexurl = & rs.fields (url) .value &'> & rs.fields (title) & </a> - Response.write Rs.fields (описание) и <br> Response.write <font size = 2> url: & rs.fields (url) и </font> Ответ. Rs.movenext Петля Response.write </ul> конец, если %> </Body> </Html> |
Поделиться: как создать страницу проверки входа в систему Скрипт проверки входа в систему пользователя, chkpwd.asp Ниже приведен ссылочный контент: % '======== Скрипт проверки входа в систему пользователя =====