Das Teilen einiger Funktionen von ASP, die PHP imitieren, dient hauptsächlich der Bequemlichkeit von Freunden, die zuerst PHP und dann ASP lernen. Kopieren Sie den Codecode wie folgt:
'Prozess: Ausgabezeichenfolge [ersetzt Response.Write]
Unterecho(Str)
Antwort.Write(Str)
Sub beenden
'Funktion: Formular abrufen [ersetzt Request.Form]
Funktion reqf(Str)
reqf = Request.Form(Str)
Funktion beenden
'Prozess: Seite beenden und String ausgeben
Subdie(Str)
Antwort.Write(Str)
Antwort.End()
Sub beenden
'Funktion: Gibt das Ergebnis der Ausführung der ASP-Datei als Zeichenfolge zurück
Funktion ob_get_contents(Pfad)
Dimmen Sie tmp, a, b, t, Übereinstimmungen, m
Dim Str
Str = file_iread(Pfad)
tmp = dim htm : htm = &vbCrLf
a = 1
b = InStr(a, Str, <%) + 2
Während b > a + 1
t = Mid(Str, a, b - a -2)
t = Ersetzen(t, vbCrLf, {::vbcrlf})
t = Ersetzen(t, vbCr, {::vbcr})
t = Ersetzen(t, , )
tmp = tmp & htm = htm & & t & & vbCrLf
a = InStr(b, Str, %/>) + 2
tmp = tmp & str_replace(^/s*=, Mid(Str, b, a - b -2), htm = htm & ) & vbCrLf
b = InStr(a, Str, <%) + 2
Wend
t = Mid(Str, a)
t = Ersetzen(t, vbCrLf, {::vbcrlf})
t = Ersetzen(t, vbCr, {::vbcr})
t = Ersetzen(t, , )
tmp = tmp & htm = htm & & t & & vbCrLf
tmp = Ersetzen(tmp, Response.write, htm = htm & , 1, -1, 1)
tmp = Ersetzen(tmp, echo, htm = htm & , 1, -1, 1)
'execute(tmp)
executeglobal(tmp)
htm = Ersetzen(htm, {::vbcrlf}, vbCrLf)
htm = Ersetzen(htm, {::vbcr}, vbCr)
ob_get_contents = htm
Funktion beenden
'Prozess: Dateien dynamisch einbinden
Subinclude(Pfad)
echo ob_get_contents(Pfad)
Sub beenden
'Funktion: Base64-Verschlüsselung
Funktion base64encode(byval Str)
Wenn IsNull(Str), dann Funktion beenden
Dimmen Sie base64
Setze base64 = Neue base64_class
Str = base64.encode(Str)
Setze base64 = Nichts
base64encode = Str
Funktion beenden
'Funktion: Base64-Entschlüsselung
Funktion base64decode(byvalStr)
Wenn IsNull(Str), dann Funktion beenden
Dimmen Sie base64
Setze base64 = Neue base64_class
Str = base64.decode(Str)
Setze base64 = Nichts
base64decode = Str
Funktion beenden
'Funktion: URL-Verschlüsselung
Funktion urlencode(byvalStr)
Wenn IsNull(Str), dann Funktion beenden
Str = server.URLEncode(Str)
URL-Code = Str
Funktion beenden
'Funktion: Escape-Verschlüsselung
Funktion Escape(byval Str)
Wenn IsNull(Str), dann Funktion beenden
Dim i, c, a, tmp
tmp=
Für i = 1 Zu Len(Str)
c = Mid(Str, i, 1)
a = ascw(c)
Wenn (a>= 48 und a<= 57) oder (a>= 65 und a<= 90) oder (a>= 97 und a<= 122) dann
tmp = tmp&c
ElseIf InStr(@*_+-./, c) > 0 Then
tmp = tmp&c
ElseIf a>0 And a<16 Then
tmp = tmp & %0 & Hex(a)
ElseIf a>= 16 And a<256 Then
tmp = tmp & % & Hex(a)
Anders
tmp = tmp & %u & Hex(a)
Ende wenn
Nächste
escape=tmp
Funktion beenden
'Funktion: Escape-Entschlüsselung
Funktion unescape(byval Str)
Wenn IsNull(Str), dann Funktion beenden
Dim i, c, tmp
tmp=
Für i = 1 Zu Len(Str)
c = Mid(Str, i, 1)
Wenn Mid(Str, i, 2) = %u und i<= Len(Str) -5 dann
If IsNumeric(&H & Mid(Str, i + 2, 4)) Then
tmp = tmp & chrw(CInt(&H & Mid(Str, i + 2, 4)))
ich = ich + 5
Anders
tmp = tmp&c
Ende wenn
ElseIf c = % And i<= Len(Str) -2 Then
If IsNumeric(&H & Mid(Str, i + 1, 2)) Then
tmp = tmp & chrw(CInt(&H & Mid(Str, i + 1, 2)))
ich = ich + 2
Anders
tmp = tmp&c
Ende wenn
Anders
tmp = tmp&c
Ende wenn
Nächste
unescape = tmp
Funktion beenden