最常用的自定义函数
来源:互联网 发布:数据采集系统厂家 编辑:程序博客网 时间:2024/05/20 05:53
我最常用的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, ">", ">") 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 ###################################################################### 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 ######################################################################%>
- 最常用的自定义函数
- 最常用的自定义函数
- 最常用的自定义函数(原创)
- javascript十个最常用的自定义函数
- 十个最常用的JavaScript自定义函数
- javascript十个最常用的自定义函数
- 最常用的10个javascript自定义函数 选项
- 最常用的10个javascript自定义函数
- 十个最常用的javascript自定义函数(2)
- 十个最常用的javascript自定义函数(1)
- PHP项目开发中最常用的自定义函数整理
- 常用的自定义函数
- 最常用的JavaScript函数
- Excel最常用的函数
- [转一篇博客园的帖子]javascript十个最常用的自定义函数
- 自定义NSOperation__最常用的方式
- 常用的 JS 自定义函数
- SQL函数最常用的数字函数
- DotNet Framework不协调的一面 ??
- SQL server阻塞(来自微软技术支持人员)
- 我喜欢的几部电影(一)
- 最常用的自定义函数
- BO6.5复杂报表绘制-新建数据提供者
- 最常用的自定义函数
- 2004影响中国企业的十大管理思想
- 事务详解(来自csdn .net 社区 lins (*无间行者*) )
- java3d异常
- keil c51编译器的一些使用心得
- Keil C51开发系统基本知识-1
- 为什么printf的参数是从右向左压栈
- Keil C51开发系统基本知识-2
- Keil C51开发系统基本知识-3