幾個常用的ASP自訂函數

<%
Rem ################################################# #####################
Rem ## 隱藏執行時間
Sub s__HideTimeOver()
Dim tTimeOver
tTimeOver = FormatNumber((Timer() - tStartTime) * 1000, 3, true)
response.Write(vbCrLf & "<!--執行時間: " & tTimeOver & " 毫秒-->")
End Sub
Rem ################################################# #####################

Rem ################################################# #####################
Rem ## 開啟資料庫連接
function f__OpenConn()
Dim connstr
connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
connstr = connstr & Server.MapPath(GBL__STR_DB_PATH)
Set conn = Server.CreateObject("Adod​​b.Connection")
conn.open connstr
End function
Rem ################################################# #####################

Rem ############################# ###########################################
Rem ## 關閉資料庫連接
function f__CloseConn()
If IsObject(conn) Then
Set conn = nothing
End If
End function
Rem ################################################# #####################
Rem ################################################# #####################
Rem ## HTML 轉換
function toHtml(str)
Dim Result
Result = str & ""

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

toHtml = Result
End function
Rem ################################################# #####################

Rem ################################################# #####################
Rem ## 長整數轉換
function toLng(strNum, Default)
Dim Result

If strNum <> "" And IsNumeric(strNum) Then
Result = CLng(strNum)
Else
toNum = Default
End If

toLng = Result
End function
Rem ################################################# #####################
http://bizhi.dow​​ncodes.com/
Rem ################################################# #####################
Rem ## 貨幣類型轉換
function toCur(strNum, Default)
Dim Result

If strNum <> "" And IsNumeric(strNum) Then
Result = CCur(strNum)
Else
toNum = Default
End If

toCur = Result
End function
Rem ################################################# #####################
Rem ################################################# #####################
Rem ## SQL 替換編碼
function toSqlr(str)
str = str & ""
str = replace(str, "'", "")
str = replace(str, """", "")

toSqlr = str
End function
Rem ################################################# #####################

Rem ############################# ###########################################
Rem ## SQL 編碼
function toSql(str)
str = str & ""
str = replace(str, "'", "''")

toSql = str
End function
Rem ################################################# #####################

Rem ############################# ###########################################
Rem ## 轉換數字為固定位數, 不足位補0
function ConvertNumber(strNum)
strNum = strNum & ""
Dim iLen, iMaxL, iLdiv, Result
iLen = Len(strNum)
iMaxL = 8
iLdiv = iMaxL - iLen
Result = string(iLdiv, "0") & strNum

ConvertNumber = Result
End function
Rem ################################################# #####################
%>