UnicodeでDOMするには (ID:139453)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

ASPファイルをUTF-8化したつもりで検証を行ったところ。今度は何も書き込まれなくなりました。どこぞやのページにUTF-8はRequest.Formが動作しないとありましたが、それが原因でしょうか。ちなみにUTF-8の部分をUTF-16に変えて検証したところ、書込はされるものの内容は「&amp;#60726;」になります。
<%@Language="VBScript" CODEPAGE=65001%>
<?xml version="1.0" encoding="UTF-8" standalone="no"?>
<HTML xmlns="http://www.w3.org/1999/xhtml" xml:lang="ja" lang="ja">
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; CHARSET=UTF-8">
<TITLE>DOM-TEST</TITLE>
</HEAD>
<BODY>

<% Session.CodePage = 65001 %>

<%
 '各種パス
 Const sDefFile = "D:\hensyu\TanConTest\Def.xml"'読み出し元
 Const sTraFile = "D:\hensyu\TanConTest\Tra.xml"'作成用
 'XPath(必要最小限を記載)
    Const sXPath = "DATA/MOJI"
  
 dim sData
  
 'フォームのデータを参照
 sData = Request.Form("t_moji")

'DOM宣言
 Dim xDoc
 Set xDoc = Server.CreateObject("MSXML2.FreeThreadedDOMDocument.3.0") 
 xDoc.async = False
 xDoc.validateOnParse = False
 xDoc.load(sDefFile)
  
 'DOM編集
 xDoc.SelectSingleNode(sXPath).Text = sData

'XML保存
 Const adTypeText = 2
 Const adSaveCreateOverWrite = 2
 With Server.CreateObject("ADODB.Stream")
  .Type = adTypeText
  .Charset = "UTF-16"
  .Open
  .WriteText xDoc.XML
  .SaveToFile sTraFile , adSaveCreateOverWrite
  .Close
 End With
  
  
 'DOM開放
 Set xDoc = Nothing

←解決時は質問者本人がここをチェックしてください。

戻る