今日、私が検索バーで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を使用すると、エラーが発生します。