📄 latest.asp
字号:
<%@ 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
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -