Рекомендуется: используйте фильтр для достижения вторичного поиска информации Подумайте о вопросе: как добиться вторичного поиска на основе первого поиска? Обычно наш подход состоит в том, чтобы сохранить условия поиска во время первого поиска и объединить два условия поиска во время поиска второй строки, чтобы выполнить новый запрос в базе данных, например: первый поиск:
'-----------------------------------------------------------------------
'Функция функции: блокировать HTML -код
'Параметры: информация об вводе пользователя.
'-----------------------------------------------------------------------
Функция funinput (усилие)
Если нет isnull (str), то тогда
Strinput = reply (strput, <, <)
Strinput = заменить (Strinput,>,>)
STRINPUT = Заменить (Strinput, Chr (32),)
STRINPUT = Заменить (Strinput, Chr (34),)
Strinput = заменить (Strinput, chr (39), ')
Strinput = заменить (Strinput, chr (13),)
FUNINPUT = усилитель
конец, если
конечная функция
'-----------------------------------------------------------------------
Функция функции: предотвратить инъекцию SQL
'Параметры: данные STRVALUE, представленные пользователем
'Блотип тип данных
'Значение параметра: истинные численные данные
'Ложные данные символов
'-----------------------------------------------------------------------
Функция funsql (strvalue, blotype)
Если блотип, тогда
Если isnumeric (strvalue), то
Funsql = clng (strvalue)
еще
Strvalue = 0
конец, если
еще
Если нет isnull (strvalue), то тогда
Strvalue = lcase (strvalue)
Strvalue = replace (strvalue, ',' ')
Strvalue = reply (strvalue, select,)
Strvalue = reply (strvalue, update,)
Strvalue = reply (strvalue, вставка,)
Strvalue = reply (strvalue, delete,)
Strvalue = reply (strvalue ,;,)
Strvalue = reply (strvalue ,,)
Strvalue = reply (strvalue, chr (255),)
Strvalue = reply (strvalue,*,)
Strvalue = replace (strvalue,%,)
конец, если
конец, если
Funsql = strvalue
конечная функция
'---------------------------------------------------------------------------
'Функция функции: конверсия общего типа
'Параметры: тип данных _type
'_Value Данные
'Значение параметра: _type 1: преобразовать в числовые данные
'_Type 2: преобразовать в данные символов
'_Type 3: конвертировать в логические данные
'---------------------------------------------------------------------------
Функция FunSwitch (value_, type_)
при ошибке резюме следующим
Выберите Case Type_
Случай 1
Если isNumeric (значение_) тогда
Если нет isnull (value_), тогда
Funswitch = clng (value_)
еще
Funswitch = 0
конец, если
еще
Funswitch = 0
конец, если
Случай 2
Если нет isnull (value_), тогда
Funswitch = cstr (value_)
еще
Funswitch =
конец, если
Случай 3
Если нет isnull (value_) и isnumeric (value_), тогда
Funswitch = cbool (value_)
еще
Funswitch = false
конец, если
случай еще
response.redirect (error.asp? err = пожалуйста, укажите тип данных, который должен быть передан в Funswitch!)
конец выбора
Если err.number <> 0, тогда
response.redirect (error.asp? err = неизвестная ошибка произошла во время преобразования данных!)
err.clear
конец, если
конечная функция
'' -----------------------------------------------------------------------
'Функция функции: убедитесь, что данные поступают извне
'Параметры: нет
'-----------------------------------------------------------------------
Функция Checkphrom ()
server_v1 = cstr (request.servervariables (http_referer))
server_v2 = cstr (request.servervariables (server_name))
Если mid (server_v1,8, len (server_v2)) <> server_v2
Checkphrom = true
еще
Checkphrom = false
конец, если
конечная функция
'' -----------------------------------------------------------------------
'Функция функции: JS -Box
'Параметры: Strurl: адрес страницы возвращается после нажатия OK
'STRMSG: Информация о приглашении на диалог
'-----------------------------------------------------------------------
Функция Funmsg (Strurl, STRMSG)
Response.write <script language = 'javascript'> & _
Vbcrlf & alert (& strmsg &); & _
Vbcrlf & window.location = & strurl &; & _
VBCRLF & </script>
Конечная функция
'---------------------------------------------------------------------------
'Функция функции: общая подкупа
'Параметры: общее количество страниц IntPageCount
'Intmypage текущие страницы
'IntercordCount Total Records
'Intpagesize Количество записей, отображаемых на странице
'---------------------------------------------------------------------------
Функциональная Funpage (IntPageCount, IntmyPage, InterodCount, IntPagesize)
'При ошибке резюме следующим
Dim Intfor, intlist, intlist_b
Dim Query, A, X, Temp
action = http: // & request.servervariables (http_host) & request.servervariables (script_name)
Query = split (request.servervariables (Query_string) и)
Для каждого x в запросе
a = split (x, =)
Если strcomp (a (0), page, vbtextcompare) <> 0 тогда
temp = temp & a (0) & = & a (1) & &
Конец, если
Следующий
Если Intmypage> 1, то
Funpage = Funpage & <a href = '& action &? & temp & page = 1' title = 'class =' no '> <font face =' webdings '> 9 </font> </a>
funpage = funpage & <a href = '& action &? & temp & page = & intmypage-1 &' title = 'предыдущая страница' class = 'no'> <font face = 'webdings'> 7 </font> </a>
еще
Funpage = Funpage & <font face = 'webdings'> 9 </font>
Funpage = Funpage & <font face = 'webdings'> 7 </font>
конец, если
Если intlist <> 0, то
Если cintmypage = intlist, тогда
Intlist = intlist 5
конец, если
еще
Intlist = intmypage 5
конец, если
Если intlist-9 <1, тогда
intlist_b = 1
еще
intlist_b = intlist-9
конец, если
для intfor = intlist_b в intlist
Если intfor <= intpageCount, то
Если intfor = intmypage, то '---- Сделайте текст текущей страницы красным и не может быть нажат
Funpage = Funpage & Strmode & <font color = '#ff0000'> <b> & intfor & </b> </font>
еще
Funpage = Funpage & Strmode & <a href = '& action &? & temp & page = & intpor &' class = 'no'> & intfor & </a>
конец, если
конец, если
strmode = <font color = '#bbbbbb'> | </font>
следующий
Если intmypage <intpageCount, то
Funpage = Funpage & <a href = '& action &? & temp & page = & intmypage 1 &' title = 'last Page' class = 'no'> <font face = 'webdings'> 8 </font> </a>
funpage = funpage & <a href = '& action &? & temp & page = & intpageCount &' title = 'the Last Page' class = 'no'> <font face = 'webdings'>: </font> </a>
еще
Funpage = Funpage & <font face = 'webdings'> 8 </font>
Funpage = Funpage & <font face = 'webdings'>: </font> </a>
конец, если
Funpage = <table width = '100%' border = '0' cellpacing = '0' cellpadding = '0'> <tr> & _
vbcrlf & <td width = '40%'style = font: 14px> current & intmypage & page & intpagesize & list/page total & intpagecount & page/& intrecordCount & List Records </td> & _
vbcrlf & <td width = '60%'align =' right '> & _
vbcrlf & <table width = '360' border = '0' cellpacing = '0' cellpadding = '0' cellpadding = '0'> <tr> & _
vbcrlf & <td align = 'right' style = font: 14px> & funpage & </td> & _
vbcrlf & </tr> </table> </td> </tr> & _
VBCRLF & </table>
Если err.number <> 0, тогда
err.clear
response.redirect (error.asp? err = Функция странификации имеет ошибку, обратитесь к администратору! |)
конец, если
конечная функция
'*******************************************************
'Имя функции: выделение
Функция: ключевые слова поиска отображаются в выделенных цветах
'Параметр strtext - это строка или переменная, в которой подсвечена строка или переменная
'strfind - это строка или переменная, которая должна быть выделена,
'префикс HTML -кода - это как: <font color = red>
'Strafter выделен HTML -код суффикс: </font>
'************************************************************
Основное выделение функции (strtext, strfind, strbefore, strafter)
DIM NPOS
Dim nlen
Dim nlenall
nlen = len (strfind)
nlenall = nlen len (strbefore) len (Strafter) 1
Hight = strtext
Если nlen> 0 и len (выделение)> 0 тогда
npos = instr (1, выделение, strfind, 1)
Делать, пока NPO> 0
Hight hight = left (hight, npos - 1) и _
strbefore & mid (highting, npos, nlen) и strafter & _
Середина (выделение, NPOS NLEN)
npos = instr (npos nlenall, hight, strfind, 1)
Петля
Конец, если
Конечная функция
Поделиться: ASP 3.0 Advanced Programming (31) 7.1.2 Обнаружение и обработку семантических ошибок или во время выполнения раздражает, но вы столкнетесь с некоторыми действительно захватывающими другими типами ошибок в программировании - Семантическая ошибка (семантическая ошибка), или & ld