WEB开发网
开发学院WEB开发ASP 几个常用的ASP自定义函数 阅读

几个常用的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 & "<

<%
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 ######################################################################
%>

Tags:常用 ASP 定义

编辑录入:爽爽 [复制链接] [打 印]
赞助商链接