SQLデータ接続を開くOLEDB方法
sub opensqlbyoledb
エラーの再開時に次に再開します
conn = server.createObject（adodb.connection）を設定します
conn.open = sqloledb.1;
err.number <> 0の場合
err.clear
Response.write（<div align = 'center'>データベースはエラーに接続されています。管理者に連絡してください！</div>）
Response.End（）
ifを終了します
End Sub
'データベース操作関連関数
'******************************************* ******************************************** ******************************************** ******************************************** ******************************************** ************、***********
'[sub] openreadrs rs、sql、otype
'機能：対応するタイプのデータセットを開き、操作のみを読み取ります
'パラメーター：
'RSオープンRSコレクション
'SQLステートメントが実行されました
'******************************************* ******************************************** ******************************************** ******************************************** ******************************************** ************、***********
sub openreadrs（rs、sql）
ISObject（Rs）ではない場合
rs = server.createObject（adodb.oldset）を設定します
rs.oopen sql、conn、1,1
ifを終了します
End Sub
'******************************************* ******************************************** ******************************************** ******************************************** ******************************************** ************、***********
'[sub] openwriters rs、sql
'機能：対応するタイプのデータセットを開くと、操作を書くことができます
'パラメーター：
'RSオープンRSコレクション
'SQLステートメントが実行されました
'******************************************* ******************************************** ******************************************** ******************************************** ******************************************** ************、***********
サブオープンライター（Rs、SQL）
ISObject（Rs）ではない場合
rs = server.createObject（adodb.oldset）を設定します
rs.oopen sql、conn、1,3
ifを終了します
End Sub
'******************************************* ******************************************** ******************************************** ******************************************** ******************************************** ************、***********
'[sub] endrs rs
'関数：対応するタイプのデータセットを閉じます
'パラメーター：
'RSオープンRSコレクション
'******************************************* ******************************************** ******************************************** ******************************************** ******************************************** ************、***********
サブエンド（Rs）
isobject（rs）の場合
rs.close：rs = Nothingを設定します
ifを終了します
End Sub
'******************************************* ******************************************** ******************************************** ******************************************** ******************************************** ************、***********
'[sub] endconn
'機能：データベース接続を閉じます
'パラメーター：なし
'******************************************* ******************************************** ******************************************** ******************************************** ******************************************** ************、***********
サブエンド
isobject（conn）の場合
conn.close：set conn = nothing
ifを終了します
End Sub
'******************************************* ******************************************** ******************************************** ******************************************** ******************************************** ************、***********
'[sub] execsql sql
'関数：SQLステートメントを実行します
'パラメーター：
'SQLステートメントが実行されました
'******************************************* ******************************************** ******************************************** ******************************************** ******************************************** ************、***********
sub execsql（sql）
conn.execute（sql）
End Sub
'******************************************* ******************************************** ******************************************** ******************************************** ******************************************** ************、***********
'[] selectalone sql
'関数：シングルフィールドクエリ
'パラメーター：
'SQLステートメントが実行されました
'戻り：フィールド値をクエリします
'******************************************* ******************************************** ******************************************** ******************************************** ******************************************** ************、***********
セレクアロン（SQL）
Dim Selectaloners
SECERESERALONERS = const.Execute（SQL）を設定します
selectalone = selectaloners（0）
endrs selectaloners
終わり
'文字列操作関連関数
'******************************************* ******************************************** ******************************************** ******************************************** ******************************************** ************、***********
'[] Issafester str
'機能：安全な文字列であるかどうかを判断し、登録やログインなどの特別なフィールドで使用します
'パラメーター：
'検出するstring
'return：true = security、false = unsafe
'******************************************* ******************************************** ******************************************** ******************************************** ******************************************** ************、***********
Issafester（str）
dim s_badstr、n、i
s_badstr = '＆<>？％、;：（）〜！@＃$^*{} [] |+ - =＆chr（34）＆chr（9）＆chr（32）
n = len（s_badstr）
Issafestr = true
i = 1からnの場合
If strust（str、mid（s_badstr、i、1））> 0
ISSAFESTR = FALSE
出口
ifを終了します
次
終わり
'******************************************* ******************************************** ******************************************** ******************************************** ******************************************** ************、***********
'[] htmltoencode str
'関数：コードHTML
'パラメーター：
'strは文字列をエンコードする必要があります
'戻り：コード文字列
'******************************************* ******************************************** ******************************************** ******************************************** ******************************************** ************、***********
htmltoencode（str） '
そうでない場合は、Isnull（str）とstr <> then
str =置換（str、＆、＆amp;）
str =置換（str、>、＆gt;）
str =置換（str、<、＆lt;）
str =置換（str、chr（32）、）
str =置換（str、chr（9）、＆nbsp;）
str =置換（str、chr（34）、＆quot;）
str =置換（str、chr（39）、＆＃39;）
str =置換（str、chr（13）、）
str =交換（str、＆＃115; cript）
str =交換（str、＆＃115;、＆＃115;）
htmltoencode = str
ifを終了します
終わり
'******************************************* ******************************************** ******************************************** ******************************************** ******************************************** ************、***********
'[] encodetohtml str
'関数：コードHTMLコード
'パラメーター：
'strは文字列をコード化する必要があります
'戻り：逆コーディングされた文字列
'******************************************* ******************************************** ******************************************** ******************************************** ******************************************** ************、***********
encodetohtml（str）
そうでない場合は、Isnull（str）とstr <> then
str =置換（str、＆amp; ,,＆）
str =置換（str、＆gt;、>）
str =置換（str、＆lt;、<）
str =置換（str、chr（32））
str =置換（str、＆nbsp;、chr（9））
str =置換（str、＆quot;、chr（34））
str =置換（str、＆＃39;、chr（39））
str =置換（str、chr（13））
str =交換（str、＆＃115; cript、）
str =交換（str、＆＃115;、＆＃115;）
encodetohtml = str
ifを終了します
終わり
'******************************************* ******************************************** ******************************************** ******************************************** ******************************************** ************、***********
'[] gottopic str、strlen
'関数：弦ストローンの長さをテストし、漢字は2つの長さを計算します
'パラメーター：
'strを傍受する必要があります
'strlenインターセプト長
'戻り：ストレン長の長さの後の文字列
'******************************************* ******************************************** ******************************************** ******************************************** ******************************************** ************、***********
gettopic（str、strlen）
str = thenの場合
gottopic =
出口
ifを終了します
Dim L、T、C、i
l = len（str）
t = 0
i = 1からlの場合
c = abs（asc（mid（str、i、1）））））
c> 255の場合
T = T+2
それ以外
t = t+1
ifを終了します
t> = strlenの場合
gottopic = left（str、i）＆...
の出口
それ以外
gottopic = str
ifを終了します
次
終わり
'******************************************* ******************************************** ******************************************** ******************************************** ******************************************** ************、***********
'[] dateformattime tvar、style
'関数：時間のフォーマット
'パラメーター：
'TVARには、時間文字列のフォーマットが必要です
'スタイプフォーマットタイプ
'戻り：時間文字列のフォーマット
'******************************************* ******************************************** ******************************************** ******************************************** ******************************************** ************、***********
dateformattime（tvar、style）
dim tt、syear、smnon、sday、shour、sminute、ssecond
ISDate（TVAR）ではない場合は、DateFormattime =：exit
TT = TVAR
syear = year（tt）
smonth = right（0＆month（tt）、2）
sday = right（0＆day（tt）、2）
shour = right（0＆hour（tt）、2）
sminute = right（0＆minute（tt）、2）
ssecond = right（0＆sex（tt）、2）
ケーススタイルを選択します
ケース1'2006-3-13
dateformattime = syear＆ - ＆smonth＆ - ＆sday
ケース2 '2006年3月13日
dateformattime = syear＆year＆smnth＆monthly＆sday＆day
ケース3 '2006031313120123
dateformattime = syear＆smonth＆sday＆shour＆sminute＆ssecond
ケース他のケース
dateformattime = tt
[選択]を終了します
終わり
'******************************************* ******************************************** ******************************************** ******************************************** ******************************************** ************、***********
'[] isnum str
'機能：それが数字かどうか
'パラメーター：
'strは弦を判断する必要があります
'return：true = number、false = non -numbers
'******************************************* ******************************************** ******************************************** ******************************************** ******************************************** ************、***********
isnum（str） '
str <>およびis -numeric（str）の場合
isnum = true
それ以外
isnum = false
ifを終了します
終わり
'関連する関数の出力デバッグ
'******************************************* ******************************************** ******************************************** ******************************************** ******************************************** ************、***********
'[sub] mesgoback str
'関数：情報をポップアップして返します
'パラメーター：
'strは弦を判断する必要があります
'******************************************* ******************************************** ******************************************** ******************************************** ******************************************** ************、***********
サブメスゴバック（str）
respons.write（<language = 'java'> alert（ '＆str＆'）; history.back（）; </>）
Response.End（）
End Sub
'******************************************* ******************************************** ******************************************** ******************************************** ******************************************** ************、***********
'[sub] mesgourl str、url
'関数：情報をポップアップして返します
'パラメーター：
'strは弦を判断する必要があります
'URLジャンプアドレス
'******************************************* ******************************************** ******************************************** ******************************************** ******************************************** ************、***********
submesgourl（str、url）
respons.write（<language = 'java'> alert（ '＆str＆'）; local.href = '＆url＆'; </>）
Response.End（）
End Sub
'******************************************* ******************************************** ******************************************** ******************************************** ******************************************** ************、***********
'[sub]間違ったデバッグ
'関数：デバッグ出力
'パラメーター：
'間違っていることは、出力情報を望んでいます
'返品：返品値はありません
'******************************************* ******************************************** ******************************************** ******************************************** ******************************************** ************、***********
サブデバッグ（Ingrong） 'デバッグ出力
Response.Write（ing）
Response.End（）
End Sub
'関数関連関数
'******************************************* ******************************************** ******************************************** ******************************************** ******************************************** ************、***********
'[] getIp
'関数：ユーザーIPを取得します
'パラメーター：
' なし
'戻り：ユーザーの現在のIP
'******************************************* ******************************************** ******************************************** ******************************************** ******************************************** ************、***********
getIp（）
dim userip
userip = request.servervariables（http_x_forwarded_for）
userip = then userip = request.servervariables（remote_addr）の場合
getIP = userip
終わり
'******************************************* ******************************************** ******************************************** ******************************************** ******************************************** ************、***********
'[] geturl
'関数：現在のドメイン名を取得します
'パラメーター：
' なし
'戻り：現在のドメイン名
'******************************************* ******************************************** ******************************************** ******************************************** ******************************************** ************、***********
geturl（）
geturl = request.servervariables（server_name）
終わり