<%
Rem ############################################### #####################
Rem ## Hide execution time
Sub s__HideTimeOver()
Dim tTimeOver
tTimeOver = FormatNumber((Timer() - tStartTime) * 1000, 3, true)
response.Write(vbCrLf & "<!--Execution time: " & tTimeOver & " milliseconds-->")
End Sub
Rem ############################################### #####################
Rem ############################################### #####################
Rem ## Open database connection
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 ## Close database connection
function f__CloseConn()
If IsObject(conn) Then
Set conn = nothing
End If
End function
Rem ############################################### #####################
Rem ############################################### #####################
Rem ## HTML Conversion
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 ## long integer conversion
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.downcodes.com/
Rem ############################################### #####################
Rem ## Currency type conversion
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 replacement encoding
function toSqlr(str)
str = str & ""
str = replace(str, "'", "")
str = replace(str, """", "")
toSqlr = str
End function
Rem ############################################### #####################
Rem ########################### ##########################################
Rem ## SQL encoding
function toSql(str)
str = str & ""
str = replace(str, "'", "''")
toSql = str
End function
Rem ############################################### #####################
Rem ########################### ##########################################
Rem ## Convert a number to a fixed number of digits, and fill in any missing digits with 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 ############################################### #####################
%>