<%
Рем ############################################## ###################
Rem ## Скрыть время выполнения
Sub s__HideTimeOver()
Тусклый tTimeOver
tTimeOver = FormatNumber((Timer() - tStartTime) * 1000, 3, правда)
response.Write(vbCrLf & "<!--Время выполнения: " & tTimeOver & " миллисекунды-->")
Конец субтитра
Рем ############################################## ###################
Рем ############################################## ###################
Rem ## Открыть соединение с базой данных
функция f__OpenConn()
Тусклый контакт
connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Источник данных="
connstr = connstr & Server.MapPath(GBL__STR_DB_PATH)
Установить conn = Server.CreateObject("Adodb.Connection")
conn.open connstr
Конечная функция
Рем ############################################## ############################################
### #####################################
Rem ## Закрыть соединение с базой данных
функция f__CloseConn()
Если IsObject(conn) Тогда
Установить соединение = ничего
Конец, если
Конечная функция
Рем ############################################## ###################
Рем ############################################## ###################
Rem ## HTML-преобразование
функция toHtml(str)
Тусклый результат
Результат = ул & ""
Результат = заменить(Результат, ">", ">")
Результат = заменить(Результат, "<", "<")
Результат = заменить(Результат, " ", " ")
Результат = заменить(Результат, """", """)
Результат = заменить(Результат, CHR(13), "")
Результат = replace(Результат, CHR(10), "<br>")
Результат = заменить(Результат, CHR(39), "'")
toHtml = Результат
Конечная функция
Рем ############################################## ###################
Рем ############################################## ###################
Rem ## преобразование длинных целых чисел
функция toLng(strNum, по умолчанию)
Тусклый результат
Если strNum <> "" И IsNumeric(strNum) Тогда
Результат = CLng(strNum)
Еще
toNum = По умолчанию
Конец, если
toLng = Результат
Конечная функция
Рем ############################################## ###################
http://bizhi.downcodes.com/
Рем ############################################## ###################
Rem ## Преобразование типа валюты
функция toCur(strNum, Default)
Тусклый результат
Если strNum <> "" И IsNumeric(strNum) Тогда
Результат = CCur(strNum)
Еще
toNum = По умолчанию
Конец, если
toCur = Результат
Конечная функция
Рем ############################################## ###################
Рем ############################################## ###################
Rem ## Кодировка замены SQL
функция toSqlr(str)
ул = ул & ""
str = replace(str, "'", "")
str = replace(str, """", "")
toSqlr = ул
Конечная функция
Рем ############################################## ############################################
### #####################################
Rem ## SQL-кодировка
функция toSql(str)
ул = ул & ""
str = replace(str, "'", "''")
toSql = ул
Конечная функция
Рем ############################################## ############################################
### #####################################
Rem ## Преобразуйте число в фиксированное количество цифр и заполните все недостающие цифры 0
функция ConvertNumber(strNum)
стрНум = стрНум & ""
Dim iLen, iMaxL, iLdiv, Результат
iLen = Len(strNum)
иМаксL=8
iLdiv = iMaxL - iLen
Результат = строка (iLdiv, «0») & strNum
КонвертироватьНомер = Результат
Конечная функция
Рем ############################################## ###################
%>