0

サーバーにディスク アクセスできないため、リモートの場所から XSL スタイルシートをロードする必要があります。

これの代わりに...

set xsl = Server.CreateObject("MSXML2.DOMDocument")
xsl.async = false
xsl.load(Server.MapPath("xsl.xsl"))

このような XSL スタイルシートをロードすることは可能ですか?

xsl.Open "get", "http://www.example.com/xsl.xsl" , False
xsl.Send

上記が不可能な場合は、スタイルシートを ASP ファイルに内部的に配置できます。もしそうなら、それはどのように達成されますか?

更新 - 完全なコード

Dim xml, xsl, url, url2

url = "https://www.example.xml"
url2 = "http://www.example.com/xsl/xsl.xsl"
Set xml =  Server.CreateObject("Microsoft.XMLHTTP")
xml.Open "get", url, False
xml.Send
Response.ContentType = "text/xml"

set xsl = Server.CreateObject("MSXML2.DOMDocument")
xsl.async = false

xsl.load(Server.MapPath("xsl.xsl"))

'xsl.Open "get", url2, False
'xsl.Send

Response.AddHeader "Content-Type", "text/xml;charset=UTF-8"
Response.CodePage = 65001
Response.CharSet = "UTF-8"
Response.Write xml.responseXML.transformNode(xsl)
4

1 に答える 1

0

試す

Dim req, sheet
Set req = Server.CreateObject("Msxml2.ServerXMLHTTP.6.0")
req.open "GET", "http://example.com/sheet.xsl", False
req.send
If req.status = 200 Then
  Set sheet = req.responseXML
  ...
Else
  '  handle HTTP problems here
End If
于 2013-09-23T08:52:49.237 に答える