ASP häufig verwendete Funktionserfassung

Autor：Eve Cole Aktualisierungszeit：2025-03-01 01:16:01

OLEDB -Methode, um die SQL -Datenverbindung zu öffnen

Subs OpenSQLBYOLEDB

Bei der nächsten Fehleraufnahme als nächstes

Setzen Sie conn = server.createObject (adodb.Connection)

Conn.Open Provider = SQLOLEDB.1;

Wenn err.number <> 0 dann dann

err.clear

Antwort.Write (<div align = 'center'> Die Datenbank ist mit einem Fehler verbunden. Bitte wenden Sie sich an den Administrator! </Div>).

Antwort.end ()

Ende wenn

Ende sub

'Datenbankbetrieb -bezogene Funktionen

'****************************************** ******************************************************** ******************************************************** ******************************************************** ******************************************************** **************, **************************

'[Sub] OpenReadrs RS, SQL, Otype

'Funktion: Öffnen Sie den entsprechenden Datensatzstyp und lesen Sie nur den Vorgang

'Parameter:

'RS Open RS Collection

'SQL Anweisung ausgeführt

Sub OpenReadrs (RS, SQL)

Wenn nicht IsObject (Rs), dann

Setzen Sie rs = server.createObject (adodb.oldset)

Rs.oopen SQL, Conn, 1,1

Ende wenn

Ende sub

'[Sub] OpenWriter RS, SQL

'Funktion: Öffnen Sie den entsprechenden Datensatztyp, Sie können den Vorgang schreiben

'Parameter:

'RS Open RS Collection

'SQL Anweisung ausgeführt

Sub OpenWriter (RS, SQL)

Wenn nicht IsObject (Rs), dann

Setzen Sie rs = server.createObject (adodb.oldset)

Rs.oopen SQL, Conn, 1,3

Ende wenn

Ende sub

'[Sub] endrs rs

'Funktion: Schließen Sie den entsprechenden Datensatzstyp

'Parameter:

'RS Open RS Collection

Subendrs (Rs)

Wenn ISObject (Rs) dann

Rs.close: RS = nichts setzen

Ende wenn

Ende sub

'[Sub] endconn

'Funktion: Schließen Sie die Datenbankverbindung

'Parameter: Keine

Sub Endnn

Wenn isObject (conn) dann

conn.close: conn = nichts setzen

Ende wenn

Ende sub

'[Sub] execsql sql

'Funktion: Führen Sie die SQL -Anweisung aus

'Parameter:

'SQL Anweisung ausgeführt

Sub ExecSQL (SQL)

Conn.Execute (SQL)

Ende sub

'[] Selectalone SQL

'Funktion: Einzelfeldabfrage

'Parameter:

'SQL Anweisung ausgeführt

'Rückgabe: Abfragefeldwert

Selectalone (SQL)

Dim Selectaloners

Set Selectaloners = const.execute (SQL)

Selectalone = selectaloners (0)

Endrs Selectaloners

Ende

'String Betriebsbezogene Funktionen

'[] Issafestr Str

'Funktion: Bestimmen Sie, ob es sich um eine sichere Zeichenfolge handelt, verwenden Sie in speziellen Feldern wie Registrierung und Anmeldung

'Parameter:

'String String zum Erkennen

'Return: true = Sicherheit, false = unsicher

ISSAFESTR (STR)

Dim s_badstr, n, ich

s_badstr = '& <>?%,;: () ~!@#$^*{} [] |+-= & chr (34) & chr (9) & chr (32)

n = len (s_badstr)

IssAfestr = true

Für i = 1 bis n

Wenn Instrum

IssAfestr = false

Ausfahrt

Ende wenn

Ende

'[] Htmltocode str

'Funktion: Code HTML

'Parameter:

'STR muss eine Zeichenfolge codieren

'Rückgabe: Codezeichenfolge

Htmltocode (str) ''

Wenn nicht iSnull (str) und st <> dann

STR = Ersatz (str, &, & amp;)

str = ersetzen (str,>, & gt;)

str = ersetzen (str, <, & lt;)

Str = ersetzen (str, chr (32),)

str = ersetzen (str, chr (9), & nbsp;)

str = ersetzen (str, chr (34), & quot;)

STR = Ersatz (str, chr (39), ')

str = ersetzen (str, chr (13),)

STR = Ersetzen (str ,, s Cript)

Str = ersetzen (str, s, s)

Htmltocode = str

Ende wenn

Ende

'[] Codetohtml str

'Funktion: Code HTML -Code

'Parameter:

'STR muss codiert werden

'Return: Reverse -codierte Zeichenfolge

Codetohtml (str)

Wenn nicht iSnull (str) und st <> dann

STR = Ersatz (str, & amp; ,, &)

str = ersetzen (str, & gt;,>)

str = ersetzen (str, & lt;, <)

STR = Ersetzen (str ,, chr (32))

STR = Ersatz (str, & nbsp;, chr (9))

Str = ersetzen (str, & quot;, chr (34))

str = ersetzen (str, ', chr (39))

STR = Ersetzen (str ,, chr (13))

STR = Ersatz (str, s Cript,)

Str = ersetzen (str, s, s)

Codetohtml = str

Ende wenn

Ende

'[] Gottopische Str, Strlen

'Funktion: Testen Sie die Länge des Strandstrolns, chinesische Zeichen werden 2 Länge berechnet

'Parameter:

'STR muss abgefangen werden

'Strlen Intercept Länge

'Return: Die Zeichenfolge nach der Länge der Strlen -Länge

Getopic (str, strlen)

Wenn Str = dann

Gottopisch =

Ausfahrt

Ende wenn

diml, t, c, ich

l = len (str)

T = 0

für i = 1 bis l

C = ABS (ASC (MID (STR, I, 1)))))

Wenn c> 255 dann

t = t+2

anders

t = t+1

Ende wenn

Wenn t> = strlen dann

Gottopic = links (str, i) & ...

beenden für

anders

Gottopisch = str

Ende wenn

Ende

'[] DateFormattime TVAR, Stil

'Funktion: Zeitformatierung

'Parameter:

'TVAR braucht Zeitzeichenfolge für Formatierende

'Stype -Formatierungstyp

'Return: Formatierungszeitzeichenfolge

DateFormAttime (TVAR, Stil)

Dim TT, Syear, Smnon, Sday, Shour, Sminute, Ssecond

Wenn nicht isdate (tvar), dann dateFormattime =: beenden

Tt = tvar

Syear = Jahr (TT)

Smonth = rechts (0 & Monat (TT), 2)

Sday = rechts (0 & tag (tt), 2)

Shour = rechts (0 & stunde (tt), 2)

Sminute = rechts (0 & Minute (TT), 2)

ssecond = rechts (0 & sex (tt), 2)

Wählen Sie den Fallstil

Fall 1'2006-3-13

DateFormattime = Syear & -& Smonth & -& Sday

Fall 2 '13. März 2006

DateFormAttime = Syear & Jahr & Smnth & Monthly & Sday & Day

Fall 3 '2006031313120123

DateFormattime = Syear & Smonth & Sday & SHOUR & SMINUTE & SSECOND

Fall sonst

DateFormAtTime = tt

Ende auswählen

Ende

'[] ISnum str

'Funktion: Ob es sich um eine Zahl handelt

'Parameter:

'Str muss String beurteilen

'Return: true = nummer, false = nicht -numbers

Isnum (str) ''

Wenn Str <> und isnumeric (str) dann

Isnum = true

anders

Isnum = false

Ende wenn

Ende

'Output Debugging verwandte Funktionen

'[Sub] mesgoback str

'Funktion: Informationen pop -up und kehren Sie zurück

'Parameter:

'Str muss String beurteilen

Submesgoback (STR)

Response.write (<sprach = 'java'> alert ('& str &'); history.back (); </>)

Antwort.end ()

Ende sub

'[Sub] mesgourl str, URL

'Funktion: Informationen pop -up und kehren Sie zurück

'Parameter:

'Str muss String beurteilen

'URL -Sprungadresse

Submesgourl (STR, URL)

Response.write (<sprach = 'java'> alert ('& str &'); local.href = '& url &'; </>)

Antwort.end ()

Ende sub

'[Sub] Debugug falsch

'Funktion: Debug -Ausgabe

'Parameter:

'Falsch will Ausgabeinformationen

'Rückgabe: Kein Rückgabewert

Subdebug (Ingrong) 'Debug -Ausgabe

Antwort.Write (ing)

Antwort.end ()

Ende sub

'Funktionsbezogene Funktionen

'[] Getip

'Funktion: Benutzer IP Holen Sie sich

'Parameter:

'Keine

'Return: Benutzer aktuelle IP

Getip ()

DIM -Userip

userip = request.servervariables (http_x_forwarded_for)

Wenn userip = dann userIP = request.servervariables (Remote_Addr)

GetIp = userIP

Ende

'[] Geturl

'Funktion: Holen Sie sich den aktuellen Domain -Namen

'Parameter:

'Keine

'Return: Der aktuelle Domain -Name

Geturl ()

getUrl = request.servervariables (server_name)

Ende