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

原创 2004年09月21日 14:29:00

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

最常用的自定义函数

我最常用的ASP自定义函数作者: 萧月痕% Rem ###################################################################### Rem...
  • mymyal123
  • mymyal123
  • 2005年01月12日 15:37
  • 606

Mql4 自定义函数模板

自定义函数编程步骤
  • bannychen
  • bannychen
  • 2016年09月22日 16:04
  • 560

【伪原创工具】最好的伪原创工具

【伪原创工具】最好的伪原创工具,原创,这个对个人站长来说,几乎不可能,因为没有那么多时间和精力去搞,一般是大站招聘编辑来做这个工作。 靠采集更新网站,早年在火车头采集出现之前还有用,因为在火车头出来...
  • i_like_cpp
  • i_like_cpp
  • 2011年10月10日 18:54
  • 5624

十个最常用的javascript自定义函数(2)

(7)inArray() 用于判断检查数组中是否存在某个值,下面方法取自Prototype类库。 Array.prototype.inArray = function (value) ...
  • d19891006
  • d19891006
  • 2011年11月05日 17:21
  • 400

十个最常用的javascript自定义函数(1)

如果不使用类库或者没有自己的类库,储备一些常用函数总是有好处的。以下的函数就是我们平时用的各个库(Jquery,dojo,Prototype等)里封装好的平时没去关心的函数罢了,收集与此,可以平时偷偷...
  • d19891006
  • d19891006
  • 2011年11月05日 17:23
  • 629

最常用的10个javascript自定义函数

If there was ever a universal common.js shared among the entire develosphere, you’d fine these ten (...
  • ztmaster
  • ztmaster
  • 2009年01月14日 23:15
  • 341

javascript十个最常用的自定义函数

悟透JavaScript本文是"悟透JavaScript "一书中的第一部分,看后感觉非常不错,作者李战,此书已经出版,如果读者有兴趣可以点击一下链接查看更多信息 http://book.cnblog...
  • Kelat
  • Kelat
  • 2011年05月16日 13:49
  • 533

十个最常用的JavaScript自定义函数

JavaScript自定义函数在平时的开发过程中比较实用,这里介绍的是个最常用的十个JavaScript自定义函数主要涉及添加事件与移除事件等等。 (10)addEvent 网上最流行的版本是Sc...
  • huntzw
  • huntzw
  • 2012年08月01日 17:00
  • 1499

最常用的10个javascript自定义函数 选项

If there was ever a universal common.js shared among the entire develosphere, you’d fine these ten (...
  • abaowu
  • abaowu
  • 2006年03月02日 16:30
  • 1240

前100个常用密码

分析网上800万拖库数据得出前100个常用密码如下,你躺着中枪了吗? 数目   密码明文 235039 123456789 212761 12345678 76348 11111111 ...
  • hittata
  • hittata
  • 2012年11月27日 00:09
  • 15009
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:最常用的自定义函数(原创)
举报原因:
原因补充:

(最多只允许输入30个字)