最常用的自定义函数(原创)

最新推荐文章于 2023-08-07 21:29:20 发布

xiaoyuehen

最新推荐文章于 2023-08-07 21:29:20 发布

阅读量1.1k

点赞数

CC 4.0 BY-SA版权

分类专栏： ASP 文章标签： function 数据库 server timer sql string

本文链接：https://blog.youkuaiyun.com/xiaoyuehen/article/details/111845

ASP 专栏收录该内容

18 篇文章

订阅专栏

博客提及作者最常用的ASP自定义函数，涉及信息技术领域中ASP编程相关内容。

我最常用的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 ######################################################################
%>