ASP Обычно используется сбор функций

Автор：Eve Cole Время обновления：2025-03-01 01:16:01

Oledb способ открыть соединение данных SQL

Sub OpenSQLBYOLEDB

При ошибке резюме следующим

Установить conn = server.createObject (adodb.connection)

Conn.Open Provider = SQLOLEDB.1;

Если err.number <> 0, тогда

err.clear

Response.write (<div Align = 'Center'> База данных подключена к ошибке, пожалуйста, свяжитесь с администратором! </Div>)

Response.end ()

Конец, если

Конец суб

'Операция базы данных -Функции, связанные с

'********************************************* ********************************************* ********************************************* ********************************************* ********************************************* *************, *************

'[Sub] OpenReadrs RS, SQL, Opype

'Функция: откройте соответствующий тип набора данных и прочитайте только операцию

'параметр:

'RS Open RS Collection

Оператор SQL выполнена

Sub OpenReadRs (RS, SQL)

Если нет изобийт (rs), тогда

Установить rs = server.createObject (adodb.oldset)

Rs.oopen SQL, Conn, 1,1

Конец, если

Конец суб

'[Sub] OpenWriters RS, SQL

'Function: Откройте соответствующий тип набора данных, вы можете написать операцию

'параметр:

'RS Open RS Collection

Оператор SQL выполнена

Sub OpenWriters (RS, SQL)

Если нет изобийт (rs), тогда

Установить rs = server.createObject (adodb.oldset)

Rs.oopen SQL, Conn, 1,3

Конец, если

Конец суб

'[Sub] endrs rs

'Функция: закройте соответствующий тип набора данных

'параметр:

'RS Open RS Collection

Sub endrs (rs)

Если isobject (rs), тогда

Rs.close: установить RS = ничего

Конец, если

Конец суб

'[Sub] endconn

'Функция: закройте соединение базы данных

'Параметр: нет

Sub endnn

Если isobject (conn), тогда

conn.close: установить conn = ничего

Конец, если

Конец суб

'[Sub] execsql sql

'Функция: выполнить оператор SQL

'параметр:

Оператор SQL выполнена

Sub execsql (sql)

conn.execute (sql)

Конец суб

'[] selectalone sql

'Функция: одно полевой запрос

'параметр:

Оператор SQL выполнена

'Return: значение поля запроса

Selectalone (SQL)

Dim Selectaloners

SETELE SELECTALONERS = const.execute (sql)

Selectalone = selectaloners (0)

Endrs selectaloners

Конец

'Функции, связанные с операцией строки

'[] Issafestr Str

'Функция: Определите, является ли это безопасной строкой, используйте в специальных полях, таких как регистрация и вход в систему

'параметр:

'Str String для обнаружения

'Return: true = security, false = небезопасно

Issafestr (str)

Dim s_badstr, n, i

s_badstr = '& <>?%,;: () ~!@#$^*{} [] |+-= & chr (34) & chr (9) & chr (32)

n = len (s_badstr)

Issafestr = true

Для i = 1 до n

Если instr (str, mid (s_badstr, i, 1))> 0 тогда

Issafestr = false

Выход

Конец, если

Конец

'[] Htmltoencode str

'Функция: код HTML

'параметр:

'STR должен кодировать строку

'Return: кодовая строка

Htmltoencode (str) '

Если нет isnull (str) и str <> then

str = reply (str, & & amp;)

str = reply (str,>, & gt;)

str = заменить (str, <, & lt;)

Str = заменить (str, chr (32),)

str = reply (str, chr (9), & nbsp;)

str = reply (str, chr (34), & quot;)

Str = reply (str, chr (39), ')

str = заменить (str, chr (13),)

Str = заменить (str ,, s Cript)

Str = reply (str, s, s)

HtmltoEncode = str

конец, если

Конец

'[] Encodetohtml str

'Функция: код HTML -код

'параметр:

'STR нужно кодировать строку

'Return: обратный -кодированный строка

Encodetohtml (str)

Если нет isnull (str) и str <> then

str = reply (str, & amp;, &)

str = reply (str, & gt;,>)

str = reply (str, & lt;, <)

Str = заменить (str ,, chr (32))

str = reply (str, & nbsp;, chr (9))

Str = заменить (str, & quot ;, chr (34))

str = reply (str, ', chr (39))

Str = заменить (str ,, chr (13))

str = reply (str, s Cript,)

Str = reply (str, s, s)

Encodetohtml = str

конец, если

Конец

'[] Gottopic str, strlen

Функция: Проверьте длину строки строки, китайские символы рассчитываются 2 длина

'параметр:

'STR нужно перехватить

'Strlen перехват длины

'Return: строка после длины длины Strlen

GetTopic (str, strlen)

Если str = тогда

Gottopic =

Выход

конец, если

Dim L, T, C, я

l = Len (str)

T = 0

для i = 1 до l

C = ABS (ASC (Mid (str, I, 1)))))))

Если C> 255, то тогда

t = t+2

еще

t = t+1

конец, если

Если t> = strlen, тогда

Gottopic = слева (str, i) & ...

Выход для

еще

GotTopic = str

конец, если

Конец

'[] DateFormattime TVAR, стиль

'Функция: форматирование времени

'параметр:

'TVAR нуждается в форматировании строки времени

'Тип форматирования Stype

'Return: форматирование строки времени

DateFormattime (TVAR, стиль)

Dim TT, Syear, Smnon, Sday, Shour, Sminute, Ssecond

Если нет iSdate (TVAR), то DateFormattime =: Выход

TT = TVAR

Syear = год (TT)

Smonth = right (0 и месяц (TT), 2)

Sday = right (0 и день (TT), 2)

Shour = right (0 и час (TT), 2)

Sminute = right (0 & minment (tt), 2)

ssecond = right (0 & sex (tt), 2)

Выберите стиль корпуса

Случай 1'2006-3-13

DateFormattime = syear & -& smonth & -& sday

Случай 2 '13 марта 2006 г.

DateFormattime = Syear & Год и Smnth & Monthly & Sday & Day

Случай 3 '2006031313120123

DateFormattime = Sear & Smonth & Sday & Shour & Sminute & Ssecond

Случай еще

DateFormattime = tt

Конец выбора

Конец

'[] Isnum str

'Функция: это число

'параметр:

'Str должен судить String

'Return: true = number, false = non -numbers

Isnum (str) '

Если str <> и isnumeric (str), то тогда

Isnum = true

еще

Isnum = false

конец, если

Конец

'Выходная отладка, связанные с функциями

'[Sub] Mesgoback str

'Функция: всплывающая информация и вернуть

'параметр:

'Str должен судить String

Sub Mesgoback (str)

Response.write (<ranguage = 'java'> alert ('& str &'); listory.back (); </>)

Response.end ()

Конец суб

'[Sub] mesgourl str, url

'Функция: всплывающая информация и вернуть

'параметр:

'Str должен судить String

'URL -адрес

Submesgourl (str, url)

Response.write (<ranguage = 'java'> alert ('& str &'); local.href = '& url &'; </>)

Response.end ()

Конец суб

'[Sub] отлаживает неправильно

'Функция: отладка вывода

'параметр:

'Неправильная хочет вывода информация

'Return: нет возврата значения

Sub Debug (Ingrong) 'Вывод отладки

Response.write (ing)

Response.end ()

Конец суб

'Функция -связанные с функциями

'[] Getip

'Function: получить пользовательский IP

'параметр:

' никто

'Return: пользовательский текущий IP

Getip ()

Dim Userip

userip = request.servervariables (http_x_forwarded_for)

Если userip = then userip = request.servervariables (remote_addr)

Getip = пользователь

Конец

'[] geturl

'Функция: Получите текущее доменное имя

'параметр:

' никто

'Return: текущее доменное имя

geturl ()

geturl = request.servervariables (server_name)

Конец