Le partage de certaines fonctions d'ASP imitant PHP est principalement pour la commodité des amis qui apprennent d'abord PHP, puis apprennent ASP. Copiez le code comme suit :
'Processus : chaîne de sortie [remplace Response.Write]
Sous-écho (Str)
réponse.Write(Str)
Fin du sous-marin
'Fonction : Récupérer le formulaire [remplace Request.Form]
Fonction reqf(Str)
reqf = Requête.Form(Str)
Fonction de fin
'Processus : terminer la page et afficher la chaîne
Subdie(Str)
réponse.Write(Str)
réponse.Fin()
Fin du sous-marin
'Fonction : renvoie le résultat de l'exécution du fichier ASP sous forme de chaîne
Fonction ob_get_contents(Chemin)
Dim tmp, a, b, t, matchs, m
Dim Str
Str = file_iread (Chemin)
tmp = faible htm : htm = &vbCrLf
une = 1
b = InStr(a, Str, <%) + 2
Tandis que b > a + 1
t = Milieu (Str, a, b - a -2)
t = Remplacer (t, vbCrLf, {::vbcrlf})
t = Remplacer (t, vbCr, {::vbcr})
t = Remplacer(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
Wende
t = Milieu (Str, a)
t = Remplacer (t, vbCrLf, {::vbcrlf})
t = Remplacer (t, vbCr, {::vbcr})
t = Remplacer(t, , )
tmp = tmp & htm = htm & & t & & vbCrLf
tmp = Remplacer (tmp, réponse.write, htm = htm &, 1, -1, 1)
tmp = Remplacer (tmp, echo, htm = htm & , 1, -1, 1)
'exécuter (tmp)
exécuterglobal(tmp)
htm = Remplacer(htm, {::vbcrlf}, vbCrLf)
htm = Remplacer(htm, {::vbcr}, vbCr)
ob_get_contents = htm
Fonction de fin
'Processus : inclure dynamiquement des fichiers
Sous-inclure (Chemin)
echo ob_get_contents(Chemin)
Fin du sous-marin
'Fonction : cryptage base64
Fonction base64encode (byval Str)
Si IsNull (Str) alors quittez la fonction
Dim base64
Définir base64 = Nouvelle base64_class
Str = base64.encode(Str)
Définir base64 = Rien
base64encode = Str
Fonction de fin
'Fonction : décryptage base64
Fonction base64decode(byvalStr)
Si IsNull (Str) alors quittez la fonction
Dim base64
Définir base64 = Nouvelle base64_class
Str = base64.decode(Str)
Définir base64 = Rien
base64decode = Str
Fonction de fin
'Fonction : cryptage d'URL
Fonction urlencode(byvalStr)
Si IsNull (Str) alors quittez la fonction
Str = serveur.URLEncode(Str)
codeurl = Str
Fonction de fin
'Fonction : Échapper au cryptage
Fonction d'échappement (byval Str)
Si IsNull (Str) alors quittez la fonction
Dim je, c, a, tmp
tmp=
Pour i = 1 À Len(Str)
c = Milieu (Str, je, 1)
a = ascw(c)
Si (a>= 48 et a<= 57) Ou (a>= 65 et a<= 90) Ou (a>= 97 et a<= 122) Alors
tmp = tmp&c
SinonSi InStr (@*_+-./, c) > 0 Alors
tmp = tmp&c
SinonSi a>0 Et a<16 Alors
tmp = tmp & %0 & Hex(a)
SinonSi a>= 16 Et a<256 Alors
tmp = tmp & % & Hex(a)
Autre
tmp = tmp & %u & Hex(a)
Fin si
Suivant
échappement = tmp
Fonction de fin
'Fonction : Échapper au décryptage
Fonction unescape (byval Str)
Si IsNull (Str) alors quittez la fonction
Dim je, c, tmp
tmp=
Pour i = 1 À Len(Str)
c = Milieu (Str, je, 1)
Si Mid(Str, i, 2) = %u Et i<= Len(Str) -5 Alors
Si IsNumeric(&H & Mid(Str, i + 2, 4)) Alors
tmp = tmp & chrw(CInt(&H & Mid(Str, i + 2, 4)))
je = je + 5
Autre
tmp = tmp&c
Fin si
SinonSi c = % Et i<= Len(Str) -2 Alors
Si IsNumeric(&H & Mid(Str, i + 1, 2)) Alors
tmp = tmp & chrw(CInt(&H & Mid(Str, i + 1, 2)))
je = je + 2
Autre
tmp = tmp&c
Fin si
Autre
tmp = tmp&c
Fin si
Suivant
unescape = tmp
Fonction de fin