Compartir algunas funciones de ASP que imita PHP es principalmente para comodidad de los amigos que primero aprenden PHP y luego aprenden ASP. Copie el código de código de la siguiente manera:
'Proceso: cadena de salida [reemplaza Response.Write]
Sub eco (Str)
respuesta.Escribir(Str)
Subtítulo final
'Función: Obtener el formulario [reemplaza Request.Form]
Solicitud de función (Str)
reqf = Solicitud.Form(Str)
Función final
'Proceso: finalizar la página y generar la cadena
Subdie(Str)
respuesta.Escribir(Str)
respuesta.Fin()
Subtítulo final
'Función: Devuelve el resultado de ejecución del archivo ASP como una cadena
Función ob_get_contents(Ruta)
Dim tmp, a, b, t, fósforos, m
Calle tenue
Str = file_iread(Ruta)
tmp = atenuar htm : htm = &vbCrLf
un = 1
b = InStr(a, Str, <%) + 2
Mientras b > a + 1
t = Medio(Str, a, b - a -2)
t = Reemplazar(t, vbCrLf, {::vbcrlf})
t = Reemplazar(t, vbCr, {::vbcr})
t = Reemplazar(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
Encaminarse a
t = Medio(Str, a)
t = Reemplazar(t, vbCrLf, {::vbcrlf})
t = Reemplazar(t, vbCr, {::vbcr})
t = Reemplazar(t, , )
tmp = tmp & htm = htm & & t & & vbCrLf
tmp = Reemplazar (tmp, respuesta.escribir, htm = htm &, 1, -1, 1)
tmp = Reemplazar(tmp, echo, htm = htm &, 1, -1, 1)
'ejecutar(tmp)
ejecutarglobal(tmp)
htm = Reemplazar(htm, {::vbcrlf}, vbCrLf)
htm = Reemplazar(htm, {::vbcr}, vbCr)
ob_get_contents = htm
Función final
'Proceso: incluir archivos dinámicamente
Subincluir(Ruta)
echo ob_get_contents(Ruta)
Subtítulo final
'Función: cifrado base64
Función base64encode (byval Str)
Si IsNull(Str) entonces salga de la función
Base tenue64
Establecer base64 = Nueva base64_class
Cadena = base64.encode(Cadena)
Establecer base64 = Nada
codificación base64 = cadena
Función final
'Función: descifrado base64
Función base64decode(byvalStr)
Si IsNull(Str) entonces salga de la función
Base tenue64
Establecer base64 = Nueva base64_class
Cadena = base64.decode(Cadena)
Establecer base64 = Nada
código base64 = cadena
Función final
'Función: cifrado de URL
Código de URL de función (byvalStr)
Si IsNull(Str) entonces salga de la función
Cadena = servidor.URLEncode(Cadena)
código URL = str
Función final
'Función: escapar del cifrado
Función de escape (byval Str)
Si IsNull(Str) entonces salga de la función
Dim i, c, a, tmp
tmp=
Para i = 1 a Len(Str)
c = Medio(Str, i, 1)
a = ascw(c)
Si (a>= 48 y a<= 57) o (a>= 65 y a<= 90) o (a>= 97 y a<= 122) entonces
tmp = tmp&c
ElseIf InStr(@*_+-./, c) > 0 Entonces
tmp = tmp&c
De lo contrario, si a>0 y a<16, entonces
tmp = tmp y %0 y hexadecimal(a)
De lo contrario, si a>= 16 y a<256, entonces
tmp = tmp & % & Hexadecimal(a)
Demás
tmp = tmp y %u y hexadecimal(a)
Terminar si
Próximo
escapar=tmp
Función final
'Función: escapar del descifrado
Función unescape(byval Str)
Si IsNull(Str) entonces salga de la función
Dim i, c, tmp
tmp=
Para i = 1 a Len(Str)
c = Medio(Str, i, 1)
Si Mid(Str, i, 2) = %u y i<= Len(Str) -5 Entonces
Si es numérico (& H & Mid (Str, i + 2, 4)) entonces
tmp = tmp & chrw(CInt(&H & Mid(Str, i + 2, 4)))
yo = yo + 5
Demás
tmp = tmp&c
Terminar si
De lo contrario, si c = % y i<= Len(Str) -2 entonces
Si es numérico (& H & Mid (Str, i + 1, 2)) entonces
tmp = tmp & chrw(CInt(&H & Mid(Str, i + 1, 2)))
yo = yo + 2
Demás
tmp = tmp&c
Terminar si
Demás
tmp = tmp&c
Terminar si
Próximo
unescape = tmp
Función final