よく使用されるいくつかの ASP カスタム関数

<%
レム ############################################# ## ###################
Rem ## 実行時間を非表示にする
サブ s__HideTimeOver()
ディムタイムオーバー
tTimeOver = FormatNumber((Timer() - tStartTime) * 1000, 3, true)
response.Write(vbCrLf & "<!--実行時間: " & tTimeOver & " ミリ秒-->")
エンドサブ
レム ############################################# ## ###################

レム ############################################# ## ###################
Rem ## データベース接続を開く
関数 f__OpenConn()
薄暗いコンセント
connstr = "プロバイダ=Microsoft.Jet.OLEDB.4.0;データ ソース="
connstr = connstr & Server.MapPath(GBL__STR_DB_PATH)
set conn = Server.CreateObject("Adod​​b.Connection")
conn.open connstr
終了機能
レム ############################################# ## ###################

レム ########################### ### #####################################
Rem ## データベース接続を閉じます
関数 f__CloseConn()
IsObject(conn) の場合
conn = 何も設定しない
終了の場合
終了機能
レム ############################################# ## ###################
レム ############################################# ## ###################
Rem ## HTML変換
関数 toHtml(str)
暗い結果
結果 = str & ""

結果 = replace(結果, ">", ">")
結果 = replace(結果, "<", "<")
結果 = replace(結果, " ", " ")
結果 = replace(結果, """", """)
結果 = replace(結果, CHR(13), "")
結果 = replace(結果, CHR(10), "<br>")
結果 = replace(結果, CHR(39), "'")

toHtml = 結果
終了機能
レム ############################################# ## ###################

レム ############################################# ## ###################
Rem ## 長整数変換
関数 toLng(strNum, デフォルト)
暗い結果

strNum <> "" かつ IsNumeric(strNum) の場合
結果 = CLng(strNum)
それ以外
toNum = デフォルト
終了の場合

toLng = 結果
終了機能
レム ############################################# ## ###################
http://bizhi.dow​​ncodes.com/
レム ############################################# ## ###################
Rem ## 通貨型変換
関数 toCur(strNum, デフォルト)
暗い結果

strNum <> "" かつ IsNumeric(strNum) の場合
結果 = CCur(strNum)
それ以外
toNum = デフォルト
終了の場合

toCur = 結果
終了機能
レム ############################################# ## ###################
レム ############################################# ## ###################
Rem ## SQL 置換エンコーディング
toSqlr(str)関数
str = str & ""
str = replace(str, "'", "")
str = replace(str, """", "")

toSqlr = str
終了機能
レム ############################################# ## ###################

レム ########################### ### #####################################
Rem ## SQLエンコーディング
toSql(str)関数
str = str & ""
str = replace(str, "'", "''")

toSql = str
終了機能
レム ############################################# ## ###################

レム ########################### ### #####################################
Rem ## 数値を固定桁数に変換し、不足している桁を 0 で埋めます。
関数 ConvertNumber(strNum)
strNum = strNum & ""
Dim iLen、iMaxL、iLdiv、結果
iLen = Len(strNum)
iMaxL=8
iLdiv = iMaxL - iLen
結果 = string(iLdiv, "0") & strNum

ConvertNumber = 結果
終了機能
レム ############################################# ## ###################
%>