Рекомендуется: полезная коллекция функций в разработке ASP (2) Коллекция полезных функций в разработке ASP довольно полезна, пожалуйста, сохраните его! '*****************************************
Коллекция полезных функций в разработке ASP довольно полезна! Я надеюсь, что все это сохранит!
<%
'**************************************************
'Предотвратить внешние представления
'**************************************************
функция chkpost ()
dim server_v1, server_v2
chkpost = false
server_v1 = cstr (request.servervariables (http_referer))
server_v2 = cstr (request.servervariables (server_name))
Если mid (server_v1,8, len (server_v2)) <> server_v2
chkpost = false
еще
chkpost = true
конец, если
конечная функция
'**************************************************
'IP -фильтрация
'**************************************************
функция Matchip (IP)
при ошибке резюме следующим
Matchip = false
Dim Sip, Splitip
Для каждого глотка в фильтере
SIP = Заменить (SIP,*,/D*)
Splitip = split (sip ,.)
Dim Re, Strmatchs, Strip
Установите RE = новая режима
re.ignorecase = true
re.global = true
re.pattern = (& splitip (0) |). (& splitip (1) |). (& splitip (2) |). (& splitip (3) |)
Установить strmatchs = re.execute (ip)
strip = strmatchs (0). Submatches (0) &. & Strmatchs (0). Submatches (1) &. & Strmatchs (0). Submatches (2) &. & strmatchs (0). Submatches (3)
Если полоска = ip, то Matchip = true: функция выхода
Установить Strmatchs = ничего
Установить re = ничего
следующий
конечная функция
'**************************************************
'Получите регистрационный код
'**************************************************
Функция getCode ()
getCode = <img src = common/getCode.asp alt = style = маржинальный: 40px;/>
Конечная функция
'**************************************************
'Ограниченные типы файлов
'**************************************************
Функция isValidFile (file_type)
Isvalidfile = false
Dim Gname
Для каждого Gname в up_filetype
Если file_type = gname, тогда
Isvalidfile = true
Выход для
Конец, если
Следующий
Конечная функция
'**************************************************
'Обнаружение, включены ли только английский и цифры
'**************************************************
Функция isValidchars (str)
Dim Re, CHKSTR
Установите RE = новая режима
re.ignorecase = true
re.global = true
re.pattern = [^_/. a-za-z/d]
Isvalidchars = true
chkstr = re.replace (str,)
Если chkstr <> str, то isvalidchars = false
установить re = ничего
Конечная функция
'**************************************************
'Обнаружение, включены ли только английский и цифры
'**************************************************
Функция isValidValue (Arrayn, Str)
Isvalidvalue = false
Dim Gname
Для каждого гнама в Аррейне
Если str = gname, тогда
Isvalidvalue = true
Выход для
Конец, если
Следующий
Конечная функция
'**************************************************
'Выявить, является ли число действительным
'**************************************************
Функция ISinteger (пункт)
Isinteger = false
Если нет (isnull (para) или trim (para) = или нет is inumeric (para)), тогда
ISInteger = True
Конец, если
Конечная функция
'**************************************************
'Обнаружение имени пользователя
'**************************************************
Функция isvalidusername (имя пользователя Byval)
при ошибке резюме следующим
Dim I, c
Dim Vusername
Isvalidusername = true
Для i = 1 до Лена (имя пользователя)
c = lcase (середина (имя пользователя, i, 1))
Если instr (! <>?#^%@~ `&*();:+= ', C)> 0 тогда
Isvalidusername = false
Выходная функция
Конец, если
Следующий
Для каждого vusername в Register_username
Если username = vusername, тогда
Isvalidusername = false
Выход для
Конец, если
Следующий
Конечная функция
'**************************************************
'Проверьте, действителен ли адрес электронной почты
'**************************************************
Функция isvalidemail (электронная почта)
Dim имена, имя, я, c
Isvalidemail = true
Names = split (электронная почта, @)
Если ubound (имена) <> 1, тогда
Isvalidemail = false
Выходная функция
Конец, если
Для каждого имени в именах
Если Len (имя) <= 0, тогда
Isvalidemail = false
Выходная функция
Конец, если
Для i = 1 к Лену (имя)
c = lcase (середина (имя, i, 1))
Если instr (abcdefghijklmnopqrstuvwxyz_-., C) <= 0, а не является расточительным (c), тогда
Isvalidemail = false
Выходная функция
Конец, если
Следующий
Если осталось (имя, 1) =. или справа (имя, 1) =. Затем
Isvalidemail = false
Выходная функция
Конец, если
Следующий
Если instr (имена (1) ,.) <= 0 тогда
Isvalidemail = false
Выходная функция
Конец, если
i = len (имена (1)) - Инструмент (имена (1) ,.)
Если я <> 2 и я <> 3 тогда
Isvalidemail = false
Выходная функция
Конец, если
Если instr (электронная почта, ..)> 0, тогда
Isvalidemail = false
Конец, если
Конечная функция
'**************************************************
'Выделите ключевые слова
'**************************************************
Выделение функции (Byval Strcontent, Byref Arraywords)
Dim Intcounter, Strtemp, Intpos, Inttaglength, Intkeywordlength, Bupdate
Если Len (Arraywords) <1, то hights = strcontent: exit function
Для intpos = 1 до len (strcontent)
bupdate = false
Если Mid (strcontent, intpos, 1) = <the
При ошибке резюме следующим
inttaglength = (instr (intpos, strcontent,>, 1) - intpos)
Если ошибка, тогда
hight = strcontent
err.clear
конец, если
strtemp = strtemp & mid (strcontent, intpos, inttaglength)
intpos = intpos + inttaglength
Конец, если
Если Arraywords <> Then Then
Intkeywordlength = len (Arraywords)
Если lcase (mid (strcontent, intpos, intkeordlength)) = lcase (arraywords) тогда
strtemp = strtemp & <span class = high1> & mid (strcontent, intpos, intkeordlength) и </span>
intpos = intpos + intKeordLength - 1
bupdate = true
Конец, если
Конец, если
Если bupdate = false, тогда
strtemp = strtemp & mid (strcontent, intpos, 1)
Конец, если
Следующий
hight = strtemp
Конечная функция
Поделиться: полезная коллекция функций в разработке ASP (3) Коллекция полезных функций в разработке ASP довольно полезна, пожалуйста, сохраните его! '*******************************************