1

私は自分の ASP ページに投稿要求を送信しています。この方法でファイルを読み取るためのパラメーターを使用します。

station = request.form("station")
StationFolderPath = currentDir & "iPhoneListener\Locations\" & station
fs.FolderExists(StationFolderPath)

英字で問題ありません。しかし、ヘブライ文字を送信すると、フォルダーが見つかりません。私はこれでそれをチェックしました

response.write(right(station,6))

そして得た：誰かがこれを通常の文字#1497にエンコードする方法を知っているかもしれません.&#1497

ありがとう

4

1 に答える 1

0

ここから HTML Decode 関数を使用して、コードの最初の行を station = HTMLDecode(request.form("station")) に変更できます。

Function HTMLDecode(sText)
    Dim regEx
    Dim matches
    Dim match
    sText = Replace(sText, """, Chr(34))
    sText = Replace(sText, "<"  , Chr(60))
    sText = Replace(sText, ">"  , Chr(62))
    sText = Replace(sText, "&" , Chr(38))
    sText = Replace(sText, " ", Chr(32))


    Set regEx= New RegExp

    With regEx
     .Pattern = "&#(\d+);" 'Match html unicode escapes
     .Global = True
    End With

    Set matches = regEx.Execute(sText)

    'Iterate over matches
    For Each match in matches
        'For each unicode match, replace the whole match, with the ChrW of the digits.

        sText = Replace(sText, match.Value, ChrW(match.SubMatches(0)))
    Next

    HTMLDecode = sText
End Function
于 2012-11-19T06:08:31.997 に答える