<%
Rem ############################################# ##################
Rem ## Ausführungszeit ausblenden
Sub s__HideTimeOver()
Dimmen Sie tTimeOver
tTimeOver = FormatNumber((Timer() - tStartTime) * 1000, 3, true)
Response.Write(vbCrLf & "<!--Ausführungszeit: " & tTimeOver & " Millisekunden-->")
Sub beenden
Rem ############################################# ##################
Rem ############################################# ##################
Rem ## Datenbankverbindung öffnen
Funktion f__OpenConn()
Dimmkonstr
connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
connstr = connstr & Server.MapPath(GBL__STR_DB_PATH)
Setze conn = Server.CreateObject("Adodb.Connection")
conn.open connstr
Funktion beenden
Rem ############################################# ###################
Rem ########################## ### #####################################
Rem ## Datenbankverbindung schließen
Funktion f__CloseConn()
Wenn IsObject(conn) Dann
Setze conn = nichts
Ende wenn
Funktion beenden
Rem ############################################# ##################
Rem ############################################# ##################
Rem ## HTML-Konvertierung
Funktion toHtml(str)
Dunkles Ergebnis
Ergebnis = str & ""
Ergebnis = ersetzen(Ergebnis, ">", ">")
Ergebnis = ersetzen(Ergebnis, „<“, „<“)
Ergebnis = ersetzen(Ergebnis, " ", " ")
Ergebnis = ersetzen(Ergebnis, „““, „““)
Ergebnis = ersetzen(Ergebnis, CHR(13), "")
Ergebnis = ersetzen(Ergebnis, CHR(10), "<br>")
Ergebnis = ersetzen(Ergebnis, CHR(39), "'")
toHtml = Ergebnis
Funktion beenden
Rem ############################################# ##################
Rem ############################################# ##################
Rem ## Long-Integer-Konvertierung
Funktion toLng(strNum, Default)
Dunkles Ergebnis
Wenn strNum <> "" und IsNumeric(strNum) dann
Ergebnis = CLng(strNum)
Anders
toNum = Standard
Ende wenn
toLng = Ergebnis
Funktion beenden
Rem ############################################# ##################
http://bizhi.downcodes.com/
Rem ############################################# ##################
Rem ## Währungstypkonvertierung
Funktion toCur(strNum, Default)
Dunkles Ergebnis
Wenn strNum <> "" und IsNumeric(strNum) dann
Ergebnis = CCur(strNum)
Anders
toNum = Standard
Ende wenn
toCur = Ergebnis
Funktion beenden
Rem ############################################# ##################
Rem ############################################# ##################
Rem ## SQL-Ersatzkodierung
Funktion toSqlr(str)
str = str & ""
str = ersetzen(str, "'", "")
str = ersetzen(str, """", "")
toSqlr = str
Funktion beenden
Rem ############################################# ###################
Rem ########################## ### #####################################
Rem ## SQL-Codierung
Funktion toSql(str)
str = str & ""
str = ersetzen(str, "'", "''")
toSql = str
Funktion beenden
Rem ############################################# ###################
Rem ########################## ### #####################################
Rem ## Konvertieren Sie eine Zahl in eine feste Anzahl von Ziffern und ersetzen Sie alle fehlenden Ziffern mit 0
Funktion ConvertNumber(strNum)
strNum = strNum & ""
Dimmen Sie iLen, iMaxL, iLdiv, Ergebnis
iLen = Len(strNum)
iMaxL=8
iLdiv = iMaxL – iLen
Ergebnis = string(iLdiv, "0") & strNum
ConvertNumber = Ergebnis
Funktion beenden
Rem ############################################# ##################
%>