最常用的自定义函数

我最常用的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("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, ">", "&gt;")   Result = replace(Result, "<", "&lt;")   Result = replace(Result, " ", "&nbsp;")   Result = replace(Result, """", "&quot;")   Result = replace(Result, CHR(13), "")   Result = replace(Result, CHR(10), "<br>")   Result = replace(Result, CHR(39), "&#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 ######################################################################   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 ######################################################################%>