PHP を模倣した ASP の一部の機能を共有するのは、主に、最初に PHP を学習し、次に ASP を学習する友人の便宜を図るためです。次のようにコードをコピーします。
'プロセス: 出力文字列 [Response.Write を置き換えます]
サブエコー(Str)
応答.書き込み(Str)
エンドサブ
'機能: フォームを取得します [Request.Form を置き換えます]
関数 reqf(Str)
reqf = リクエスト.フォーム(Str)
終了機能
'処理: ページを終了して文字列を出力します
サブディ(Str)
応答.書き込み(Str)
応答.End()
エンドサブ
'機能: 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 = Mid(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 = Mid(Str, a)
t = 置換(t, vbCrLf, {::vbcrlf})
t = 置換(t, vbCr, {::vbcr})
t = 置換(t, , )
tmp = tmp & htm = htm & & t & & vbCrLf
tmp = Replace(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
終了機能
'プロセス: ファイルを動的にインクルードします
サブインクルード(パス)
echo ob_get_contents(パス)
エンドサブ
'機能: Base64暗号化
関数base64encode(byval Str)
IsNull(Str) の場合は関数を終了します
ディムベース64
Base64 = 新しいbase64_class を設定します
Str = Base64.encode(Str)
Base64 = なしを設定します
Base64エンコード = 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) の場合は関数を終了します
ディム i、c、a、tmp
tmp=
For i = 1 To Len(Str)
c = Mid(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
それ以外の場合、a>0 かつ a<16 の場合
tmp = tmp & %0 & Hex(a)
ElseIf a>= 16 And a<256 then
tmp = tmp & % & Hex(a)
それ以外
tmp = tmp & %u & Hex(a)
終了の場合
次
エスケープ=tmp
終了機能
'機能: 復号化をエスケープ
関数 unescape(byval Str)
IsNull(Str) の場合は関数を終了します
薄暗い i、c、tmp
tmp=
For i = 1 To Len(Str)
c = Mid(Str, i, 1)
Mid(Str, i, 2) = %u かつ i<= Len(Str) -5 の場合
If IsNumeric(&H & Mid(Str, i + 2, 4)) then
tmp = tmp & chrw(CInt(&H & Mid(Str, i + 2, 4)))
i = i + 5
それ以外
tmp = tmp&c
終了の場合
ElseIf c = % And i<= Len(Str) -2 then
If IsNumeric(&H & Mid(Str, i + 1, 2)) then
tmp = tmp & chrw(CInt(&H & Mid(Str, i + 1, 2)))
i = i + 2
それ以外
tmp = tmp&c
終了の場合
それ以外
tmp = tmp&c
終了の場合
次
アンエスケープ = tmp
終了機能