viewguestbook.asp

网页留言簿源代码

<%
'
' ViewGuestBook.ASP
'
' Chris Eastwood, 2000
'
' http://www.vbcodelibrary.com
'
'
  Dim oSource     ' our XML document
  Dim oStyle      ' our XSL document

'
' Create the XML DOM Object for the XML file
'

  Set oSource = Server.CreateObject("Microsoft.XMLDOM")
  oSource.async = False
'
' Load in the XML file to the DOM object
'
  oSource.Load Server.MapPath("gbook.xml")

'
' Create the XML DOM Object for the XSL Stylesheet
'

  Set oStyle = Server.CreateObject("Microsoft.XMLDOM")
  oStyle.async = False
'
' Load the XSL file into the Style DOM object
'
  oStyle.load Server.MapPath("gbook.xsl")

'
' Write the transformed document out to the browser
'
  Response.Write oSource.TransformNode(oStyle)
'
%>