推奨：データベース値が空であるかどうかを判断するためのASPの一般的な関数さまざまなフィールドの特性が異なるため、フィールドが空であるかどうかを判断する方法も異なります。以下は一般的な機能であり、フィールドタイプの痛みを回避します。 「変数をチェックしてください空の関数isblank（byref tempvar）」デフォルトでは、それが空白ではないと仮定しますisblank = fals
ASP開発における有用な機能のコレクションは非常に便利です。それを維持してください！
'**********************************
'カットコンテンツ - ラインごとに分割します
'**********************************
関数splitlines（byvalコンテンツ、byval contentnums）
dim ts、i、l
contentnums = int（contentnums）
isnull（content）の場合、機能を終了します
i = 1
TS = 0
i = 1 to len（content）
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の場合は、entsを終了します
次
ts> contentnumsの場合
content = left（content、i-1）
ifを終了します
splitlines = content
エンド関数
'**********************************
'カットコンテンツ - 文字ごとに分割されます
'**********************************
関数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 = left（str、i）...
の出口
それ以外
cutstr = str
ifを終了します
次
エンド関数
'**********************************
'参照タグを削除します
'**********************************
function delquote（strcontent）
isnull（strcontent）の場合、機能を終了します
dim re
re = new regexpを設定します
re.ignorecase = true
re.global = true
re.pattern =/[QUOTE/] (. [^/]*?)///ote/]
strcontent = re.replace（strcontent、）
re.pattern =/[quote =（。[^/]]*）/]（。[^/]]*？）/[// quote/]]*？）/[// quote/]
strcontent = re.replace（strcontent、）
re =何も設定しません
delquote = strcontent
エンド関数
'**********************************
'クライアントIPを取得します
'**********************************
関数getIp（）
Dim Strip、IP_ary、Strip_List
sprip_list = lepter（request.servervariables（http_x_forwarded_for）、 '、）
if strunt（strip_list ,,）<> 0 then
ip_ary = split（strip_list ,,）
ストリップ= ip_ary（0）
それ以外
strip = strip_list
ifを終了します
ストリップ=空の場合、ストリップ=交換（request.servervariables（remote_addr）、 '、）
getIP =ストリップ
エンド関数
この記事は、Design Homeによって収集され、編集されています
'**********************************
'クライアントブラウザ情報を取得します
'**********************************
関数getBrowser（strua）
Dim Arrinfo、Strtype、Temp1、Temp2
strtype =
strua = lcase（strua）
arrinfo = array（unkown、unkown）
'ブラウザの判断
If strua（strua、mozilla）> 0の場合、Arrinfo（0）= Mozilla
If strua（strua、icab）> 0の場合、arrinfo（0）= icab
If strua（strua、lynx）> 0の場合、arrinfo（0）= lynx
If strua（strua、links）> 0の場合、arrinfo（0）= links
If strua（strua、Elinks）> 0の場合、Arrinfo（0）= Elinks
If strua（strua、jbrowser）> 0の場合、arrinfo（0）= jbrowser
If stru（strua、konqueror）> 0の場合、arrinfo（0）= konqueror
If strua（strua、wget）> 0の場合、arrinfo（0）= wget
If strua（strua、ask jeeves）> 0またはstrua（strua、teoma）> 0の場合、arrinfo（0）= Jeeves/teomaを尋ねます
If strua（strua、wget）> 0の場合、arrinfo（0）= wget
If strua（strua、opera）> 0の場合、Arrinfo（0）= Opera
If strua（strua、gecko）> 0 then
strtype = [gecko]
Arrinfo（0）= Mozilla
If strua（strua、aol）> 0の場合、arrinfo（0）= aol
If strua（strua、netscape）> 0の場合、arrinfo（0）= netscape
If strua（strua、firefox）> 0の場合、arrinfo（0）= firefox
If strua（strua、chimera）> 0の場合、Arrinfo（0）= Chimera
If strua（strua、camino）> 0の場合、arrinfo（0）= camineo
If strua（strua、galeon）> 0の場合、Arrinfo（0）= Galeon
If strua（strua、k-meleon）> 0の場合、arrinfo（0）= k-meleon
arrinfo（0）= arrinfo（0）+strtype
ifを終了します
IF IF IF IF IF IF IF If If If IF> 0またはINSTRUS（Strua、Crawl）> 0
strype = [bot/crawler]
Arrinfo（0）=
If strua（strua、grub）> 0の場合、arrinfo（0）= grub
If strua（strua、googlebot）> 0 then arrinfo（0）= googlebot
If strua（strua、msnbot）> 0の場合、arrinfo（0）= msn bot
If strua（strua、slurp）> 0の場合、arrinfo（0）= yahoo！丸
arrinfo（0）= arrinfo（0）+strtype
ifを終了します
If strua（strua、applewebkit）> 0
strtype = [applewebkit]
Arrinfo（0）=
If stru（strua、omniweb）> 0の場合、arrinfo（0）= omniweb
If stru（strua、safari）> 0の場合、arrinfo（0）= safari
arrinfo（0）= arrinfo（0）+strtype
ifを終了します
If strua（strua、msie）> 0
strtype = [msie
temp1 = mid（strua、（strua、msie）+4）、6）
temp2 = strust（temp1、;）
Temp1 =左（TEMP1、TEMP2-1）
strtype = strtype＆temp1]
Arrinfo（0）= Internet Explorer
If strua（strua、msn）> 0の場合、arrinfo（0）= msn
If strua（strua、aol）> 0の場合、arrinfo（0）= aol
If strua（strua、webtv）> 0の場合、arrinfo（0）= webtv
If strua（strua、myie2）> 0の場合、arrinfo（0）= myie2
If strua（Strua、Maxthon）> 0の場合、Arrinfo（0）= Maxthon
If strua（strua、gosurf）> 0の場合、arrinfo（0）= gosurf
If strua（strua、netcaptor）> 0の場合、arrinfo（0）= netcaptor
If strua（strua、seleipnir）> 0の場合、arrinfo（0）= seepnir
If strua（strua、avant browser）> 0 then arrinfo（0）= avantbrowser
If strua（strua、greenbrowser）> 0 then arrinfo（0）= greenbrowser
If strua（strua、slimbrowser）> 0の場合、arrinfo（0）= slimbrowser
arrinfo（0）= arrinfo（0）+strtype
ifを終了します
'オペレーティングシステムの判断
If stru（strua、windows）> 0の場合、arrinfo（1）= windows
If strua（strua、windows ce）> 0の場合、arrinfo（1）= windows ce
If strua（strua、windows 95）> 0の場合、Arrinfo（1）= Windows 95
If strua（strua、win98）> 0の場合、Arrinfo（1）= Windows 98
If strua（strua、windows 98）> 0の場合、Arrinfo（1）= Windows 98
If strua（strua、windows 2000）> 0の場合、Arrinfo（1）= Windows 2000
If strua（strua、windows xp）> 0の場合、arrinfo（1）= windows xp
IF IF IF（Strua、Windows NT）> 0次に
arrinfo（1）= windows nt
If strua（strua、windows nt 5.0）> 0の場合、arrinfo（1）= windows 2000
If strua（strua、windows nt 5.1）> 0の場合、arrinfo（1）= windows xp
If strua（strua、windows nt 5.2）> 0の場合、Arrinfo（1）= Windows 2003
ifを終了します
If strua（strua、x11）> 0またはstrua、unix）> 0の場合、arrinfo（1）= unix
If stru（strua、sunos）> 0またはstrua（strua、sun os）> 0の場合、arrinfo（1）= sun os
If strua（strua、powerpc）> 0またはstrua、ppc）> 0の場合、arrinfo（1）= powerpc
If strua（strua、macintosh）> 0の場合、arrinfo（1）= mac
If strua（strua、mac osx）> 0の場合、arrinfo（1）= macosx
If strua（strua、freebsd）> 0の場合、arrinfo（1）= freebsd
If strua（strua、linux）> 0の場合、arrinfo（1）= linux
If strua（strua、palmsource）> 0またはstrua、palmos）> 0の場合、arrinfo（1）= palmos
If strua（strua、wap）> 0の場合、arrinfo（1）= wap
'arrinfo（0）= strua
getBrowser = arrinfo
エンド関数
'**********************************
'乱数を計算します
'**********************************
関数randomstr（intlength）
薄暗いstreseed、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を閉じました
'**********************************
function closeubb（strcontent）
dim arrtags、i、openpos、closepos、re、strmatchs、j、mate
re = new regexpを設定します
re.ignorecase = true
re.global = true
arrtags = array（code、quote、list、color、align、font、size、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、mate
re = new regexpを設定します
re.ignorecase = true
re.global = true
arrtags = array（p、div、span、table、ul、font、b、u、u、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ファイル）
DIM OBJSTREAM
dim rtext
rtext = array（0、）
エラーの再開時に次に再開します
objstream = server.createobject（adodb.stream）を設定します
エラーの場合
rtext = array（err.number、err.description）
loadfromfile = rtext
err.clear
出口機能
ifを終了します
objstreamで
.type = 2
.mode = 3
。開ける
.charset = utf-8
.position = objstream.size
.loadfromfile server.mappath（file）
err.number <> 0の場合
rtext = array（err.number、err.description）
loadfromfile = rtext
err.clear
出口機能
ifを終了します
rtext = array（0、.readText）
。近い
で終わります
loadfromfile = rtext
objstream = Nothingを設定します
エンド関数
'**********************************
'ファイルを保存します
'**********************************
function savetofile（byval strbody、byvalファイル）
DIM OBJSTREAM
dim rtext
rtext = array（0、）
エラーの再開時に次に再開します
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（file）、2
。近い
で終わります
rtext = array（0、ファイルを正常に保存してください！）
savetofile = rtext
objstream = Nothingを設定します
エンド関数
'**********************************
'ドメイン追加修正操作
'**********************************
関数dbquest（表、dbarray、アクション）
dim addcount、tempdb、i、v
アクション<>挿入またはアクション<>更新の場合、アクション=挿入します
アクション=挿入の場合、V = 2 else v = 3
ISARRAY（DBARRAY）ではない場合
dbquest = -1
出口機能
それ以外
set tempdb = server.createObject（adodb.RecordSet）
エラーの再開時に次に再開します
tempdb.openテーブル、conn、1、v
エラーの場合
dbquest = -2
出口機能
ifを終了します
action =挿入の場合、tempdb.addnew
addcount = ubound（dbarray、1）
i = 0の場合は、addcountになります
tempdb（dbarray（i）（0））= dbarray（i）（1）
次
tempdb.update
tempdb.close
set tempdb = Nothing
dbquest = 0
ifを終了します
エンド関数
'**********************************
'システムコンポーネントがインストールされているかどうかを確認してください
'**********************************
function checkobjinstalled（strclassstring）
エラーの再開時に次に再開します
薄暗い温度
err = 0
dim tmpobj
tmpobj = server.createobject（strclassstring）を設定します
temp = err
temp = 0またはtemp = -2147221477の場合
Checkobjinstalled = true
Elseif temp = 1またはtemp = -2147221005次に
checkobjinstalled = false
ifを終了します
err.clear
tmpobj =何も設定しません
err = 0
エンド関数
'**********************************
'Server Microsoft.xmldom判事
'**********************************
関数getXmldom
エラーの再開時に次に再開します
薄暗い温度
getxmldom = microsoft.xmldom
err = 0
dim tmpobj
tmpobj = server.createObject（getXmldom）を設定します
temp = err
temp = 1またはtemp = -2147221005の場合
getXmldom = msxml2.domdocument.5.0
ifを終了します
err.clear
tmpobj =何も設定しません
err = 0
エンド関数
'**********************************
'Server msxml2.serverxmlhttpを判断します
'**********************************
関数getxmlhttp
エラーの再開時に次に再開します
薄暗い温度
getXmlhttp = msxml2.serverxmlhttp
err = 0
dim tmpobj
tmpobj = server.createObject（getXmlhttp）を設定します
temp = err
temp = 1またはtemp = -2147221005の場合
getXmlhttp = msxml2.serverxmlhttp.5.0
ifを終了します
err.clear
tmpobj =何も設定しません
err = 0
エンド関数
'**********************************
'ガベージキーワードフィルタリング
'**********************************
functionfilterspam（str、path）
エラーの再開時に次に再開します
filterspam = false
dim spamxml、spamitem
spamxml = server.createObject（getXmldom）を設定します
エラーの場合
err.clear
出口機能
ifを終了します
spamxml.async = false
spamxml.load（server.mappath（path））
spamxml.parseerror.errorcode = 0の場合
spamxml.selectnodes（// key）の各spamitemについて
If strust（lcase（str）、lcase（spamitem.text））<> 0 thenの場合
filterspam = true
出口機能
ifを終了します
次
ifを終了します
SPAMXML =何も設定しません
エンド関数
'*******************************************************
'目的：通常のフォームを確認してください
'入力：id
'戻り：成功は真実です
'*******************************************************
関数checkregexp（ソース、パラ）
para = [username]の場合
para =^[。a-za-z0-9/u4e00-/u9fa5]+
ifを終了します
para = [パスワード]の場合
para =^[a-z0-9]+
ifを終了します
para = [email]の場合
para =^（[0-9a-za-z]（[ - 。/w]*[0-9a-za-z]）*@（[0-9a-za-z] [ - /w]*/。）+[a-za-z]*）
ifを終了します
para = [Homepage]の場合
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を終了します
dim re
re = new regexpを設定します
re.global = true
re.pattern = para
re.ignorecase = false
checkregexp = re.test（source）
エンド関数
'*********************************************
'オンラインで人数を入手してください
'*********************************************
関数getonline
getOnline = 1
len（application（space_cookiename_onlinecount））> 0の場合
datediff（s、application（space_cookiename_useronlinecounttime）、now（））> 60の場合
application.lock（）
アプリケーション（space_cookiename_online）= application（space_cookiename_onlinecount）
Application（space_cookiename_onlinecount）= 1
アプリケーション（space_cookiename_onlinecountkey）= randstr（2）
Application（space_cookiename_useronlinecounttime）= now（）
application.unlock（）
それ以外
session（space_cookienameuseronkey）<> application（space_cookiename_onlinecountkey）
application.lock（）
Application（space_cookiename_onlinecount）= application（space_cookiename_onlinecount）+1
application.unlock（）
session（space_cookienameuseronlinekey）= application（space_cookiename_onlinecountkey）
ifを終了します
ifを終了します
それ以外
Application.Lock
Application（space_cookiename_online）= 1
Application（space_cookiename_onlinecount）= 1
アプリケーション（space_cookiename_onlinecountkey）= randstr（2）
Application（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.filesemstemobject） ' - 生成されたexcelファイルを次のように保存する必要があるsuppose filename = server。