今日、私が検索バーでUTF-8プログラムを修正していたとき、生成されたUTF-8形式のドキュメントにはコードが刻まれており、元のファイルはコードがあることがわかりました。
create_html.aspのコードは次のとおりです。
コードコピーは次のとおりです。
<％@言語= "vbscript" codepage = "65001"％>
<％
setobjrs = server.createObject（ "scripting.filesystemobject"）
conn = server.mappath（ "emple.xml"）
setStream = objrs.opentextfile（conn、1、true、-2）
content = stream.readall
Response.write（content）
stream.close
％>
このコードを実装する関数は、example.xml（utf-8形式）の中国語を含むテキストを読み取り、その後出力しますが、出力がガーブルになるたびに出力します。この問題は本当に長い間私を悩ませました。その後、古典的なフォーラム「Xiao Han」と「Xiao Xiaoyu」の助けを借りて解決されました。ありがとう。
最初は間違っていたかもしれませんが、今では正しいコードが次のように変更されています。「Xiao Xiaoyu」で指定されたコードを使用して、読み取りコンテンツを使用して新しいUTF-8形式のドキュメントを生成します。詳細なコードは次のとおりです。
コードコピーは次のとおりです。
<％@言語= "vbscript" codepage = "65001"％>
<％Response.CodePage = 65001％>
<％response.charset = "utf-8"％>
<％
'変数を宣言します
dimread_path、write_paht、content
'----Read the file content--------------------------------------------------------------------------------------------------------------------
functionreadtextfile（filepath、charset）
dimstm
setStm = server.createObject（ "adodb.stream"）
stm.type = 1'adtypebinary、バイナリデータに従って読み取ります
stm.mode = 3'admodereadwriteでは、ここでは他の人を使用するために3つだけ使用でき、エラーを引き起こします。
stm.open
stm.loadfromfilefilepath
stm.position = 0'ポインターを出発点に戻します
stm.type = 2'textデータ
stm.charset = charset
readTextFile = stm.readText
stm.close
setStm = Nothing
エンド機能
'---ファイルに書き込みます-------------------------------------
subwriteTextfile（filepath、filecontent、charset）
dimstm
setStm = server.createObject（ "adodb.stream"）
stm.type = 2'adtypetext、テキストデータ
stm.mode = 3'admodereadwrite、読み取りと書き込み、このパラメーターが2を使用すると、エラーが発生します。