Die Verwendung von Textredakteuren kann auf Java zurückgeführt werden, aber viele Menschen interessierten sich zu dieser Zeit nicht für Textredakteure. Der heutige Artikel handelt von EditPlus Bearbeitungsdateien. Lassen Sie uns mit dem Herausgeber des falschen neuen Technologiekanals darüber erfahren!
#Title = gemeinsame Syntax und Funktionen von ASP
#INFO
Einige häufig verwendete Syntax- und benutzerdefinierte Funktionen in ASP
#Sort = n
#T = === gemeinsame Syntax für ASP ===
#T ================================================
#T = Datenbank verwandt
#T = Verbindung zur Zugriffsdatenbank herstellen
<%
Dim dbname, conn
Dbname "^!" 'Definieren Sie den Datenbankpfad und den Namen
Setzen Sie conn = server.createObject ("adodb.Connection").
Conn.open "Provider = microsoft.jet.oledb.4.0; Data Source =" & server.mappath (dbname)
%>
#T = Verbindung zur MS SQL -Datenbank herstellen
<%
Dim Conn
Setzen Sie conn = server.createObject ("adodb.Connection").
Conn.open "Provider = SQLOLEDB; Data Source = SQL Server Name oder IP -Adresse; UID = Datenbankanmeldung; PWD = Datenbankkennwort; Datenbank = Datenbankname"
%>
#T = Rekordsatz erstellen
Set ^! = Server.createObject ("adodb.recordset")
#T = SQL -Befehle ausführen
Rs.open SQL, Conn, 1,1
#T = SQL -Befehle ausführen
Conn.execute ("^!")
#T = Rs führt SQL -Befehle direkt aus
Setzen Sie rs = conn.execute ("^!")
#T = Schließen Sie den Datensatzsatz
Rs.close
Setzen Sie Rs = nichts
#T = Schließen Sie die Datenbank
Conn.close
Setzen Sie Conn = nichts
#T ================================================
#T = ServerVariables verwandt
#T = Holen Sie sich die Adresse der vorherigen Seite
Request.Servervariables ("http_referer")
#T = Nehmen Sie den Servernamen 1
Request.Servervariables ("server_name")
#T = Nehmen Sie den Servernamen 2
Request.Servervariables ("http_host")
#T = Server IP Holen Sie sich
Request.Servervariables ("local_addr")
#T = Holen Sie sich die Benutzer -IP
Request.Servervariables ("remote_host")
#T = Holen Sie sich das echte IP1 des Benutzers
Request.Servervariables ("remote_addr")
#T = Holen Sie sich die reale IP -Funktion des Benutzers
Funktion getRealip ()
GetRealip = request.servervariables ("http_x_forwarded_for")
If (getRealip = "") dann getRealip = request.servervariables ("remote_addr")
Endfunktion
#T = den Serverport erhalten
Request.servervariables ("server_port")
#T = Holen Sie sich das Serverbetriebssystem
Request.Servervariables ("OS")
#T = den absoluten Pfad zum Server erhalten
Request.Servervariables ("appl_physical_path")
#T = Nehmen Sie den absoluten Pfad 1 dieser Datei
Requet.Servervariables ("path_translated")
#T = Nehmen Sie den absoluten Pfad 2 dieser Datei
Server.mappath (request.servervariables ("script_name"))
#T = Nehmen Sie den relativen Pfad 1 dieser Datei
Request.Servervariables ("URL")
#T = Nehmen Sie den relativen Pfad 2 dieser Datei
Request.Servervariables ("script_name")
#T = Nehmen Sie den relativen Pfad 3 dieser Datei
Request.Servervariables ("path_info")
#T = die Parameter nach der Adressleiste
Request.Servervariables ("query_string")
#T = Serversysteminformationen abrufen
Request.Servervariables ("http_user_agent")
#T = Erkennung von Serverkomponenten
<%
Funktion isobjinstalliert (StrclassString)
Bei der nächsten Fehleraufnahme als nächstes
Isobjinstalled = false
Err = 0
Dim Xtestobj
Setzen Sie xtestObj = server.createObject (StrclassString)
If (0 = err) dann isobjinstalled = true
Setzen Sie XtestObj = nichts
Err = 0
Endfunktion
'If (isobjinstalled ("Perssites.Upload") = true)
'Response.write "Unterstützung von AspUpload -Komponenten" unterstützen "
'ANDERS
'Response.write "AspUpload -Komponente wird nicht unterstützt"
'Ende wenn
%>
#T = das Client -Gebietsschema bekommen
^! Request.Servervariables ("http_accept_loguage")
#T = Clientinformationen abrufen: http_user_agent
^! Request.Servervariables ("http_user_agent")
#T = den Wert des Formularwertelementwerts abrufen
Request.form ("^!")
#T = den von der URL übergebenen Wert erhalten
Request.queryString ("^!")
#T = Erhalten Sie die vollständige URL -Adresse
Funktion geturl ()
Geturl = "http: //" & request.servervariables ("server_n ... .servervariables (" url ")
If (request.servervariables ("query_string") <> "") dann geturl = geturl & "?" & Request.servervariables ("query_string")
Endfunktion
#T ================================================
#T = benutzerdefinierte Funktionen
#T = Filter -HTML -Zeichen
<%
'Filter HTML -Zeichenfunktion
Funktion htmlencode (STR)
If (str <> "") dann
str = ersetzen (str, "&", "&")
str = ersetzen (str, ">", ">")
STR = Ersetzen (str, "<", "<")
STR = Ersatz (str, chr (32), "")
str = ersetzen (str, chr (9), "")
STR = Ersatz (str, chr (34), "")
STR = Ersatz (str, chr (39), "'")
str = ersetzen (str, chr (13), "")
STR = Ersetzen (str, chr (10) & chr (10), "
"))
STR = Ersatz (str, chr (10), ","
"))
STR = Ersatz (str, chr (255), "")
Ende wenn
Htmlencode = str
Endfunktion
%>
#T = Überprüfen Sie, ob die vorherige Seite von dieser Website übermittelt wird
<%
»Überprüfen Sie, ob die vorherige Seite von dieser Website eingereicht wurde
'Return: Richtig, falsch
"=======================================================================================================================================ieben
Funktion ist selfrefer ()
Dim shttp_referer, sserver_name
shttp_referer = cstr (request.servervariables ("http_referer"))
sSERVER_NAME = CSTR (request.servervariables ("server_name"))
If (Mid (shttp_referer, 8, len (sserver_name)) = sserver_name) dann
IsSeFerfer = true
ANDERS
IsSeFerfer = falsch
Ende wenn
Endfunktion
%>
#T = Alle HTML -Tags löschen
<%
'Clear HTML -Tags
Funktion StripHTML (HTMLSTR)
Dim Regex
Setzen Sie Regex = New Regexp
regex.ignorecase = true
regex.global = true
regex.pattern = "<.+?>"
htmlstr = regex.replace (htmlstr, "")
htmlstr = ersetzen (htmlstr, "<", "<")
htmlstr = ersetzen (htmlstr, ">", ">")
htmlstr = ersetzen (htmlstr, chr (10), "")
htmlstr = ersetzen (htmlstr, chr (13), "")
StripHtml = htmlstr
REGEX einstellen = nichts
Endfunktion
%>
#T = Nehmen Sie die Stringlänge
<%
'Find String Länge finden
Funktion getLength (str)
Schwache Länge
Für i = 1 bis len (str)
If (ASC (Mid (str, i, 1)) <0 oder ASC (Mid (str, i, 1))> 256) dann
Länge = Länge+2
ANDERS
Länge = Länge+1
Ende wenn
Nächste
GetLength = Länge
Endfunktion
%>
#T = Abfangen die Zeichenfolge der angegebenen Länge
<%
Abfangen die Zeichenfolge der angegebenen Länge und verwenden Sie die zusätzliche anstelle von ...
Funktion Strleft (str, strlen)
If (str = "") dann
Strleft = ""
Ausgangsfunktion
Ende wenn
Dim L, T, C, i
str = ersetzen (ersetzen (ersetzen (ersetzen (str, "," "),"), "", chr (34)), ">", ">"), "<", "<", "<")
l = len (str)
t = 0
Für i = 1 bis l
C = ABS (ASC (MID (STR, I, 1))))
If (c> 255) dann
t = t+2
ANDERS
t = t+1
Ende wenn
If (t> strlen) dann
Strleft = links (str, i) & "..."
Beenden für
ANDERS
Strleft = str
Ende wenn
Nächste
Strleft = ersetzen (ersetzen (ersetzen (strleft, "," "), chr (34),"), ">", ">"), "<", "<", "<")
Endfunktion
%>
#T = Safe -Einreichungsparameter erhalten
<%
"=======================================================================================================================================ieben
SQL Injection Check
'Funktionsfunktion: Filter einzelne Zitate in Zeichenparametern, urteilen numerische Parameter, wenn es sich nicht um einen numerischen Typ handelt, dann weisen Sie 0 zu 0
'Parameter Bedeutung: str ---- Parameter, die gefiltert werden sollen
'strtype ---
"=======================================================================================================================================ieben
Funktionsprüfung (STR, STRTYPE)
Dimes Strtmp
Strtmp = ""
If (strtype = "s") dann
STRTMP = Ersetzen (Trim (str), "", "''")
Elseif (strtype = "i") dann
If (isnumeric (str) = false) dann Str = false
strtmp = str
ANDERS
strtmp = str
Ende wenn
Checkstr = strtmp
Endfunktion
%>
#T = Filter schlechte Zeichen (schlechtes Wort)
<%
'Filter schlechte Charaktere (Badwords)
Funktion chkbadwords (fstring)
Dim Badwords, bwords, ich
Badwords = "Ich fick | fick dich | fick ihn | fick | fick | hund | bastard | fotze | dick | turtle | vergewaltigt | sex | jungfräu
Wenn (nicht (isnull (badwords) oder isnull (fstring)) dann
bwords = split (badwords, "|")
Für i = 0 bis Ubound (bwords)
fstring = ersetzen (fstring, bwords (i), String (len (bwords (i)), "*"))
Nächste
Chkbadwords = fstring
Ende wenn
Endfunktion
%>
#T = generieren Sie zufälliges Kennwort für benutzerdefinierte Länge
<%
'Passwort für zufällige benutzerdefinierte Länge generieren
Funktion makePassword (maxlen)
Dimer Strnewpass
Schwaches WhatsNext, obere, untere, intcounter
Randomisieren
Für intcounter = 1 bis maxlen
whatsNext = int ((1 - 0 + 1) * rnd + 0)
If (WhatsNext = 0) dann
'Charakter
obere = 90
niedriger = 65
ANDERS
obere = 57
niedriger = 48
Ende wenn
Strnewpass = Strnewpass & chrt (int ((obere - untere + 1) * rnd + unter))
Nächste
makePassword = striewpass
Endfunktion
'Response.write makePassword (8)
%>
#T = Halten Sie das Format inhtml beim Ausfüllen von Textbereich
<%
"=======================================================================================================================================ieben
Entfernen Sie das HTML
'Hinweis: value = "?" Dies muss hier doppelte Zitate sein
"=======================================================================================================================================ieben
Funktion inhtml (str)
Dim Stemp
stemp = str
inhtml = ""
Wenn isnull (stemp) = true dann
Ausgangsfunktion
Ende wenn
stemp = ersetzen (STEMP, "&", "&")
stemp = ersetzen (STEMP, ","
", chr (13))
stemp = ersetzen (Stemp, "<", "<")
stemp = ersetzen (STEMP, ">", ">")
STEMP = Ersetzen (STEMP, "", CHR (34))
inhtml = stemp
Endfunktion
%>
#T = reguläre Tabellexpressionsüberprüfungsfunktion
<%
'reguläre Tabellenexpressionsüberprüfungsfunktion patrn-reguläre Expression Strng-String, um dies zu verifizieren
"=======================================================================================================================================ieben
Funktion Regexptest (Patrn, Strng)
Dim Regex, Retval 'Variable erstellen.
Setzen Sie Regex = New Regexp 'Erstellen Sie regelmäßige Ausdruck.
regex.pattern = patrn 'set modus.
regex.ignorecase = false 'Stellen Sie fest, ob es sich um einen Fall sensibel handelt.
retval = regex.test (STRNG) 'Führen Sie einen Suchtest durch.
Regexptest = retval 'Rückgabewert, wenn er nicht übereinstimmt, gibt er false zurück, wenn er übereinstimmt
REGEX einstellen = nichts
Endfunktion
%>
#T = zufällige Zeichenfolgen erzeugen
<%
'Erzeugen Sie zufällige Zeichenfolgen
Funktion RndCode ()
Dim Codeset, Mengenset
Codeset = "0123456789abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz"
Menset = 62 'Anzahl der Texte
Randomisieren
Dim Vcode (10), vcodes, i
Für i = 0 bis 9
vcode (i) = int (RND * -Müheset)
vcodes = vcodes & Mid (Codeset, VCode (i) + 1, 1)
Nächste
RndCode = vcodes
Endfunktion
%>
#T ================================================
#T = FSO-bezogene Operationen
#T = Bestimmen Sie, ob das Verzeichnis existiert
<%
Funktion isFroderexist (StrFoldername)
Setzen Sie fso = server.createObject ("scripting.FilesSystemObject").
If (fso.Forterexists (strFoldername)) dann
IsFloderexist = true
ANDERS
IsFloderexist = false
Ende wenn
Setzen Sie fso = nichts
Endfunktion
%>
#T = Verzeichnis erstellen
<%
Funktion createFolder (StrFoldername)
Setzen Sie fso = server.createObject ("scripting.FilesSystemObject").
If (fso.FORDEREXISTS (strFoldername) = false) dann
FSO.CreateFolder (StrFoldername)
Ende wenn
Setzen Sie fso = nichts
Endfunktion
%>
#T = Verzeichnis löschen
<%
Funktion DeleteFolder (StrFoldername)
Setzen Sie fso = server.createObject ("scripting.FilesSystemObject").
If (fso.Forterexists (strFoldername)) dann
Fso.deleteFolder (StrFoldername)
Ende wenn
Setzen Sie fso = nichts
Endfunktion
%>
#T = Bestimmen Sie, ob die Datei existiert
<%
Funktion isFileExist (Strfilename)
Setzen Sie fso = server.createObject ("scripting.FilesSystemObject").
If (fso.FileExists (strFileName)) dann
IsFileExist = true
ANDERS
IsFileExist = false
Ende wenn
Setzen Sie fso = nichts
Endfunktion
%>
#T = Datei löschen
<%
Funktion DeleteFile (Strfilename)
Setzen Sie fso = server.createObject ("scripting.FilesSystemObject").
If (fso.FileExists (strFileName)) dann
Fso.deleteFile (strFileName)
Ende wenn
Setzen Sie fso = nichts
Endfunktion
%>
#T ================================================
#T = mehrere Funktionen, die üblicherweise von ASP -Dieben verwendet werden
<%
Funktion bytetostr (vin)
Dim Streturn, i, thischarcode, Innercode, Hight8, Low8, NextCharcode
Streturn = ""
Für i = 1 bis lenb (vin)
Thischarcode = ascb (Midb (vin, i, 1))
If (thischarCode <& h80) dann
Streturn = Streturn & chrt (thisharcode)
ANDERS
NextCharcode = ASCB (Midb (Vin, I+1,1))
Streturn = Streturn & chrt (clng (thischarcode) * & h100 + cint (NextCharCode))
i = i + 1
Ende wenn
Nächste
BytetoStr = Streturn
Endfunktion
Funktion GethttppageContent (URL, Methode, SendStr)
Schwaches Abruf
Retrieval = server.createObject ("microsoft.xmlhttp") festlegen.
Mit Abruf
.Open Methode, URL, falsch, "," ""
.SetRequestheader "Content-Typ", "Anwendung/x-www-form-urlencoded"
.Send (sendstr)
GethttppageContent = .ResponseBody
Enden mit
Retrieval einstellen = nichts
GethttppageContent = bytetoStr (GethttppageContent)
Endfunktion
Funktion Regexptext (STRNG, Regstr)
Dim Regex, Match, Matches, Retstr
Setzen Sie Regex = New Regexp
regex.pattern = regstr
regex.ignorecase = true
regex.global = true
Setzen Sie Matches = regex.execute (strng)
Für jedes Spiel in Spielen
RETSTR = RETSTR & REGEX.REPLACE (match.value, "$ 1") & ",", ",", ",", ",", ",", ",", ",", ",", ",", ",", ",", ","
Nächste
Regexptext = retstr
REGEX = nichts setzen
Endfunktion
Funktion StreamByTestObstr (Strkody, Codebasis)
Dimer Objstream
Setzen Sie objstream = server.createObject ("adodb.stream")
Mit objstream
.Type = 1
.Mode = 3
.Offen
. Schreiben Sie Strkbody
.Position = 0
.Type = 2
.CharSet = Codebase
StreamByTestObstr = .readText
.Schließen
Enden mit
Objstream einstellen = nichts
Endfunktion
%>
Durch die Bearbeitungsdatei über Editplus, die vom Herausgeber des 未分 neuen Technologiekanals eingeführt wurde, glaube ich, dass jeder ein gewisses Verständnis hat. Wenn Sie mehr technische Inhalte wissen möchten, achten Sie bitte weiter auf den 未分 neuen Technologiekanal!