Совместное использование некоторых функций ASP, имитирующих PHP, в основном предназначено для удобства друзей, которые сначала изучают PHP, а затем изучают ASP. Скопируйте код кода следующим образом:
'Процесс: выходная строка [заменяет Response.Write]
Субэхо (Str)
ответ.Запись(Str)
Конец субтитра
'Функция: Получить форму [заменяет Request.Form]
Функция reqf(Str)
reqf = Запрос.Форма(Str)
Конечная функция
'Процесс: завершить страницу и вывести строку
Сабди (Str)
ответ.Запись(Str)
ответ.Конец()
Конец субтитра
'Функция: вернуть результат запуска файла ASP в виде строки
Функция ob_get_contents(Путь)
Dim tmp, a, b, t, спичек, м
Дим ул.
Str = file_iread (Путь)
tmp = dim htm : htm = &vbCrLf
а = 1
b = InStr(a, Str, <%) + 2
В то время как b > a + 1
t = Mid(Str, a, b - a -2)
т = Заменить(т, vbCrLf, {::vbcrlf})
т = Заменить(т, vbCr, {::vbcr})
т = Заменить(т, , )
tmp = tmp & htm = htm & & t & & vbCrLf
а = InStr(b, Str, %/>) + 2
tmp = tmp & str_replace(^/s*=, Mid(Str, b, a - b -2), htm = htm & ) & vbCrLf
b = InStr(a, Str, <%) + 2
Венд
т = Середина(Str, а)
т = Заменить(т, vbCrLf, {::vbcrlf})
т = Заменить(т, vbCr, {::vbcr})
т = Заменить(т, , )
tmp = tmp & htm = htm & & t & & vbCrLf
tmp = Заменить(tmp, response.write, htm = htm &, 1, -1, 1)
tmp = Заменить (tmp, echo, htm = htm &, 1, -1, 1)
'выполнить(tmp)
выполнитьглобально (tmp)
htm = Заменить(htm, {::vbcrlf}, vbCrLf)
htm = Заменить(htm, {::vbcr}, vbCr)
ob_get_contents = htm
Конечная функция
'Процесс: динамически включать файлы
Включить (Путь)
эхо ob_get_contents (Путь)
Конец субтитра
'Функция: шифрование base64
Функция base64encode(byval Str)
Если IsNull(Str), то выйти из функции
Тусклая база64
Установить base64 = Новый base64_class
Стр = base64.encode(Str)
Установить base64 = Ничего
base64encode = Стр
Конечная функция
'Функция: расшифровка base64
Функция base64decode(byvalStr)
Если IsNull(Str), то выйти из функции
Тусклая база64
Установить base64 = Новый base64_class
Str = base64.decode(Str)
Установить base64 = Ничего
base64decode = Стр
Конечная функция
'Функция: шифрование URL
Функция urlencode(byvalStr)
Если IsNull(Str), то выйти из функции
Str = server.URLEncode(Str)
урленкод = Str
Конечная функция
'Функция: избежать шифрования
Функция escape (byval Str)
Если IsNull(Str), то выйти из функции
Дим я, с, а, тмп
tmp=
Для i = 1 To Len(Str)
c = Mid(Str, i, 1)
а = по возрастанию (с)
Если (a>= 48 и a<= 57) Или (a>= 65 И a<= 90) Или (a>= 97 И a<= 122) Тогда
tmp = tmp&c
ElseIf InStr(@*_+-./, c) > 0 Тогда
tmp = tmp&c
ИначеЕсли a>0 и a<16 Тогда
tmp = tmp & %0 & Hex(a)
ИначеЕсли a>= 16 и a<256 Тогда
tmp = tmp & % & Hex(a)
Еще
tmp = tmp & %u & Hex(a)
Конец, если
Следующий
escape=tmp
Конечная функция
'Функция: избежать расшифровки
Функция unescape(byval Str)
Если IsNull(Str), то выйти из функции
Дим я, с, тмп
tmp=
Для i = 1 To Len(Str)
c = Mid(Str, i, 1)
Если Mid(Str, i, 2) = %u И i<= Len(Str) -5 Тогда
Если IsNumeric(&H & Mid(Str, i + 2, 4)) Тогда
tmp = tmp & chrw(CInt(&H & Mid(Str, i + 2, 4)))
я = я + 5
Еще
tmp = tmp&c
Конец, если
ИначеЕсли c = % И i<= Len(Str) -2 Тогда
Если IsNumeric(&H & Mid(Str, i + 1, 2)) Тогда
tmp = tmp & chrw(CInt(&H & Mid(Str, i + 1, 2)))
я = я + 2
Еще
tmp = tmp&c
Конец, если
Еще
tmp = tmp&c
Конец, если
Следующий
unescape = tmp
Конечная функция