VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 用ASP、VB和XML建立互联网应用程序(2)
发表评论(0)作者:不详, 平台:VB6.0+Win98, 阅读:9711, 日期:2001-07-24
用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 ("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>"