好，下面就讓我們來討論一下如何實現這個頁面吧！

getData.asp頁面首先使用一個DOMDocument對象來保存客戶端發送的數據：

'創建DOMDocument對象
Set xml = Server.CreateObject ("msxml2.DOMDocument")
xml.async = False

然后，它裝載POST數據

'裝載POST數據
xml.Load Request
If xml.parseError.errorCode ＜＞ 0 Then
Call responseError ("不能裝載XML信息。" & "Description: " & xml.parseError.reason & "＜br＞Line: " & xml.parseError.Line)
End If

它能夠返回commandtext元素值和returndata或returnvalue元素值。下面我只給出返回commandtext元素值的代碼，其余代碼請參看我下面所附的源程序。

Set N = xml.selectSingleNode("command/commandtext")
If N Is Nothing Then
Call responseError ("缺少 ＜sp_name＞ 參數。")
Else sp_name = N.Text
End If

接著，應該讓頁面創建一個Command對象，讀入所有＜param＞元素，并且為request中的每一個元素創建一個參數。最后，讓頁面打開一個連接使用存儲過程adExecuteNoRecords選項來執行request。

set conn = Server.CreateObject("ADODB.Connection")
conn.Mode=adModeReadWrite
conn.open Application("ConnectionString")
set cm.ActiveConnection=conn
' 返回數據
if not returnsData then
cm.Execute
else
set R = server.CreateObject("ADODB.Recordset")
R.CursorLocation = adUseClient
R.Open cm, ,adOpenStatic, adLockReadOnly
end if

如果能夠返回數據的話，那么returnData變量就為真值，并且把結果數據集返回到客戶端，仍然是一個XML文檔。

if returnsData then
R.Save Response, adPersistXML
if err.number ＜＞ 0 then
call responseError ("數據集發生存儲錯誤" & "在命令'" & CommandText & "': " & Err.Description)
Response.end
end if

如果輸出參數返回值，那么這個頁面將返回一個包含這些值的XML字符串。文檔的根元素是一個＜values＞標記，每一個返回值都有其相應的子元素，如果發生任何錯誤，頁面都會格式化并返回一個包含錯誤信息的XML字符串：

Sub responseError(sDescription)
Response.Write "＜response＞＜data＞錯誤: " & sDescription & "＜/data＞＜/response＞"
Response.end
End Sub