几个常用的ASP自定义函数
2009-06-30 04:24:00 来源:WEB开发网<%
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.cncms.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 ######################################################################
%>
- ››asp.net页面弄成伪静态页面
- ››常用的Windows 7操作系统实用技巧
- ››Asp.net 中将汉字转换成拼音的方法
- ››ASP.NET及JS中的cookie基本用法
- ››ASP.NET获取MS SQL Server安装实例
- ››asp.net实现调用百度pai 在线翻译英文转中文
- ››ASP.NET页面选项进行提示判断
- ››Asp.net定时执行程序
- ››ASP.NET中利用DataList实现图片无缝滚动
- ››ASP.NET验证控件RequiredFieldValidator
- ››ASP.NET中使用System.Net.Mail发邮件
- ››ASP.NET中获取用户控件中控件的ID
更多精彩
赞助商链接