PHP를 모방한 ASP의 일부 기능을 공유하는 것은 주로 PHP를 먼저 배우고 나중에 ASP를 배우는 친구들의 편의를 위한 것입니다. 다음과 같이 코드 코드를 복사합니다.
'프로세스: 출력 문자열 [Response.Write 대체]
서브 에코(Str)
응답.쓰기(Str)
서브 끝
'기능: 양식 가져오기 [Request.Form 대체]
함수 reqf(Str)
reqf = 요청.양식(Str)
기능 종료
'프로세스: 페이지를 종료하고 문자열을 출력합니다.
서브다이(Str)
응답.쓰기(Str)
응답.끝()
서브 끝
'기능: ASP 파일 실행 결과를 문자열로 반환합니다.
함수 ob_get_contents(경로)
희미한 tmp, a, b, t, 일치, m
희미한 강도
Str = file_iread(경로)
tmp = 희미한 htm : htm = &vbCrLf
a = 1
b = InStr(a, Str, <%) + 2
b > a + 1인 동안
t = 중간(Str, a, b - a -2)
t = 바꾸기(t, vbCrLf, {::vbcrlf})
t = 바꾸기(t, vbCr, {::vbcr})
t = 대체(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
향하게 하다
t = 중간(Str,a)
t = 바꾸기(t, vbCrLf, {::vbcrlf})
t = 바꾸기(t, vbCr, {::vbcr})
t = 대체(t, , )
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 설정
Str = base64.encode(Str)
base64 = 없음으로 설정
base64encode = Str
기능 종료
'기능: base64 암호 해독
함수 base64decode(byvalStr)
IsNull(Str)이면 함수 종료
희미한 베이스64
base64 = 새 base64_class 설정
Str = base64.decode(Str)
base64 = 없음으로 설정
base64decode = Str
기능 종료
'기능: URL 암호화
함수 urlencode(byvalStr)
IsNull(Str)이면 함수 종료
Str = 서버.URLEncode(Str)
urlencode = Str
기능 종료
'기능: 암호화 탈출
함수 탈출(byval Str)
IsNull(Str)이면 함수 종료
나는, c, a, tmp를 어둡게
TMP=
i = 1에서 Len(Str)으로
c = 중간(Str, i, 1)
a = ascw(c)
(a>= 48 그리고 a<= 57) 또는 (a>= 65 그리고 a<= 90) 또는 (a>= 97 그리고 a<= 122) 그러면
tmp = tmp&c
ElseIf InStr(@*_+-./, c) > 0 Then
tmp = tmp&c
ElseIf a>0 그리고 a<16 그러면
tmp = tmp & %0 & 16진수(a)
ElseIf a>= 16 And a<256 Then
tmp = tmp & % & 16진수(a)
또 다른
tmp = tmp & %u & 16진수(a)
종료 조건
다음
탈출=tmp
기능 종료
'기능: 이스케이프 암호 해독
이스케이프 해제 기능(byval Str)
IsNull(Str)이면 함수 종료
나는, c, tmp를 어둡게 한다
TMP=
i = 1에서 Len(Str)으로
c = 중간(Str, i, 1)
Mid(Str, i, 2) = %u And i<= Len(Str) -5 그러면
If IsNumeric(&H & Mid(Str, i + 2, 4)) 그러면
tmp = tmp & chrw(CInt(&H & Mid(Str, i + 2, 4)))
나는 = 나는 + 5
또 다른
tmp = tmp&c
종료 조건
ElseIf c = % And i<= Len(Str) -2 Then
If IsNumeric(&H & Mid(Str, i + 1, 2)) 그러면
tmp = tmp & chrw(CInt(&H & Mid(Str, i + 1, 2)))
나는 = 나는 + 2
또 다른
tmp = tmp&c
종료 조건
또 다른
tmp = tmp&c
종료 조건
다음
이스케이프 해제 = tmp
기능 종료