Compartilhar algumas funções do ASP imitando o PHP é principalmente para a conveniência dos amigos que primeiro aprendem PHP e depois aprendem ASP. Copie o código do código da seguinte forma:
'Processo: string de saída [substitui Response.Write]
Subeco(Str)
resposta.Write(Str)
Finalizar sub
'Função: Obter o formulário [substitui Request.Form]
Função reqf(Str)
reqf = Solicitação.Form(Str)
Função final
'Processo: finaliza a página e gera a string
Submorto(Str)
resposta.Write(Str)
resposta.End()
Finalizar sub
'Função: Retorna o resultado da execução do arquivo ASP como uma string
Função ob_get_contents(Caminho)
Dim tmp, a, b, t, correspondências, m
Rua Dim
Str = arquivo_iread(Caminho)
tmp = dim htm : htm = &vbCrLf
uma = 1
b = InStr(a, Str, <%) + 2
Enquanto b > a + 1
t = Médio(Str, a, b - a -2)
t = Substituir(t, vbCrLf, {::vbcrlf})
t = Substituir(t, vbCr, {::vbcr})
t = Substituir (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 = Médio (Str, a)
t = Substituir(t, vbCrLf, {::vbcrlf})
t = Substituir(t, vbCr, {::vbcr})
t = Substituir (t, , )
tmp = tmp & htm = htm & & t & & vbCrLf
tmp = Substituir (tmp, resposta.write, htm = htm &, 1, -1, 1)
tmp = Substituir (tmp, echo, htm = htm & , 1, -1, 1)
'executar(tmp)
executeglobal(tmp)
htm = Substituir(htm, {::vbcrlf}, vbCrLf)
htm = Substituir(htm, {::vbcr}, vbCr)
ob_get_contents=htm
Função final
'Processo: incluir arquivos dinamicamente
Subincluir (Caminho)
eco ob_get_contents(Caminho)
Finalizar sub
'Função: criptografia base64
Função base64encode(byval Str)
Se IsNull (Str) então sai da função
Escurecer base64
Definir base64 = Nova base64_class
Str = base64.encode(Str)
Definir base64 = Nada
código base64 = Str
Função final
'Função: descriptografia base64
Função base64decode(byvalStr)
Se IsNull (Str) então sai da função
Escurecer base64
Definir base64 = Nova base64_class
Str = base64.decode(Str)
Definir base64 = Nada
base64decode=Str
Função final
'Função: criptografia de URL
Função urlencode(byvalStr)
Se IsNull (Str) então sai da função
Str = servidor.URLEncode(Str)
urlencode=Str
Função final
'Função: Escape da criptografia
Função escape (byval Str)
Se IsNull (Str) então sai da função
Dim i, c, a, tmp
tmp =
Para i = 1 para Len(Str)
c = Médio (Str, i, 1)
a = ascw(c)
Se (a>= 48 E a<= 57) Ou (a>= 65 E a<= 90) Ou (a>= 97 E a<= 122) Então
tmp = tmp&c
ElseIf InStr(@*_+-./, c) > 0 Então
tmp = tmp&c
ElseIf a>0 E a<16 Then
tmp = tmp &% 0 & hexadecimal (a)
ElseIf a>= 16 E a<256 Então
tmp = tmp &% & hexadecimal (a)
Outro
tmp = tmp & %u & Hex(a)
Terminar se
Próximo
escape=tmp
Função final
'Função: Escape da descriptografia
Função sem escape (byval Str)
Se IsNull (Str) então sai da função
Dim i, c, tmp
tmp =
Para i = 1 para Len(Str)
c = Médio (Str, i, 1)
Se Mid(Str, i, 2) = %u E i<= Len(Str) -5 Então
Se IsNumeric(&H & Mid(Str, i + 2, 4)) Então
tmp = tmp & chrw(CInt(&H & Mid(Str, i + 2, 4)))
eu = eu + 5
Outro
tmp = tmp&c
Terminar se
ElseIf c =% E i<= Len(Str) -2 Então
Se IsNumeric(&H & Mid(Str, i + 1, 2)) Então
tmp = tmp & chrw(CInt(&H & Mid(Str, i + 1, 2)))
eu = eu + 2
Outro
tmp = tmp&c
Terminar se
Outro
tmp = tmp&c
Terminar se
Próximo
remover escape = tmp
Função final