latest.asp

来自「You may have heard the Latest Brief web 」· ASP 代码 · 共 25 行

<%@ LANGUAGE=VBScript %>
<%
Option Explicit
On Error Resume Next

Dim oReader
Set oReader = CreateObject("MSSOAP.SoapReader30")
oReader.Load Request

Dim oFileSys
Set oFileSys = CreateObject("Scripting.FileSystemObject")

Dim oFile
Set oFile = oFileSys.CreateTextFile("c:\temp\SoapMsg.txt", true, true)
oFile.Write "SoapMsg: " & chr(13) & chr(10) & oReader.DOM.xml & chr(13) & chr(10)
oFile.Write "SoapAction: " & chr(13) & chr(10) & oReader.soapAction & chr(13) & chr(10)
oFile.Close

Set oFile = Nothing
Set oFileSys = Nothing
Set oReader = Nothing

%>