用ASP、VB和XML建立互联网应用程序(2)

让我们先分析一下客户端/服务器应用程序。在一个标准的客户端/服务器应用程序中，在应用程序开始时，你能够初始化数据库连接字符串，这就意味着，客户有使用数据库连接字符串的权利，这包括用户名和口令。但是客观情况如果不允许你在网络上发送这些信息的话，你就必需在不联接数据库的情况下直接从客户端取得数据发送给客户。那么解决方案之一就是在服务器上创建一个ASP页（在本例中称为getData.asp）接收特定格式的POST数据，它要求一个包含xml(标准化越来越近了)字符串，用来创建ADO对象并运行存储过程或动态SQL语句命令。如果信息有效的话，getData.asp执行存储过程，并返回一个xml(标准化越来越近了)格式的数据集、返回值列表或错误页面信息的xml(标准化越来越近了)字符串。对于返回数据的命令，客户端要么重新实例化要么返回值或使用xml(标准化越来越近了) DOM(Document Object Model文档对象模型）格式的错误页面。

　　好，下面就让我们来讨论一下如何实现这个页面吧！

　　getData.asp页面首先使用一个DOMDocument对象来保存客户端发送的数据：

　　创建DOMDocument对象
　　Set xml(标准化越来越近了) = Server.CreateObject ("msxml(标准化越来越近了)2.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