<%
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("Adodb.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.VeVb.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 ######################################################################
%>