권장 : 데이터베이스 값이 비어 있는지 확인하는 ASP의 일반 기능 다양한 필드의 다른 특성으로 인해 필드가 비어 있는지 확인하는 방법도 다릅니다. 다음은 일반적인 기능으로 필드 유형의 통증을 피합니다. '변수가 비어있는 기능이 아닌 기능 isblank (byref tempvar)'기본적으로 blank isblank = false '라고 가정하십시오.
ASP 개발에서 유용한 기능 모음이 매우 유용합니다. 보관하십시오!
'**************************************
'내용 자르기 - 라인별로 분할
'**************************************
기능 분할 라인 (Byval Content, Byval ContentNums)
dim ts, i, l
contentNums = int (contentNums)
iSnull (컨텐츠)이면 함수를 종료하십시오
i = 1
TS = 0
i = 1 to len (콘텐츠)
l = lcase (mid (content, i, 5))
L = <br/>라면
ts = ts+1
끝 If
l = lcase (mid (content, i, 4))
L = <br>이면
ts = ts+1
끝 If
l = lcase (mid (content, i, 3))
L = <p>라면
ts = ts+1
끝 If
ts> contentnums라면 종료하십시오
다음
ts> contentnums라면
content = left (content, i-1)
끝 If
SplitLines = 내용
엔드 기능
'**************************************
'내용 자르기 - 문자별로 분할
'**************************************
기능 컷스트스트 (Byval str, byval strlen)
Dim L, T, C, i
iSnull (str)이면 cutstr = : 종료 함수
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
끝 If
다음
엔드 기능
'**************************************
'참조 태그를 삭제하십시오
'**************************************
기능 delquote (strcontent)
iSnull (strcontent)이면 함수를 종료하십시오
희미한 re
RE = New Regexp를 설정합니다
re.ignorecase = true
re.global = true
re.pattern =/[QUOTE/](. 1^/ ]* ??)/ 9 QUOTE/]
strcontent = re.replace (strcontent,)
re.pattern =/[QUOTE = (. [^/]]*)/] (. [^/]]*?)/[// QUOTE/]]*?)/[// QUOTE/]
strcontent = re.replace (strcontent,)
RE = 아무것도 설정하지 않습니다
delquote = strcontent
엔드 기능
'**************************************
'클라이언트 IP를 얻으십시오
'**************************************
함수 getip ()
딤 스트립, ip_ary, strip_list
strip_list = replace (request.servervariables (http_x_forwarded_for), ',)
악기 (strip_list,) <> 0이면
ip_ary = split (strip_list ,,)
Strip = ip_ary (0)
또 다른
Strip = strip_list
끝 If
strip = 비어있는 경우 strip = replace (request.servervariables (remote_addr), ',)
getip = 스트립
엔드 기능
이 기사는 Design Home에 의해 수집되고 편집됩니다
'**************************************
'클라이언트 브라우저 정보를 얻으십시오
'**************************************
기능 getBrowser (strua)
Dim Arrinfo, strtype, temp1, temp2
strtype =
strua = lcase (strua)
arrinfo = 배열 (Unkown, Unkown)
'브라우저 판단
악기 (Strua, Mozilla)> 0 인 경우 Arrinfo (0) = Mozilla
악기 (strua, icab)> 0 인 경우 arrinfo (0) = icab
악기 (strua, lynx)> 0 인 경우 arrinfo (0) = lynx
악기 (strua, links)> 0 인 경우 arrinfo (0) = 링크
악기 (strua, elinks)> 0 인 경우 arrinfo (0) = elinks
악기 (strua, jbrowser)> 0 인 경우 arrinfo (0) = jbrowser
악기 (Strua, Konqueror)> 0 인 경우 Arrinfo (0) = Konqueror
악기 (strua, wget)> 0 인 경우 arrinfo (0) = wget
악기 (strua, jeeves)> 0 또는 악기 (Strua, teoma)> 0이면 arrinfo (0) = jeeves/teoma를 물어보십시오
악기 (strua, wget)> 0 인 경우 arrinfo (0) = wget
악기 (strua, opera)> 0 인 경우 arrinfo (0) = 오페라
악기 (strua, gecko)> 0이면
strtype = [Gecko]
Arrinfo (0) = Mozilla
악기 (strua, aol)> 0 인 경우 arrinfo (0) = aol
악기 (strua, netscape)> 0 인 경우 arrinfo (0) = netscape
악기 (strua, firefox)> 0 인 경우 Arrinfo (0) = Firefox
악기 (strua, chimera)> 0이면 Arrinfo (0) = Chimera
악기 (strua, camino)> 0 인 경우 arrinfo (0) = camineo
악기 (strua, galeon)> 0이면 Arrinfo (0) = galeon
악기 (strua, k-meleon)> 0이면 Arrinfo (0) = k-meleon
arrinfo (0) = arrinfo (0)+strtype
끝 If
악기 (strua, bot)> 0 또는 악기 (strua, crawl)> 0 인 경우
strtype = [봇/크롤러]
Arrinfo (0) =
악기 (strua, grub)> 0 인 경우 arrinfo (0) = grub
악기 (strua, googlebot)> 0 인 경우 arrinfo (0) = GoogleBot
악기 (strua, msnbot)> 0 인 경우 arrinfo (0) = msn bot
악기 (strua, slurp)> 0 인 경우 arrinfo (0) = yahoo! 슬러프
arrinfo (0) = arrinfo (0)+strtype
끝 If
악기 (strua, applewebkit)> 0이면
strtype = [Applewebkit]
Arrinfo (0) =
악기 (strua, omniweb)> 0 인 경우 arrinfo (0) = omniweb
악기 (strua, safari)> 0 인 경우 arrinfo (0) = safari
arrinfo (0) = arrinfo (0)+strtype
끝 If
악기 (strua, msie)> 0이면
strtype = [msie
temp1 = mid (strua, (Instrua, msie) +4), 6)
temp2 = inst (temp1,;)
temp1 = 왼쪽 (Temp1, temp2-1)
strtype = strtype & temp1]
Arrinfo (0) = Internet Explorer
악기 (strua, msn)> 0 인 경우 arrinfo (0) = msn
악기 (strua, aol)> 0 인 경우 arrinfo (0) = aol
악기 (strua, webtv)> 0 인 경우 arrinfo (0) = webtv
악기 (strua, myie2)> 0 인 경우 arrinfo (0) = myie2
악기 (strua, maxthon)> 0 인 경우 Arrinfo (0) = Maxthon
악기 (strua, gosurf)> 0 인 경우 arrinfo (0) = gosurf
악기 (strua, netcaptor)> 0 인 경우 arrinfo (0) = netcaptor
악기 (strua, sleipnir)> 0 인 경우 arrinfo (0) = sleipnir
악기 (Strua, Avant Browser)> 0 인 경우 Arrinfo (0) = avantbrowser
악기 (strua, greenbrowser)> 0 인 경우 Arrinfo (0) = Greenbrowser
악기 (strua, slimbrowser)> 0 인 경우 arrinfo (0) = slimbrowser
arrinfo (0) = arrinfo (0)+strtype
끝 If
'운영 체제 판단
악기 (strua, windows)> 0 인 경우 arrinfo (1) = Windows
악기 (strua, windows ce)> 0 인 경우 arrinfo (1) = Windows CE
악기 (Strua, Windows 95)> 0 인 경우 Arrinfo (1) = Windows 95
악기 (strua, win98)> 0 인 경우 arrinfo (1) = Windows 98
악기 (Strua, Windows 98)> 0 인 경우 Arrinfo (1) = Windows 98
악기 (Strua, Windows 2000)> 0 인 경우 Arrinfo (1) = Windows 2000
악기 (strua, windows xp)> 0 인 경우 arrinfo (1) = Windows XP
악기 (strua, Windows nt)> 0이면
Arrinfo (1) = Windows nt
악기 (Strua, Windows NT 5.0)> 0 인 경우 Arrinfo (1) = Windows 2000
악기 (strua, Windows NT 5.1)> 0 인 경우 Arrinfo (1) = Windows Xp
악기 (Strua, Windows NT 5.2)> 0 인 경우 Arrinfo (1) = Windows 2003
끝 If
악기 (strua, x11)> 0 또는 Instr (Strua, unix)> 0 인 경우 Arrinfo (1) = unix
악기 (strua, sunos)> 0 또는 악기 (strua, sun os)> 0 인 경우 Arrinfo (1) = Sun OS
악기 (strua, powerpc)> 0 또는 Instr (strua, ppc)> 0 인 경우 Arrinfo (1) = powerpc
악기 (strua, macintosh)> 0 인 경우 Arrinfo (1) = Mac
악기 (strua, mac osx)> 0 인 경우 arrinfo (1) = macoSx
악기 (strua, freebsd)> 0 인 경우 arrinfo (1) = freebsd
악기 (strua, linux)> 0 인 경우 arrinfo (1) = linux
악기 (strua, palmsource)> 0 또는 악기 (Strua, palmos)> 0 인 경우 Arrinfo (1) = palmos
악기 (strua, wap)> 0 인 경우 arrinfo (1) = wap
'Arrinfo (0) = strua
getBrowser = arrinfo
엔드 기능
'**************************************
'임의 숫자를 계산합니다
'**************************************
함수 randomstr (intlength)
희미한 strseed, 묘목, pos, str, i
strseed = abcdefghijklmnopqrstuvwxyz1234567890
Seclength = Len (strseed)
str =
무작위 화
i = 1에서 intlength의 경우
str = str+mid (strseed, int (seclength*rnd) +1,1)
다음
randomstr = str
엔드 기능
'**************************************
'자동으로 UBB를 닫았습니다
'**************************************
기능 CloseUbb (strcontent)
Dim Arrtags, I, Openpos, Closepos, Re, Strmatchs, J, 일치
RE = New Regexp를 설정합니다
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 = ClosePos+1
다음
j = 1의 경우 Openpos-closepos에
strcontent = strcontent+[/+arrtags (i)+]
다음
다음
CloseUbb = strcontent
엔드 기능
'**************************************
'자동으로 HTML을 닫습니다
'**************************************
기능 closehtml (strcontent)
Dim Arrtags, I, Openpos, Closepos, Re, Strmatchs, J, 일치
RE = New Regexp를 설정합니다
re.ignorecase = true
re.global = true
ARRTAGS = ARRAY (P, DIV, SPAN, 테이블, 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 = ClosePos+1
다음
j = 1의 경우 Openpos-closepos에
strcontent = strcontent+</+arrtags (i)+>
다음
다음
CloseHtml = strcontent
엔드 기능
'**************************************
'파일을 읽으십시오
'**************************************
함수 loadfromfile (byval 파일)
희미한 objstream
희미한 Rtext
rtext = 배열 (0,)
다음에 오류가 재개됩니다
set objstream = server.createobject (adodb.stream)
그렇다면
rtext = array (err.number, err.description)
loadfromfile = rtext
err.clear
종료 기능
끝 If
objstream과 함께
.type = 2
. 모드 = 3
.열려 있는
.CharSet = UTF-8
.Position = objstream.size
.LoadFromFile Server.mappath (파일)
err.number <> 0 인 경우
rtext = array (err.number, err.description)
loadfromfile = rtext
err.clear
종료 기능
끝 If
rtext = 배열 (0, .readText)
.닫다
끝납니다
loadfromfile = rtext
objstream = 아무것도 설정하지 않습니다
엔드 기능
'**************************************
'파일을 저장하십시오
'**************************************
함수 savetofile (byval strody, byval 파일)
희미한 objstream
희미한 Rtext
rtext = 배열 (0,)
다음에 오류가 재개됩니다
set objstream = server.createobject (adodb.stream)
그렇다면
rtext = array (err.number, err.description)
err.clear
종료 기능
끝 If
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 <> 삽입 또는 조치 <> 업데이트 인 경우 action = insert
action = 삽입 한 경우 v = 2 else v = 3입니다
IsArray (dbarray)가 아니라면
dbquest = -1
종료 기능
또 다른
set tempdb = server.createobject (adodb.recordset)
다음에 오류가 재개됩니다
tempdb. Open 테이블, Conn, 1, v
그렇다면
dbquest = -2
종료 기능
끝 If
action = insert 인 경우 tempdb.addnew
addCount = ubound (dbarray, 1)
i = 0의 경우 AddCount
tempdb (dbarray (i) (0)) = dbarray (i) (1)
다음
tempdb.update
tempdb.close
tempdb = 아무것도 설정하지 않습니다
dbquest = 0
끝 If
엔드 기능
'**************************************
'시스템 구성 요소가 설치되어 있는지 확인하십시오
'**************************************
함수 CheckObjinstalled (strclassstring)
다음에 오류가 재개됩니다
희미한 온도
err = 0
희미한 tmpobj
set tmpobj = server.createobject (strclassstring)
온도 = err
temp = 0 또는 temp = -2147221477 인 경우
CheckObjinstalled = true
elseif temp = 1 또는 temp = -2147221005
CheckObjinstalled = false
끝 If
err.clear
tmpobj = 아무것도 설정하지 않습니다
err = 0
엔드 기능
'**************************************
'판사 서버 Microsoft.xmldom
'**************************************
함수 getxmldom
다음에 오류가 재개됩니다
희미한 온도
getxmldom = microsoft.xmldom
err = 0
희미한 tmpobj
set tmpobj = server.createobject (getxmldom)
온도 = err
temp = 1 또는 temp = -2147221005 인 경우
getxmldom = msxml2.dodocument.5.0
끝 If
err.clear
tmpobj = 아무것도 설정하지 않습니다
err = 0
엔드 기능
'**************************************
'판사 서버 msxml2.serverxmlhttp
'**************************************
함수 getxmlhttp
다음에 오류가 재개됩니다
희미한 온도
getxmlhttp = msxml2.serverxmlhttp
err = 0
희미한 tmpobj
set tmpobj = server.createobject (getxmlhttp)
온도 = err
temp = 1 또는 temp = -2147221005 인 경우
getxmlhttp = msxml2.serverxmlhttp.5.0
끝 If
err.clear
tmpobj = 아무것도 설정하지 않습니다
err = 0
엔드 기능
'**************************************
'쓰레기 키워드 필터링
'**************************************
기능 필터 스팸 (str, path)
다음에 오류가 재개됩니다
Filterspam = false
희미한 spamxml, spamitem
spamxml = server.createobject (getxmldom)
그렇다면
err.clear
종료 기능
끝 If
spamxml.async = false
spamxml.load (server.mappath (path))
spamxml.parseerror.errorcode = 0 인 경우
spamxml.selectnodes의 각 spamitem에 대해 (// 키)
인스트르 (lcase (str), lcase (spamitem.text)) <> 0 인 경우
Filterspam = true
종료 기능
끝 If
다음
끝 If
spamxml = 아무것도 설정하지 않습니다
엔드 기능
'*************************************************************
'목적 : 일반 양식을 확인하십시오
'입력 : id
'반환 : 성공은 사실입니다
'*************************************************************
함수 checkregexp (소스, para)
para = [username]이면
para =^[. a-za-z0-9/u4e00-/u9fa5]+
끝 If
para = [password]라면
para =^[a-z0-9]+
끝 If
para = [이메일]이면
para =^([0-9a-za-z] ([-./w]*[0-9a-za-z])*@([0-9a-za-z] [-/w]*/.)+[a-za-z]*)
끝 If
para = [홈페이지]라면
para =^[a-za-z]+: // [a-za-z0-9 /-/./]+?/*
끝 If
para = [nojapan]라면
para = [/u3040-/u30ff]+
끝 If
para = [Guid]라면
para =^/w {8}/-/w {4}/-/w {4}/-/w {4}/-/w {4}/-/w {12}
끝 If
희미한 re
RE = New Regexp를 설정합니다
re.global = true
re.pattern = para
re.ignorecase = false
checkregexp = re.test (소스)
엔드 기능
'***********************************************
'온라인으로 사람들의 수를 얻으십시오
'***********************************************
기능 getonline
getonline = 1
LEN (Application (space_cookiename_onlineecount))> 0 인 경우
datediff (s, application (space_cookiename_useronlinecounttime), now ())> 60
application.lock ()
응용 프로그램 (space_cookiename_online) = 응용 프로그램 (space_cookiename_onlineecount)
응용 프로그램 (space_cookiename_onlineecount) = 1
응용 프로그램 (space_cookiename_onlinecountkey) = randstr (2)
응용 프로그램 (space_cookiename_useronlinecounttime) = now ()
application.unlock ()
또 다른
if session (space_cookienameuseronlinekey) <> application (space_cookiename_onlinecountkey)
application.lock ()
응용 프로그램 (space_cookiename_onlineecount) = application (space_cookiename_onlinecount) +1
application.unlock ()
세션 (space_cookienameuseronlinekey) = 응용 프로그램 (space_cookiename_onlinecountkey)
끝 If
끝 If
또 다른
application.lock
응용 프로그램 (space_cookiename_online) = 1
응용 프로그램 (space_cookiename_onlineecount) = 1
응용 프로그램 (space_cookiename_onlinecountkey) = randstr (2)
응용 프로그램 (space_cookiename_useronlinecounttime) = now ()
application.unlock
끝 If
getonline = application (space_cookiename_online)
엔드 기능
%>
이 기사는 Design Home에 의해 수집되고 편집됩니다
공유 : ASP는 데이터베이스에서 Excel 테이블로 데이터를 내 보냅니다. ASP 인스턴스 코드는 데이터베이스의 데이터를 Excel 스프레드 시트로 직접 내 보냅니다. !-#include file = ../conn.asp-- % dim s, sql, filename, fs, myfile, x set fs = server.createobject (scripting.filesystemobject) '-생성 된 Excel 파일이 다음과 같이 저장되기를 원합니다. filename = server.