快精灵印艺坊 您身边的文印专家
广州名片 深圳名片 会员卡 贵宾卡 印刷 设计教程
产品展示 在线订购 会员中心 产品模板 设计指南 在线编辑
 首页 名片设计   CorelDRAW   Illustrator   AuotoCAD   Painter   其他软件   Photoshop   Fireworks   Flash  

 » 彩色名片
 » PVC卡
 » 彩色磁性卡
 » 彩页/画册
 » 个性印务
 » 彩色不干胶
 » 明信片
   » 明信片
   » 彩色书签
   » 门挂
 » 其他产品与服务
   » 创业锦囊
   » 办公用品
     » 信封、信纸
     » 便签纸、斜面纸砖
     » 无碳复印纸
   » 海报
   » 大篇幅印刷
     » KT板
     » 海报
     » 横幅

用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>"
   Response.end
  End Sub
返回类别: 教程
上一教程: 用ASP实现禁用浏览器的后退按钮
下一教程: WAP中的ASP技术(二)

您可以阅读与"用ASP、VB和XML建立互联网应用程序(2)"相关的教程:
· 用ASP、VB和XML建立互联网应用程序(4)
· 用ASP、VB和XML建立互联网应用程序(1)
· 用ASP、VB和XML建立互联网应用程序(3)
· 使用ASP、VB和XML建立运行于互联网上的应用程序
· 建立三层结构的ASP应用程序
    微笑服务 优质保证 索取样品