Рекомендуется: полезная коллекция функций в разработке ASP (3) Коллекция полезных функций в разработке ASP довольно полезна, пожалуйста, сохраните его! '*******************************************
Коллекция полезных функций в разработке ASP довольно полезна, пожалуйста, сохраните его!
'**************************************************
«Фильтруя гиперссылки»
'**************************************************
Функция CheckUrl (Byval CHKSTR)
Dim Str: Str = CHKSTR
str = trim (str)
Если isnull (str), то
CheckUrl =
Выходная функция
Конец, если
Dim Re
Установите RE = новая режима
re.ignorecase = true
re.global = true
re.pattern = (d) (Ocument/.cookie)
Str = re.replace (str, 1ocument cookie)
re.pattern = (d) (ocument/.write)
Str = re.replace (str, 1ocument rap)
re.pattern = (s) (сценарий :)
Str = re.replace (str, 1script)
re.pattern = (s) (сценарий)
Str = re.replace (str, 1script)
re.pattern = (o) (bject)
Str = re.replace (str, 1bject)
re.pattern = (a) (pplet)
Str = re.replace (str, 1pplet)
re.pattern = (e) (mbed)
Str = re.replace (str, 1mbed)
Установить re = ничего
Str = reply (str,>,>)
Str = reply (str, <, <)
CheckUrl = str
конечная функция
'**************************************************
'Имя файла фильтра
'**************************************************
Function fixname (upfileext)
Если isempty (upfileext), то выход функции
Fixname = ucase (upfileext)
FixName = replace (fixName, chr (0),)
FixName = replace (fixName ,.,)
FixName = replace (fixName, ASP,)
FixName = replace (fixName, ASA,)
FixName = replace (fixName, ASPX,)
FixName = replace (fixName, cer,)
FixName = replace (fixName, cdx,)
FixName = replace (fixName, htr,)
Конечная функция
'**************************************************
'Фильтруйте специальные символы
'**************************************************
Функция Checkstr (Byval CHKSTR)
Dim Str: Str = CHKSTR
Если isnull (str), то
Checkstr =
Выходная функция
Конец, если
Str = reply (str & &)
Str = reply (str, ',')
Str = заменить (str ,,)
Dim Re
Установите RE = новая режима
re.ignorecase = true
re.global = true
re.pattern = (w) (здесь)
Str = re.replace (str, 1hhere)
re.pattern = (s) (избранный)
Str = re.replace (str, 1Elect)
re.pattern = (i) (nsert)
Str = re.replace (str, 1nsert)
re.pattern = (c) (reate)
Str = re.replace (str, 1Reate)
re.pattern = (d) (ROP)
Str = re.replace (str, 1rop)
re.pattern = (a) (lter)
Str = re.replace (str, 1lter)
re.pattern = (d) (Elete)
Str = re.replace (str, 1elete)
re.pattern = (u) (pdate)
Str = re.replace (str, 1pdate)
re.pattern = (/s) (или)
Str = re.replace (str, 1or)
Установить re = ничего
Checkstr = str
Конечная функция
'**************************************************
'Восстановите специальных персонажей
'**************************************************
Функция Uncheckstr (Byval Str)
Если isnull (str), то
Uncheckstr =
Выходная функция
Конец, если
Str = reply (str, ',')
Str = заменить (str ,,)
Dim Re
Установите RE = новая режима
re.ignorecase = true
re.global = true
re.pattern = (w) (здесь)
str = re.replace (str, 1hhere)
re.pattern = (s) (избранный)
str = re.replace (str, 1Elect)
re.pattern = (i) (nsert)
str = re.replace (str, 1nsert)
re.pattern = (c) (reate)
str = re.replace (str, 1Reate)
re.pattern = (d) (ROP)
str = re.replace (str, 1rop)
re.pattern = (a) (lter)
str = re.replace (str, 1lter)
re.pattern = (d) (Elete)
str = re.replace (str, 1elete)
re.pattern = (u) (pdate)
str = re.replace (str, 1pdate)
re.pattern = (/s) (или)
Str = re.replace (str, 1or)
Установить re = ничего
Str = reply (str & &)
Uncheckstr = str
Конечная функция
'**************************************************
'Конвертировать HTML -код
'**************************************************
Функция htmlencode (byval restring)
Dim Str: Str = отдых
Если нет isnull (str), то тогда
Str = reply (str,>,>)
Str = reply (str, <, <)
Str = заменить (str, chr (9),)
Str = заменить (str, chr (32),)
Str = заменить (str, chr (39), ')
Str = заменить (str, chr (34),)
Str = заменить (str, chr (13),)
Str = reply (str, chr (10), <br/>)
Htmlencode = str
Конец, если
Конечная функция
'**************************************************
'HTML -код обратного преобразования
'**************************************************
Функция htmldecode (byval restring)
Dim Str: Str = отдых
Если нет isnull (str), то тогда
Str = reply (str,>,>)
Str = reply (str, <, <)
Str = заменить (str ,,, chr (9))
Str = заменить (str ,, chr (32))
Str = заменить (str, ', chr (39))
Str = заменить (str ,, chr (34))
Str = заменить (str ,, chr (13))
Str = reply (str, <br/>, chr (10))
Htmldecode = str
Конец, если
Конечная функция
'**************************************************
'Восстановление и характер
'**************************************************
Функция clearhtml (byval restring)
Dim Str: Str = отдых
Если нет isnull (str), то тогда
Str = reply (str & &)
Clearhtml = str
Конец, если
Конечная функция
'**************************************************
'Filter Textarea
'**************************************************
Функция ubbfilter (byval restring)
Dim Str: Str = отдых
Если нет isnull (str), то тогда
Str = reply (str, </textarea>, </textarea>)
Ubbfilter = str
Конец, если
Конечная функция
'**************************************************
'Filter HTML -код
'**************************************************
Функция editdehtml (byval content)
Editdehtml = content
Если нет isnull (editdehtml), тогда
Editdehtml = uncheckstr (editdehtml)
Editdehtml = reply (editdehtml, & &)
Editdehtml = reply (editdehtml, <, <)
Editdehtml = reply (editdehtml,>,>)
Editdehtml = reply (editdehtml, chr (34),)
Editdehtml = reply (editdehtml, chr (39), ')
Конец, если
Конечная функция
'**************************************************
'Функция конверсии даты
'**************************************************
Функция DateToStr (DateTime, Showtype)
Dim Datemonth, Dateday, DateHour, DateMinute, DateWeek, Datesecond
Dim Fullweekday, ShortWeekday, Fullmonth, Shortmonth, Timezone1, Timezone2
Timezone1 =+0800
Timezone2 =+08: 00
Fullweekday = Array (воскресенье, понедельник, вторник, среда, пятница, суббота)
ShortWeekDay = массив (солнце, понедельник, вт, ср, чт, пт, сб)
Fullmonth = Array (январь, февраль, март, апрель, май, июнь, июль, август, сентябрь, октябрь, ноябрь, декабрь)
Shortmonth = Array (январь, февраль, март, апрель, май, июнь, июль, август, сентябрь, октябрь, ноябрь, декабрь)
Datemonth = месяц (dateTime)
Dateday = Day (DateTime)
DateHour = час (DateTime)
DateMinute = Minute (DateTime)
DateWeek = WeekDay (DateTime)
Datesecond = второе (dateTime)
Если len (datemonth) <2, то datemonth = 0 & datemonth
Если Len (Dateday) <2, то Dateday = 0 & Dateday
Если len (dateminute) <2, то dateminute = 0 & dateminute
Выберите Case Showtype
Случай YMD
DateToStr = Год (DateTime)-& Datemonth- & Dateday
Дело YMD H: ia
Dim DateMpm
Если DateHour> 12, тогда
DateHour = DateHour-12
DateMpm = PM
Еще
DateHour = DateHour
DateMpm = Am
Конец, если
Если Len (datehour) <2, то datehour = 0 & datehour
DateToStr = Год (DateTime)-& Datemonth- & Dateay & Datehour: & DateMinute & Dateampm
Case YMD H: I: S.
Если Len (datehour) <2, то datehour = 0 & datehour
Если len (датчика) <2, то дат -секунд = 0 & datesecond
DateToStr = Год (DateTime)-& Datemonth- & Dateday & Datehour: & DateMinute: & Datesecond
Дело YMDHIS
Datesecond = второе (dateTime)
Если Len (datehour) <2, то datehour = 0 & datehour
Если len (датчика) <2, то дат -секунд = 0 & datesecond
DateToStr = Год (DateTime) и DateMonth & Dateday & DateHour & DateMinute & DateSecond
Случай YM
DateToStr = Right (Год (DateTime), 2) и Datemonth
Случай d
DateToStr = Dateday
Случай YMD
DateToStr = Right (Год (DateTime), 4) и Datemonth & Dateday
Дело Mdy
Dim Dayend
Выберите случай от датирования
Случай 1
Дейенд = ул
Случай 2
Dayend = nd
Случай 3
Dayend = rd
Случай еще
Dayend = th
Конец выбора
DateToStr = Fullmonth (Datemonth-1) и Dateday & Dayend & Right (Год (DateTime), 4)
Case W, DMY H: I: S.
Datesecond = второе (dateTime)
Если Len (datehour) <2, то datehour = 0 & datehour
Если len (датчика) <2, то дат -секунд = 0 & datesecond
DateToStr = ShortWeekDay (DateWeek-1), & Dateday & Left (Fullmonth (Datemonth-1), 3) и справа (год (DateTime), 4) и DateHour: & DateMinute: & DateseCond & TimeZone1
Case YM-DTH: I: S.
Если Len (datehour) <2, то datehour = 0 & datehour
Если len (датчика) <2, то дат -секунд = 0 & datesecond
DateToStr = Год (DateTime)-& Datemonth- & dateayt & datehour: & dateminute: & datesecond & timezone2
Случай еще
Если Len (datehour) <2, то datehour = 0 & datehour
DateToStr = Год (DateTime)-& Datemonth- & Dateday & DateHour: & DateMinute
Конец выбора
Конечная функция
'**************************************************
'Функция лиц
'**************************************************
Dim Firstshortcut, ярлык
FirstShortcut = false
Функциональный множеству (числа, персидж, односмен, url_add, aname, style)
Curpage = int (curpage)
Numbers = int (numbers)
Dim Url
Url = request.servervariables (script_name) и url_add
Множество =
Dim Page, Offset, Pagei
'Если int (numbers)> int (perpage), тогда
Page = 9
Смещение = 4
Смутные страницы, от страницы, топ
Если числа mod cint (perpage) = 0, тогда
Страницы = int (числа/персидж)
Еще
Страницы = int (numbers/perpage) +1
Конец, если
FromPage = curpage-offset
Топжа = CURPAGE+PAGE OFFSET-1
Если страница> страницы тогда
From Page = 1
Overge = страницы
Еще
Если от страницы <1, тогда
Opege = curpage+1-stropage
From Page = 1
If (topage-frompage) <страница и (топажа)
Elseif Topage> страницы тогда
FromPage = Curpage-Pages +Coverge
Overge = страницы
If (opgege-frompage) <страница и (топажа)
Конец, если
Конец, если
Множество = <div class = page style = & style> <ul>
'Если Curpage <> 1, то multiage = multiage & <li class = pagel> <a href = & url & page = 1 class = pagelbutton title = первая страница> </a> </li>
Множественный = Множественный <li class = pageNumber>
Если Curpage <> 1, то multiage = multiage <a href = & urlpage = 1 title = первая страница Style = текстовое декорация: none> <</a> |
Если не FirstShortcut, то ortcut = accesskey =, else ortkut =
Если Curpage <> 1, то multiage = multiage <a href = & urlpage = & curpage-1 title = предыдущий pagestyle = text-decoration: none; & shortcut> </a>
Для Pagei = от страницы до накладки
Если Pagei <> curpage, то
Multipage = multiage <a href = & urlpage = & pagei & aname> & pagei </a> |
Еще
Multiouse = Multipe <strong> & pagei </strong>
Если Pagei <> страницы, то многократный = многократный |
Конец, если
Следующий
Если не FirstShortcut, то ortcut = accessKey =. еще ярлык =
Если Curpage <> pages, then multiage = multiage <a href = & urlpage = & curpage+1 title = next pagestyle = text-decoration: none & shortcut> </a>
Если Curpage <> pages then multiage = multiage <a href = & urlpage = & pages & aname title = last Page Style = Text-Decoration: none >> </a>
Множественный = мультистра </li>
'Если int (pages)> int (page) then
'Multipe = multipe & <li> ... </li> <li> <a href = & url & page = & pages & aname &> & pages & </a> </li>
'End if
'Если Curpage <> pages then multiage = multiage & <li class = pager> <a href = & url & page = & pages & aname & class = pagerbutton title = последняя страница> </a> </li>
Множественный = Многочислен </ul> </div>
'End if
FirstShortcut = true
Конечная функция
Поделиться: общая функция ASP, чтобы определить, пустое ли значение базы данных Из -за различных свойств различных областей методы, чтобы определить, являются ли пустое поле, также различны. Ниже приведена общая функция, которая избегает боли типа поля. 'Проверьте переменную не пустую функцию isblank (byref tempvar)' По умолчанию предположим, что это не пустая isblank = false 'Теперь проверьте по переменной t