Рекомендуется: общая функция ASP, чтобы определить, пустое ли значение базы данных Из -за различных свойств различных областей методы, чтобы определить, являются ли пустое поле, также различны. Ниже приведена общая функция, которая избегает боли типа поля. 'Проверьте переменную не пустую функцию isblank (byref tempvar)' По умолчанию предположим, что это не пустая isblank = false 'Теперь проверьте по переменной t
Коллекция полезных функций в разработке ASP довольно полезна, пожалуйста, сохраните его!
'**************************************************
'Cut Content - разделить по линии
'**************************************************
Функциональные линии разделения (контент Byval, Byval Contentnums)
Dim TS, I, L.
ContentNums = int (ContentNums)
Если isnull (content), то выход функции
i = 1
ts = 0
Для i = 1 до Лена (содержание)
l = lcase (середина (содержание, i, 5))
Если l = <br/> тогда
TS = TS+1
Конец, если
l = lcase (середина (содержание, i, 4))
Если l = <br> тогда
TS = TS+1
Конец, если
l = lcase (середина (содержание, i, 3))
Если l = <p> then
TS = TS+1
Конец, если
Если ts> contentnums, то выйдите для
Следующий
Если ts> contentnums, то
Контент = слева (контент, i-1)
Конец, если
Splitlines = Content
Конечная функция
'**************************************************
'Cut Content - Split по персонажу
'**************************************************
Функция Cutstr (Byval Str, Byval Strlen)
Dim L, T, C, i
Если isnull (str), то cutstr =: exit function
l = Len (str)
Strlen = int (strlen)
t = 0
Для i = 1 до l
c = ASC (Mid (Str, I, 1))
Если c <0 или c> 255, то t = t+2 else t = t+1
Если t> = strlen тогда
Cutstr = слева (str, i) ...
Выход для
Еще
Cutstr = str
Конец, если
Следующий
Конечная функция
'**************************************************
'Удалить эталонный тег
'**************************************************
Функция delquote (strcontent)
Если isnull (strcontent), то выход функции
Dim Re
Установите RE = новая режима
re.ignorecase = true
re.global = true
re.pattern =/[QUOTE /^(.TSu
strcontent = re.replace (strcontent,)
re.pattern =/[Quote = (. [^/]]*)/] (. [^/]]*?)/[// QUOTE/]]]*?)/[// QUOTE/]
strcontent = re.replace (strcontent,)
Установить re = ничего
Delquote = strcontent
Конечная функция
'**************************************************
'Получить клиент IP
'**************************************************
функция getip ()
Dim Strip, ip_ary, Strip_list
strip_list = replace (request.servervariables (http_x_forwarded_for), ',)
Если instr (strip_list ,,) <> 0 тогда
Ip_ary = split (strip_list ,,)
strip = ip_ary (0)
Еще
strip = strip_list
Конец, если
Если полоска = пусто, затем полоска = заменить (request.servervariables (remote_addr), ',)
getip = полоса
Конечная функция
Эта статья собирается и составлена по дизайну дома
'**************************************************
'Получить информацию о браузере клиента
'**************************************************
Функция getBrowser (Strua)
Dim arrinfo, strtype, temp1, temp2
strtype =
strua = lcase (strua)
arrinfo = массив (Unkown, Unkown)
'Суждение браузера
Если instr (strua, mozilla)> 0, то arrinfo (0) = mozilla
Если instr (strua, icab)> 0, то arrinfo (0) = icab
Если instr (strua, lynx)> 0, то arrinfo (0) = lynx
Если instr (strua, links)> 0, то arrinfo (0) = ссылки
Если instr (strua, elinks)> 0, то arrinfo (0) = eLinks
Если instr (strua, jbrowser)> 0, то arrinfo (0) = jbrowser
Если instr (strua, konqueror)> 0, то arrinfo (0) = konqueror
Если instr (strua, wget)> 0, то arrinfo (0) = wget
Если instr (strua, спросить Jeeves)> 0 или instr (strua, teoma)> 0, то arrinfo (0) = спросить Jeeves/teoma
Если instr (strua, wget)> 0, то arrinfo (0) = wget
Если instr (strua, opera)> 0, то arrinfo (0) = Opera
Если instr (strua, gecko)> 0 тогда
strtype = [гекко]
arrinfo (0) = mozilla
Если instr (strua, aol)> 0, то arrinfo (0) = aol
Если instr (strua, netscape)> 0, то arrinfo (0) = netscape
Если instr (strua, firefox)> 0, то arrinfo (0) = Firefox
Если instr (strua, chimera)> 0, то arrinfo (0) = химера
Если instr (strua, camino)> 0, то arrinfo (0) = camineo
Если instr (strua, galeon)> 0, то Arrinfo (0) = Galeon
Если instr (strua, k-meleon)> 0, то arrinfo (0) = k-meleon
arrinfo (0) = arrinfo (0)+strtype
конец, если
Если instr (strua, bot)> 0 или instr (strua, crawl)> 0 тогда
strtype = [bot/crawler]
arrinfo (0) =
Если instr (strua, grub)> 0, то arrinfo (0) = Grub
Если instr (strua, googlebot)> 0, то arrinfo (0) = Googlebot
Если instr (strua, msnbot)> 0, то arrinfo (0) = msn bot
Если instr (strua, slurp)> 0, то arrinfo (0) = yahoo! Нанести
arrinfo (0) = arrinfo (0)+strtype
конец, если
Если instr (strua, applewebkit)> 0 тогда
strtype = [AppleWebkit]
arrinfo (0) =
Если instr (strua, omniweb)> 0, то arrinfo (0) = omniweb
Если instr (strua, safari)> 0, то arrinfo (0) = safari
arrinfo (0) = arrinfo (0)+strtype
конец, если
Если instr (strua, msie)> 0 тогда
strtype = [msie
temp1 = mid (strua, (instr (strua, msie) +4), 6)
temp2 = instr (temp1,;)
temp1 = слева (Temp1, Temp2-1)
strtype = strtype & temp1]
Arrinfo (0) = Internet Explorer
Если instr (strua, msn)> 0, то arrinfo (0) = msn
Если instr (strua, aol)> 0, то arrinfo (0) = aol
Если instr (strua, webtv)> 0, то arrinfo (0) = webtv
Если instr (strua, myie2)> 0, то arrinfo (0) = myie2
Если instr (strua, maxthon)> 0, то arrinfo (0) = maxthon
Если instr (strua, gosurf)> 0, то arrinfo (0) = gosurf
Если instr (strua, netcaptor)> 0, то arrinfo (0) = netcaptor
Если instr (strua, sleipnir)> 0, то arrinfo (0) = sleipnir
Если instr (strua, avant browser)> 0, то arrinfo (0) = Avantbrowser
Если instr (strua, greenbrowser)> 0, то arrinfo (0) = greenbrowser
Если instr (strua, slimbrowser)> 0, то arrinfo (0) = slimbrowser
arrinfo (0) = arrinfo (0)+strtype
конец, если
'Операционная система суждения
Если instr (strua, windows)> 0, то arrinfo (1) = windows
Если instr (strua, windows ce)> 0, то arrinfo (1) = windows ce
Если instr (strua, windows 95)> 0, то Arrinfo (1) = Windows 95
Если instr (strua, win98)> 0, то Arrinfo (1) = Windows 98
Если instr (strua, windows 98)> 0, то Arrinfo (1) = Windows 98
Если instr (strua, windows 2000)> 0, то arrinfo (1) = Windows 2000
Если instr (strua, windows xp)> 0, то arrinfo (1) = windows xp
Если instr (strua, windows nt)> 0, тогда
Arrinfo (1) = Windows nt
Если instr (strua, windows nt 5.0)> 0, то Arrinfo (1) = Windows 2000
Если instr (strua, windows nt 5.1)> 0, то arrinfo (1) = windows xp
Если instr (strua, windows nt 5.2)> 0, то arrinfo (1) = Windows 2003
конец, если
Если instr (strua, x11)> 0 или instr (strua, unix)> 0, то arrinfo (1) = unix
Если instr (strua, sunos)> 0 или instr (strua, sun os)> 0, то arrinfo (1) = sun os
Если instr (strua, powerpc)> 0 или instr (strua, ppc)> 0, то arrinfo (1) = powerpc
Если instr (strua, macintosh)> 0, то arrinfo (1) = mac
Если instr (strua, mac osx)> 0, то arrinfo (1) = macosx
Если instr (strua, freebsd)> 0, то arrinfo (1) = freebsd
Если instr (strua, linux)> 0, то arrinfo (1) = linux
Если instr (strua, palmsource)> 0 или instr (strua, palmos)> 0, то arrinfo (1) = palmos
Если instr (strua, wap)> 0, то arrinfo (1) = wap
'arrinfo (0) = strua
getBrowser = arrinfo
конечная функция
'**************************************************
'Вычисление случайных чисел
'**************************************************
Функция randomstr (intlength)
Dim Strseed, Seedlength, POS, STR, i
strseed = abcdefghijklmnopqrstuvwxyz1234567890
Seedlength = Len (strseed)
str =
Рандомизировать
для i = 1 на Intlength
str = str+mid (strseed, int (seedlength*rnd) +1,1)
следующий
randomstr = str
конечная функция
'**************************************************
'Автоматически закрыл UBB
'**************************************************
Функция BloseUBB (StrContent)
Dim Arrtags, I, OpenPos, ClosePos, Re, Strmatchs, J, Match
Установите RE = новая режима
re.ignorecase = true
re.global = true
arrtags = массив (код, цитата, список, цвет, выравнивание, шрифт, размер, B, I, U, HTML)
для i = 0 до ubund (arrtags)
OpenPOS = 0
Closepos = 0
re.pattern =/[+arrtags (i)+(= [^/[/]]+|)/]
Установить strmatchs = re.execute (strcontent)
Для каждого матча в Strmatchs
OpenPOS = OpenPOS+1
следующий
re.pattern =/[/+arrtags (i)+/]
Установить strmatchs = re.execute (strcontent)
Для каждого матча в Strmatchs
ClosePos = rolepos+1
следующий
для j = 1 для OpenPos-Closepos
strcontent = strcontent+[/+arrtags (i)+]
следующий
следующий
BloseUbb = strcontent
конечная функция
'**************************************************
'Автоматически закрыть HTML
'**************************************************
Функция CloseHtml (strContent)
Dim Arrtags, I, OpenPos, ClosePos, Re, Strmatchs, J, Match
Установите RE = новая режима
re.ignorecase = true
re.global = true
arrtags = массив (P, Div, Span, Table, UL, Font, B, U, I, H1, H2, H3, H4, H5, H6)
для i = 0 до ubund (arrtags)
OpenPOS = 0
Closepos = 0
re.pattern =/<+arrtags (i)+([^/</>]+|)/
Установить strmatchs = re.execute (strcontent)
Для каждого матча в Strmatchs
OpenPOS = OpenPOS+1
следующий
re.pattern =/</+arrtags (i)+//>
Установить strmatchs = re.execute (strcontent)
Для каждого матча в Strmatchs
ClosePos = rolepos+1
следующий
для j = 1 для OpenPos-Closepos
strcontent = strcontent+</+arrtags (i)+>
следующий
следующий
closehtml = strcontent
конечная функция
'**************************************************
'Прочтите файл
'**************************************************
Function LoadFromFile (byval файл)
Dim objstream
Dim Rtext
Rtext = массив (0,)
При ошибке резюме следующим
Установить objstream = server.createObject (adodb.stream)
Если ошибка, тогда
Rtext = array (err.number, err.description)
LoadFromFile = rtext
Err.clear
Выходная функция
Конец, если
С Objstream
.Type = 2
.Mode = 3
.Открыть
.CHARSET = UTF-8
.Position = objstream.size
.Loadfromfile server.mappath (файл)
Если err.number <> 0, тогда
Rtext = array (err.number, err.description)
LoadFromFile = rtext
Err.clear
Выходная функция
Конец, если
Rtext = array (0, .ReadText)
.Закрывать
Закончить с
LoadFromFile = rtext
Установить objstream = ничего
Конечная функция
'**************************************************
'Сохраните файл
'**************************************************
Функция Savetofile (Byval Strbody, File Byval)
Dim objstream
Dim Rtext
Rtext = массив (0,)
При ошибке резюме следующим
Установить objstream = server.createObject (adodb.stream)
Если ошибка, тогда
Rtext = array (err.number, err.description)
Err.clear
Выходная функция
Конец, если
С Objstream
.Type = 2
.Открыть
.CHARSET = UTF-8
.Position = objstream.size
.WriteText = strbody
.Savetofile server.mappath (файл), 2
.Закрывать
Закончить с
Rtext = array (0, успешно сохранить файл!)
Savetofile = rtext
Установить objstream = ничего
Конечная функция
'**************************************************
'Операция модификации домена
'**************************************************
Функция dbquest (таблица, dbarray, действие)
Dim AddCount, Tempdb, i, v
Если действие <> вставка или действие <> обновление, тогда
Если action = вставьте, то v = 2 else v = 3
Если нет, isarray (dbarray), тогда
Dbquest = -1
Выходная функция
еще
Set tempdb = server.createObject (adodb.recordset)
При ошибке резюме следующим
Tempdb.open Table, Conn, 1, v
Если ошибка, тогда
Dbquest = -2
Выходная функция
конец, если
Если action = вставьте, то tempdb.addnew
AddCount = ubound (dbarray, 1)
для i = 0, чтобы добавить
Tempdb (dbarray (i) (0)) = dbarray (i) (1)
следующий
Tempdb.update
Tempdb.close
Установите tempdb = ничего
Dbquest = 0
конец, если
конечная функция
'**************************************************
'Проверьте, установлены ли компоненты системы
'**************************************************
Функция CheckObjinStalled (strClassString)
При ошибке резюме следующим
Dim Temp
Err = 0
Dim tmpobj
Установить tmpobj = server.createObject (strclassstring)
TEMP = ERR
Если temp = 0 или temp = -2147221477 тогда
CheckObjinstalled = true
Elseif temp = 1 или temp = -2147221005 тогда
CheckObjinStalled = false
Конец, если
Err.clear
Установить tmpobj = ничего
Err = 0
Конечная функция
'**************************************************
'Сервер судьи Microsoft.xmldom
'**************************************************
Функция getXmldom
При ошибке резюме следующим
Dim Temp
getxmldom = microsoft.xmldom
Err = 0
Dim tmpobj
Установить tmpobj = server.createObject (getXmldom)
TEMP = ERR
Если Temp = 1 или Temp = -2147221005 тогда
getxmldom = msxml2.domdocument.5.0
Конец, если
Err.clear
Установить tmpobj = ничего
Err = 0
конечная функция
'**************************************************
'Suder Server MSXML2.serverxmlhttp
'**************************************************
Функция getxmlhttp
При ошибке резюме следующим
Dim Temp
getxmlhttp = msxml2.serverxmlhttp
Err = 0
Dim tmpobj
Установить tmpobj = server.createObject (getXmlhttp)
TEMP = ERR
Если Temp = 1 или Temp = -2147221005 тогда
getxmlhttp = msxml2.serverxmlhttp.5.0
Конец, если
Err.clear
Установить tmpobj = ничего
Err = 0
конечная функция
'**************************************************
'Фильтрация ключевых слов мусора
'**************************************************
Функциональный фильтровпам (STR, PATH)
при ошибке резюме следующим
Filterspam = false
Dim spamxml, спамитом
Установить spamxml = server.createObject (getXmldom)
Если ошибка, тогда
Err.clear
Выходная функция
конец, если
spamxml.async = false
spamxml.load (server.mappath (path))
Если spamxml.parseerror.errorcode = 0 then
Для каждого спамитом в spamxml.selectnodes (// ключ)
Если instr (lcase (str), lcase (spamitem.text)) <> 0 then
Filterspam = true
Выходная функция
конец, если
следующий
конец, если
SET SPAMXML = ничего
конечная функция
'*****************************************************
«Цель: проверьте обычную форму
'Введите: ID
'Return: успех правда
'*****************************************************
Function CheckRegexp (источник, пункт)
Если para = [имя пользователя], то
para =^[. a-za-z0-9/u4e00-/u9fa5]+
Конец, если
Если para = [пароль] тогда
para =^[a-z0-9]+
Конец, если
Если para = [электронная почта], то
para =^([0-9a-za-z] ([-./w]*[0-9a-za-z])*@([0-9a-za-z] [-/w]*/.)+[a-za-z]*)
Конец, если
Если para = [домашняя страница], то
para =^[a-za-z]+: // [a-za-z0-9 /-/./]+?/*
Конец, если
Если para = [nojapan], то
para = [/u3040-/u30ff]+
Конец, если
Если para = [guid] тогда
para =^/w {8}/-/w {4}/-/w {4}/-/w {4}/-/w {4}/-/w {12}
Конец, если
Dim Re
SET RE = новая режима
re.global = true
re.pattern = para
re.ignorecase = false
CheckRegexp = re.test (источник)
Конечная функция
'***********************************************
'Получите количество людей в Интернете
'***********************************************
Функция getOnline
getOnline = 1
Если Len (Application (space_cookiename_onlinecount))> 0 затем
Если Datediff (s, Application (space_cookiename_useronlineCounttime), теперь ())> 60 тогда
Application.lock ()
Application (space_cookiename_online) = Application (space_cookiename_onlinecount)
Application (space_cookiename_onlinecount) = 1
Application (space_cookiename_onlinecountkey) = Randstr (2)
Application (space_cookiename_useronlineCounttime) = теперь ()
Application.unlock ()
еще
Если Session (Space_CookiEnameUserOnlineKey) <> Application (SPACE_COUKIENAME_ONLINECOUNTKEY)
Application.lock ()
Application (space_cookiename_onlinecount) = Application (space_cookiename_onlinecount) +1
Application.unlock ()
SESSION (SPACE_COUKIENAMEUSERONLINEKEY) = Приложение (SPACE_COUKIENAME_ONLINECOUNTKEY)
конец, если
конец, если
еще
Application.lock
Приложение (space_cookiename_online) = 1
Application (space_cookiename_onlinecount) = 1
Application (space_cookiename_onlinecountkey) = Randstr (2)
Application (space_cookiename_useronlineCounttime) = теперь ()
Application.unlock
конец, если
getOnline = Application (space_cookiename_online)
конечная функция
%>
Эта статья собирается и составлена по дизайну дома
Поделиться: ASP экспортирует данные из базы данных в таблицу Excel Код экземпляра ASP непосредственно экспортирует данные в базе данных в электронную таблицу Excel. !-#Включите файл = ../conn.asp-- % dim s, sql, имя файла, fs, myfile, x set fs = server.createobject (scripting.filesystemobject) '-Отделение вы хотите, чтобы сгенерированный файл Excel был сохранен следующим образом FileName = Server.