Друзья, которые используют ASP для разработки веб-сайтов, могут изучить его функции ASP, чтобы облегчить обучение и повысить эффективность разработки . Скопируйте код следующим образом:
<%
'－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
'Класс Tianfeng ASP v1.0, объединяющий общие функции asp в одну
'Тяньфэн, все права защищены
QQ: 76994859 ЭЛЕКТРОННАЯ ПОЧТА: [email protected]
'Все имена функций следующие:
' StrLength(str) получает длину строки
' CutStr(str,strlen) обрезка длины строки
' CheckIsEmpty(tstr) проверяет, пуст ли он
' isInteger(para) целочисленная проверка
' CheckName(str) проверка символов имени
' CheckPassword(str) проверка пароля
' CheckEmail(email) Проверка формата электронной почты
'Alert(msg,goUrl) выводит диалоговое окно с приглашением
' Сообщение об ошибке GoBack(Str1,Str2,isback)
' Suc(str1,str2,url) сообщение об успешном выполнении операции
' ChkPost() определяет, отправлена ли форма за пределы сайта
' PSql() предотвращает внедрение sql
' FiltrateHtmlCode(Str) предотвращает создание HTML
' HtmlCode(str) фильтрует HTML
'Replacehtml(tstr) Очистить HTML
'GetIP() Получить IP-адрес клиента
'GetBrowser Получает информацию о клиентском браузере
' GetSystem получает клиентскую операционную систему
'GetUrl() Получает URL текущей страницы, включая параметры.
'CUrl() Получить URL текущей страницы
' GetExtend получает расширение файла
' CheckExist(table,fieldname,fieldcontent,isblur) определяет, существует ли содержимое поля в таблице.
' GetNum(table,fieldname,resulttype,args) определяет количество полей в таблице, максимальное значение, минимальное значение и т. д.
' GetFolderSize(Folderpath) вычисляет размер папки
' GetFileSize(Filename) вычисляет размер файла
' IsObjInstalled(strClassString) определяет, установлен ли компонент
'SendMail JMAILОтправить почту
'ResponseCookies записывает файлы cookie
' CleanCookies Очистить файлы cookie
' GetTimeover получает время выполнения страницы программы
'Форматирование размера FormatSize
'Форматирование времени FormatTime
'Зодиак получил знак зодиака
'Созвездие получает созвездие
'－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
Класс Cls_fun
'－－－－－－－－Обработка символов－－－－－－－－－－－－－－－－－－－－－－－－－
'********************************************** * **
'Имя функции: StrLength
'Функция: получить длину строки (2 китайских иероглифов)
'Параметр: str ---- содержимое строки
'Возвращаемое значение: длина строки
'********************************************** * **
Открытая функция StrLength(str)
Dim Rep,объектив,i
Установить повтор = новое регулярное выражение
Rep.Global=истина
Rep.IgnoreCase=истина
Rep.Pattern=[/u4E00-/u9FA5/uF900-/uFA2D]
Для каждого i в Rep.Execute(str)
линза=линза+1
Следующий
Установить Rep=Ничего
линза=линза + лен(ул)
strLength=линза
Конечная функция
'********************************************** * **
'Имя функции: CutStr
'Функция: сократить длину строки и отобразить эллипсы, если она превышает длину
'Параметр: str ---- содержимое строки
' strlen ------Длина, которая будет отображаться
'Возвращаемое значение: содержимое строки после обрезки
'********************************************** * **
Открытая функция CutStr(str,strlen)
Дим л, т, я, с
Если ул= Тогда
Cutstr=
Выход из функции
Конец, если
str=Replace(Заменить(Заменить(Заменить(Заменить(str, , ),,Chr(34)),>,>),<,<),|,|)
л = Лен (стр)
т=0
Для i=1 К l
c=Abs(Asc(Mid(str,i,1)))
Если с>255 Тогда
т=т+2
Еще
т=т+1
Конец, если
Если t>=strlen Тогда
Cutstr=Влево(str,i) & ...
Выход для
Еще
Cutstr=Str
Конец, если
Следующий
Cutstr=Replace(Заменить(Заменить(Заменить(заменить(cutstr, , ),Chr(34),),>,>),<,<),|,|)
Конечная функция
'－－－－－－－－－－－－－－Проверка серии－－－－－－－－－－－－－－－－－－－－－－－－ －－
'********************************************** * **
'Имя функции: CheckIsEmpty
'Функция: проверить, пусто ли оно
'Параметр: tstr ---- строка
'Возвращаемое значение: true не пусто, false пусто
'********************************************** * **
Открытая функция CheckIsEmpty(tstr)
CheckIsEmpty=ложь
Если IsNull(tstr) или Tstr=, то выйти из функции
Дим ул,ре
Стр=Тстр
Установить re=новое регулярное выражение
re.IgnoreCase = Истина
re.Global=Истина
str = Заменить (str, vbNewLine, )
str = Заменить(str, Chr(9), )
стр = Заменить(строка, , )
стр = Заменить(строка, , )
re.Pattern=<img(.[^>]*)>
str =re.Replace(Str,94kk)
re.Pattern=<(.[^>]*)>
Str=re.Replace(Str,)
Установить Re=Ничего
Если Str<> Тогда CheckIsEmpty=true
Конечная функция
'********************************************** * **
'Имя функции: isInteger
'Функция: целочисленный тест
'Параметр: tstr ---- символ
'Возвращаемое значение: true — целое число, false — не целое число.
'********************************************** * **
Открытая функция isInteger(para)
при ошибке возобновить Далее
Димстр
Дим л, я
Если isNUll(пункт), то
isInteger = ложь
функция выхода
Конец, если
стр=cstr(пункт)
Если обрезка(строка)= тогда
isInteger = ложь
функция выхода
Конец, если
л=лен(стр)
Для i = от 1 до l
Если Mid(str,i,1)>9 или Mid(str,i,1)<0, то
isInteger = ложь
функция выхода
Конец, если
Следующий
isInteger=истина
Если err.number<>0, то err.clear
Конечная функция
'********************************************** * **
'Имя функции: CheckName
'Функция: проверка символов имени
'Параметр: str ---- строка
'Возвращаемое значение: true верно, false неверно
'********************************************** * **
Открытая функция CheckName(Str)
Контрольное имя=истина
Дим Реп, пас
Установить Rep=Новое регулярное выражение
Rep.Global=Истина
Rep.IgnoreCase=Истина
«Соответствует буквам, цифрам, подчеркиваниям, китайским иероглифам и должно начинаться с букв, подчеркиваний или китайских иероглифов».
Rep.Pattern=^[a-zA-Z_u4e00-/u9fa5][/w/u4e00-/u9fa5]+$
Установить pass=Rep.Execute(Str)
Если pass.count=0, то CheckName=false
Установить Rep=Ничего
Конечная функция
'********************************************** * **
'Имя функции: CheckPassword
'Функция: проверка пароля
'Параметр: str ---- строка
'Возвращаемое значение: true верно, false неверно
'********************************************** * **
Открытая функция CheckPassword(Str)
Тусклый проход
CheckPassword=истина
Если Стр <> Тогда
Дим Реп
Установить Rep = Новое регулярное выражение
Rep.Global = Истина
Rep.IgnoreCase = Истина
'Сопоставление букв, цифр, подчеркиваний, точек
Rep.Pattern=[a-zA-Z0-9_/.]+$
Pass=rep.Test(Str)
Установить Rep = ничего
Если не пройти, то CheckPassword=false
Конец, если
Конечная функция
'********************************************** * **
'Имя функции: CheckEmail
'Функция: определение формата электронной почты
'Параметр: str ----Адрес электронной почты
'Возвращаемое значение: true верно, false неверно
'********************************************** * **
Открытая функция CheckEmail(электронная почта)
CheckEmail=истина
Дим Реп
Установить Rep = новое RegExp
Rep.pattern=([/.a-zA-Z0-9_-]){2,10}@([a-zA-Z0-9_-]){2,10}(/.([a-zA- Z0-9]){2,}){1,4}$
pass=rep.Test(электронная почта)
Установить Rep=Ничего
Если не пройти, то CheckEmail=false
Конечная функция
'－－－－－－－－－－－－－－Информационная подсказка－－－－－－－－－－－－－－－－－－－－－－－－ －－
'********************************************** * **
'Имя функции: Оповещение
'Функция: появление всплывающего диалогового окна.
'Параметр: msg ---- информация диалогового окна
' gourl ---- куда обратиться после подсказки
'Возвращаемое значение: нет
'********************************************** * **
Оповещение общедоступной функции (msg, goUrl)
сообщение = заменить(сообщение,',/')
Если goUrl= Тогда
goUrl=history.go(-1);
Еще
goUrl=window.location.href='&goUrl&'
Конец ЕСЛИ
Response.Write (<язык сценария=тип JavaScript=text/javascript>&vbNewLine&alert(' & msg & ');&goUrl&vbNewLine&</script>)
Ответ.Конец
Конечная функция
'********************************************** * **
'Имя функции: Возврат
'Функция: сообщение об ошибке
'Параметр: str1 ---- заголовок информационной подсказки
' str2 ---- содержимое информационного приглашения
'isback ---- Отображать ли возврат
'Возвращаемое значение: нет
'********************************************** * **
Открытая функция GoBack(Str1,Str2,isback)
Если Str1= Тогда Str1=Сообщение об ошибке
Если Str2= Тогда Str2=Пожалуйста, заполните все обязательные поля.
Если возврат = Тогда
Str2=Str2& <a href=javascript:history.go(-1)>Вернуться к пополнению</a></li>
еще
Стр2=Стр2
конец, если
Response.Write<div style=margin-left:5px;border:1px Solid #0066cc;width:98%><div style=height:22px;font-weight:bold;color: белый;font-size:14px;background:#799AE1;background:url(images/th.gif);;text-align:left;line-height:20px;padding:3px;>&Str1& </div><div style=line-height:50px;background:#F7F7F7;vertical-align:middle;font-size:14px;width:100%><div style=color:red;font:50px/50px 宋体;float:left;width :5%>×</div><div style=margin-top:8px;float:right;width:90%;text-align:left;padding-left:3px;>&str2&</div></div></div>
ответ.конец
Конечная функция
'********************************************** * **
'Имя функции: Suc
'Функция: подсказка об успехе
'Параметр: str1 ---- заголовок информационной подсказки
' str2 ---- содержимое информационного приглашения
'url ---- обратный адрес
'Возвращаемое значение: нет
'********************************************** * **
Открытая функция Suc(str1,str2,url)
Если str1= Тогда Str1=Операция успешна
Если str2= Тогда Str2=Эта операция успешно завершена!
Если url= Тогда url=javascript:history.go(-1)
str2=str2& <a href=&url& >Вернуться, чтобы продолжить управление</a>
Response.Write<div style=margin-left:5px;border:1px Solid #0066cc;width:98%><div style=height:22px;font-weight:bold;color: белый;font-size:14px;background:#799AE1;background:url(images/th.gif);;text-align:left;line-height:20px;padding:3px;>&Str1& </div><div style=line-height:50px;background:#F7F7F7;vertical-align:middle;font-size:14px;width:100%><div style=color:red;font:50px/50px 宋体;float:left;width :5%>√</div><div style=margin-top:8px;float:right;width:90%;text-align:left;padding-left:3px;>&str2&</div></div></div>
Конечная функция
'－－－－－－－－－－－－－－Безопасное обращение－－－－－－－－－－－－－－－－－－－－－－－－ －－
'********************************************** * **
'Имя функции: ChkPost
'Функция: запретить отправку формы за пределами сайта
'Возвращаемое значение: true для отправки на месте, false для отправки за пределы сайта.
'********************************************** * **
Открытая функция ChkPost()
Уменьшить URL1, URL2
chkpost=истина
url1 = Cstr(Request.ServerVariables(HTTP_REFERER))
url2 = Cstr(Request.ServerVariables(SERVER_NAME))
Если Mid(url1,8,Len(url2))<>url2 Тогда
chkpost = ложь
функция выхода
Конец, если
Конечная функция
'********************************************** * **
'Имя функции: PSql
'Функция: предотвратить SQL-инъекцию
'Возвращаемое значение: если оно пусто, инъекции не будет. Если оно не пусто, оно будет введено и введенный символ будет возвращен.
'********************************************** * **
общедоступная функция PSql()
Psql=
badwords= 'anti' анти; анти и анти exec анти вставка анти выбор анти обновление анти удаление анти счетчик анти * анти % анти chr анти мид анти мастер анти усечение анти символ анти объявить анти |
badword=split(плохие слова,защита)
Если Запрос.Форма<> Тогда
Для каждого TF_Post в Request.Form
Для i=0 To Ubound(плохое слово)
Если Instr(LCase(Request.Form(TF_Post)),плохое слово(i))>0 Тогда
Psql=недопустимое слово(я)
функция выхода
Конец, если
Следующий
Следующий
Конец, если
Если Request.QueryString<> Тогда
Для каждого TF_Get в Request.QueryString
Для i=0 To Ubound(плохое слово)
Если Instr(LCase(Request.QueryString(TF_Get)),плохое слово(i))>0 Тогда
Psql=недопустимое слово(я)
функция выхода
Конец, если
Следующий
Следующий
Конец, если
Конечная функция
'********************************************** * **
'Имя функции: FiltrateHtmlCode
'Функция: запретить создание HTML-кода
'Параметр: str ---- строка
'********************************************** * **
Открытая функция FiltrateHtmlCode(Str)
Если Not isnull(str) И str<>, то
Str=Заменить(Str,Chr(9),)
Стр=заменить(Стр,|,|)
Str=заменить(Str,chr(39),')
Str=заменить(Str,<,<)
Str=заменить(Str,>,>)
Str = Заменить(str, CHR(13),)
Str = Заменить(str, CHR(10),)
FiltrateHtmlCode=Str
Конец, если
Конечная функция
'********************************************** * **
'Имя функции: HtmlCode
'Функция: фильтровать HTML-теги
'Параметр: str ---- строка
'********************************************** * **
Открытая функция HtmlCode(str)
Если Not isnull(str) И str<>, то
строка = заменить (строка, >, >)
строка = заменить (строка, <, <)
стр = Заменить(строка, CHR(32), )
str = Заменить(str, CHR(9), )
str = Заменить(str, CHR(34), )
str = Заменить(str, CHR(39), ')
str = Заменить(str, CHR(13), )
str = Заменить(str, CHR(10), )
str = Заменить(str, скрипт, скрипт)
HtmlCode = строка
Конец, если
Конечная функция
'********************************************** * **
'Имя функции: Заменитьhtml
'Функция: очистить HTML
'Параметр: tstr ---- строка
'********************************************** * **
Открытая функция replacehtml(tstr)
Дим ул,ре
Стр=Тстр
Установить re=новое регулярное выражение
re.IgnoreCase = Истина
re.Global=Истина
re.Pattern=<(p|//p|br)>
Str=re.Replace(Str,vbNewLine)
re.Pattern=<img.[^>]*src(=| )(.[^>]*)>
str=re.replace(str,[img]$2[/img])
re.Pattern=<(.[^>]*)>
Str=re.Replace(Str,)
Установить Re=Ничего
Заменитьhtml=Str
Конечная функция
'------------Получите некоторую информацию о клиенте и сервере------------------
'********************************************** * **
'Имя функции: GetIP
'Функция: получить IP-адрес клиента
'Возвращаемое значение: IP-адрес клиента
'********************************************** * **
Открытая функция GetIP()
Тусклая температура
Temp = Request.ServerVariables(HTTP_X_FORWARDED_FOR)
Если Temp = или isnull(Temp) или isEmpty(Temp), то Temp = Request.ServerVariables(REMOTE_ADDR)
Если Instr(Temp,')>0 Тогда Temp=0.0.0.0
GetIP=Температура
Конечная функция
'********************************************** * **
'Имя функции: GetBrowser
'Функция: Получить информацию о браузере клиента
'Возвращаемое значение: информация браузера клиента
'********************************************** * **
Открытая функция GetBrowser()
информация = Request.ServerVariables (HTTP_USER_AGENT)
если Instr(info,NetCaptor 6.5.0)>0, то
браузер = NetCaptor 6.5.0
elseif Instr(info,MyIe 3.1)>0 тогда
браузер = MyIe 3.1
elseif Instr(info,NetCaptor 6.5.0RC1)>0 тогда
браузер = NetCaptor 6.5.0RC1
elseif Instr(info,NetCaptor 6.5.PB1)>0 тогда
браузер = NetCaptor 6.5.PB1
elseif Instr(info,MSIE 5.5)>0 тогда
браузер = Internet Explorer 5.5
elseif Instr(info,MSIE 6.0)>0 тогда
браузер = Internet Explorer 6.0
elseif Instr(info,MSIE 6.0b)>0 тогда
браузер = Internet Explorer 6.0b
elseif Instr(info,MSIE 5.01)>0 тогда
браузер = Internet Explorer 5.01
elseif Instr(info,MSIE 5.0)>0 тогда
браузер = Internet Explorer 5.00
elseif Instr(info,MSIE 4.0)>0 тогда
браузер = Internet Explorer 4.01
еще
браузер = другое
конец, если
Конечная функция
'********************************************** * **
'Имя функции: GetSystem
'Функция: получить клиентскую операционную систему
'Возвращаемое значение: клиентская операционная система
'********************************************** * **
Функция ПолучитьСистему()
информация = Request.ServerVariables (HTTP_USER_AGENT)
если Instr(info,NT 5.1)>0, то
система = Windows XP
elseif Instr(info,Tel)>0 тогда
система=Телпорт
elseif Instr(info,webzip)>0 тогда
система = веб-архив
elseif Instr(info,flashget)>0 тогда
система = flashget
elseif Instr(info,offline)>0 тогда
система = офлайн
elseif Instr(info,NT 5)>0 тогда
система = Windows 2000
elseif Instr(info,NT 4)>0 тогда
система = Windows NT4
elseif Instr(info,98)>0 тогда
система = Windows 98
elseif Instr(info,95)>0 тогда
система = Windows 95
elseif instr(info,unix) или instr(info,linux) или instr(info,SunOS) или instr(info,BSD) тогда
система = Unix-подобная
elseif instr(thesoft,Mac) тогда
система = Mac
еще
система = другое
конец, если
Конечная функция
'********************************************** * **
'Имя функции: GetUrl
'Функция: получить URL-адрес, включая параметры
'Возвращаемое значение: получить URL-адрес, включая параметры
'********************************************** * **
Открытая функция GetUrl()
Dim strTemp
strTemp=Request.ServerVariables(Script_Name)
Если Trim(Request.QueryString)<> Тогда
стрТемп=стрТемп&?
Для каждого M_item в Request.QueryString
strTemp=strTemp&M_item&=&Server.UrlEncode(Trim(Request.QueryString(&M_item&)))
следующий
конец, если
GetUrl=strTemp
Конечная функция
'********************************************** * **
'Имя функции: CUrl
'Функция: функция для получения URL-адреса текущей страницы
'Возвращаемое значение: функция URL текущей страницы
'********************************************** * **
ФункцияКУрл()
Имя_домена = LCase(Request.ServerVariables(Имя_сервера))
Имя_страницы = LCase(Request.ServerVariables(Script_Name))
Quary_Name = LCase(Request.ServerVariables(Quary_String))
Если Имя_Добыча = Тогда
CUrl = http://&имя_домена&имя_страницы
Еще
CUrl = http://&Имя_Домена&Имя_Страницы&?&Имя_Квария
Конец, если
Конечная функция
'********************************************** * **
'Имя функции: GetExtend
'Функция: Получить расширение файла
'Параметр: имя_файла ---- имя файла
'********************************************** * **
Открытая функция GetExtend(имя файла)
тусклый темп
если имя файла<> тогда
tmp=mid(имя файла,instrrev(имя файла,.)+1,len(имя файла)-instrrev(имя файла,.))
tmp=LCase(tmp)
если instr(1,tmp,asp)>0 или instr(1,tmp,php)>0 или instr(1,tmp,php3)>0 или instr(1,tmp,aspx)>0, то
getextend=txt
еще
getextend=tmp
конец, если
еще
getextend=
конец, если
Конечная функция
'－－－－－－－－－－－－－－－－－－Работа с базой данных－－－－－－－－－－－－－－－－－－－－ －
'********************************************** * **
'Имя функции: CheckExist
'Функция: определить, существует ли определенный контент в определенном поле определенной таблицы.
'Параметр: table ---- имя таблицы
'имя поля ---- имя поля
'fieldcontent ---- Содержимое поля
' isblur ---- следует ли использовать нечеткое совпадение
'Возвращаемое значение: false не существует, true существует
'********************************************** * **
Функция CheckExist(таблица,имя поля,содержимое поля,isblur)
CheckExist=ложь
Если isblur=1 Тогда
set rsCheckExist=conn.execute (выберите * из &table&, где &fieldname&, например '%&fieldcontent&%')
еще
set rsCheckExist=conn.execute(выберите * из &table&, где &fieldname&= '&fieldcontent&')
Конец, если
если нет (rsCheckExist.eof и rsCheckExist.bof), то CheckExist=true
rsCheckExist.close
установить rsCheckExist=ничего
Конечная функция
'********************************************** * **
'Имя функции: GetNum
'Функция: определение количества, максимального или минимального значения определенного поля в таблице.
'Параметр: table ---- имя таблицы
'имя поля ---- имя поля
'resulttype ----Вернуть результаты (количество/макс/мин)
' args ---- дополнительное участие (в порядке...)
'Возвращаемое значение: числовое значение
'********************************************** * **
Функция GetNum(таблица,имя поля,тип результата,аргументы)
GetFieldContentNum=0
если имя поля=, то имя поля=*
sqlGetFieldContentNum=выберите &resulttype&(&имя поля&) из &table& args
set rsGetFieldContentNum=conn.execute(sqlGetFieldContentNum)
если нет (rsGetFieldContentNum.eof и rsGetFieldContentNum.bof), то GetFieldContentNum=rsGetFieldContentNum(0)
rsGetFieldContentNum.close
установить rsGetFieldContentNum = ничего
Конечная функция
'********************************************** * **
'Имя функции: UpdateValue
'Функция: обновить значение определенного поля в таблице.
'Параметр: table ---- имя таблицы
'имя поля ---- имя поля
'fieldvalue ---- обновленное значение
'я сделал
' url ------- адрес перенаправления после обновления
'Возвращаемое значение: нет
'********************************************** * **
Открытая функция UpdateValue (таблица, имя поля, значение поля, идентификатор, URL-адрес)
conn.Execute(update &table& set &fieldname&=&fieldvalue& где id=&CLng(trim(id)))
если URL<>, то URL-адрес ответа.перенаправление
Конечная функция
'－－－－－－－－－－－－－Информация о сервере и операции－－－－－－－－－－－－－－－－－－－－－
'********************************************** * **
'Имя функции: GetFolderSize
'Функция: рассчитать размер папки
'Параметры: FileName ----Путь к папке и имя папки
'Возвращаемое значение: числовое значение
'********************************************** * **
Открытая функция GetFolderSize(Путь к папке)
dim fso,d,size,showsize
set fso=server.createobject(scripting.filesystemobject)
drvpath=server.mappath(путь к папке)
если fso.FolderExists(drvpath) Тогда
установить d=fso.getfolder(drvpath)
размер = d.размер
GetFolderSize=FormatSize(размер)
Еще
GetFolderSize=Путь к папке и папка не существует
Конец, если
Конечная функция
'********************************************** * **
'Имя функции: GetFileSize
'Функция: рассчитать размер файла
'Параметр: FileName ----Путь к файлу и имя файла
'Возвращаемое значение: числовое значение
'********************************************** * **
Открытая функция GetFileSize(FileName)
Dim fso,drvpath,d,size,showsize
set fso=server.createobject(scripting.filesystemobject)
путь к файлу = server.mappath (имя файла)
если fso.FileExists(путь к файлу), то
установить d=fso.getfile(путь к файлу)
размер = d.размер
GetFileSize=FormatSize(размер)
Еще
GetFileSize=ИмяФайла&Файл не существует
Конец, если
установить fso=ничего
Конечная функция
'********************************************** * **
'Имя функции: IsObjInstalled
'Функция: Проверить, установлен ли компонент
'Параметр: strClassString ---- имя компонента
'Возвращаемое значение: false не существует, true существует
'********************************************** * **
Открытая функция IsObjInstalled(strClassString)
При ошибке Возобновить Далее
IsObjInstalled=False
Ошибка=0
Димкстестобдж
Установите xTestObj=Server.CreateObject(strClassString)
Если 0 = Err, то IsObjInstalled = True
Установить xTestObj=Ничего
Ошибка=0
Конечная функция
'********************************************** * **
'Имя функции: SendMail
'Функция: использовать компонент Jmail для отправки электронных писем.
'Параметр: ServerAddress ---- адрес сервера
'AddRecipient ---- адрес получателя
' Тема ---- тема
'Тело ---- содержание письма
'Отправитель ---- адрес отправителя
'********************************************** * **
Открытая функция SendMail(MailServerAddress,AddRecipient,Subject,Body,Sender,MailFrom)
при ошибке продолжить дальше
Дим JMail
Установите JMail=Server.CreateObject(JMail.SMTPMail)
если ошибка, то
SendMail= Компонент JMail не установлен
ошибка.очистить
функция выхода
конец, если
JMail.Logging=Истина
JMail.Charset=gb2312
JMail.ContentType = текст/html
JMail.ServerAddress=MailServerAddress
JMail.AddRecipient=ДобавитьRecipient
JMail.Subject=Тема
JMail.Body=MailBody
JMail.Sender=Отправитель
JMail.From = MailFrom
JMail.Priority=1
JMail.Выполнить
Установить JMail=ничего
если ошибка, то
SendMail=err.description
ошибка.очистить
еще
ОтправитьПочту=ОК
конец, если
конечная функция
'********************************************** * **
'Имя функции: ResponseCookies
'Функция: запись COOKIES
'Параметр: Ключ ---- имя файла cookie.
'значение ----значение файла cookie
' expires ---- срок действия cookie
'********************************************** * **
Открытая функция ResponseCookies(Key,Value,Expires)
DomainPath=Left(Request.ServerVariables(script_name),inStrRev(Request.ServerVariables(script_name),/))
Response.Cookies(Key)=&Значение&
если Expires<>0, то Response.Cookies(Key).Expires=date+Expires
Response.Cookies(Key).Path=DomainPath
Конечная функция
'********************************************** * **
'Имя функции: CleanCookies
'Функция: Очистить COOKIES
'********************************************** * **
Открытая функция CleanCookies()
DomainPath=Left(Request.ServerVariables(script_name),inStrRev(Request.ServerVariables(script_name),/))
Для каждого objCookie в Request.Cookies
Response.Cookies(objCookie)=
Response.Cookies(objCookie).Path=DomainPath
Следующий
Конечная функция
'********************************************** * **
'Имя функции: GetTimeOver
'Функция: Очистить COOKIES
'Параметр: флаг ---Отображать единицу времени 1=секунды, иначе миллисекунды
'********************************************** * **
Открытая функция GetTimeOver(флаг)
ДимКондТиме
Если флаг = 1 Тогда
EndTime=FormatNumber(Timer() - StartTime, 6, true)
getTimeOver = Время выполнения этой страницы: & EndTime & секунды
Еще
EndTime=FormatNumber((Timer() - StartTime) * 1000, 3, правда)
getTimeOver = Время выполнения этой страницы: & EndTime & миллисекунды
Конец, если
Конечная функция
'－－－－－－－－－－－－－－－－－Формат серии－－－－－－－－－－－－－－－－－－－－－ －－
'********************************************** * **
'Имя функции: FormatSize
'Функция: форматирование размера
'Параметр: размер ----Размер для форматирования
'********************************************** * **
Открытая функция FormatSize(dsize)
если dsize>=1073741824, то
FormatSize=Номер формата(dsize/1073741824,2) & ГБ
иначе, если dsize>= 1048576, тогда
FormatSize=Номер формата(dsize/1048576,2) & МБ
иначе, если dsize>= 1024, тогда
FormatSize=Номер формата(dsize/1024,2) & КБ
еще
FormatSize=dsize и байт
конец, если
Конечная функция
'********************************************** * **
'Имя функции: FormatTime
'Функция: форматирование времени
'Параметр: DateTime ---- время для форматирования
'Формат ---- Формат формы
'********************************************** * **
Открытая функция FormatTime(DateTime,Format)
выберите формат регистра
случай 1
FormatTime=&год(DateTime)&год&месяц(DateTime)&месяц&день(DateTime)&日
случай 2
FormatTime=&месяц(DateTime)&месяц&день(DateTime)&日
случай 3
FormatTime=&год(DateTime)&/&месяц(DateTime)&/&день(DateTime)&
случай 4
FormatTime=&месяц(DateTime)&/&день(DateTime)&
случай 5
FormatTime=&месяц(DateTime)&месяц&день(DateTime)&日&FormatDateTime(DateTime,4)&
случай 6
temp=воскресенье, понедельник, вторник, среда, четверг, пятница, суббота
темп=сплит(температура,,)
FormatTime=temp(День недели(DateTime)-1)
случай Еще
ФорматВремя=ДатаВремя
конец выбора
Конечная функция
'--------------------Разнообразный--------------------
'********************************************** * **
'Имя функции: Зодиак
'Функция: получить жизнь и смерть
'Параметр: день рождения ---- день рождения
'********************************************** * **
общественная функция Зодиак (день рождения)
если IsDate(день рождения), то
год рождения=год(день рождения)
ZodiacList=массив(обезьяна, курица, собака, свинья, крыса, бык, тигр, кролик, дракон, змея, лошадь, овца)
Zodiac=ZodiacList(год рождения мод 12)
конец, если
Конечная функция
'********************************************** * **
'Имя функции: Созвездие
'Функция: Получить созвездие
'Параметр: день рождения ---- день рождения
'********************************************** * **
Созвездие публичной функции (день рождения)
если IsDate(день рождения), то
ConstellationMon=месяц(день рождения)
ConstellationDay=день(день рождения)
если Len(ConstellationMon)<2, то ConstellationMon=0&ConstellationMon
если Len(ConstellationDay)<2, то ConstellationDay=0&ConstellationDay
MyConstellation=ConstellationMon&ConstellationDay
если MyConstellation < 0120, то
constellation=<img src=images/Constellation/g.gif />elseif MyConstellation < 0219, тогда
constellation=<img src=images/Constellation/h.gif />elseif MyConstellation < 0321 тогда
constellation=<img src=images/Constellation/i.gif />elseif MyConstellation < 0420, тогда
constellation=<img src=images/Constellation/^.gif />elseif MyConstellation < 0521 тогда
constellation=<img src=images/Constellation/_.gif />elseif MyConstellation < 0622 тогда
constellation=<img src=images/Constellation/`.gif />elseif MyConstellation < 0723 тогда
constellation=<img src=images/Constellation/a.gif />elseif MyConstellation < 0823 тогда
constellation=<img src=images/Constellation/b.gif />elseif MyConstellation < 0923 тогда
constellation=<img src=images/Constellation/c.gif />elseif MyConstellation < 1024, тогда
constellation=<img src=images/Constellation/d.gif />elseif MyConstellation < 1122 тогда
constellation=<img src=images/Constellation/e.gif />elseif MyConstellation < 1222 тогда
constellation=<img src=images/Constellation/f.gif />elseif MyConstellation > 1221, тогда
constellation=<img src=images/Constellation/g.gif />end if
конец, если
Конечная функция
'============================================== =
'Имя функции: автостраница
'Функция: автоматическая нумерация длинных статей.
'Параметры: id, контент, urlact
'============================================== =
Функция AutoPage (содержание, параметр, переменная страницы)
contentStr = Split (содержание, переменная страницы)
Pagesize = ubound (contentStr)
если размер страницы>0, то
Если Int(Request(page))= или Int(Request(page))=0 Тогда
pageNum=1
Еще
pageNum=Запрос(страница)
Конец, если
если pageNum-1<=размер страницы, то
AutoPage=AutoPage&contentStr(pageNum-1)
AutoPage=AutoPage&<div style=margin-top:10px;text-align:right;padding-right:15px;><font color=blue>Номер страницы:</font><font color=red>
Для i=0 для размера страницы
если я=pageNum-1 тогда
AutoPage=AutoPage&[<font color=red>&i+1&</font>]
еще
если instr(параметр,?)>0, то
AutoPage=AutoPage&<a href=¶mater&&page=&i+1&>[&(i+1)&]</a>
еще
AutoPage=AutoPage&<a href=¶mater&?page=&i+1&>[&(i+1)&]</a>
конец, если
конец, если
Следующий
AutoPage=Автостраница&</font></div>
еще
AutoPage=Автостраница&Незаконная операция! Номер страницы превышен! <a href=javascript:history.back(-1)><u>Назад</u></a>
конец, если
Еще
Автостраница=содержание
конец, если
Конечная функция
Конечный класс
%>