crlf
s = s & "＜command＞＜commandtext＞"
s = s & "CustOrderHist"
s = s & "＜/commandtext＞"
s = s & "＜returnsdata＞" &True＜/returnsdata＞"
s = s & "＜param＞"
s = s & "＜name＞CustomerID＜/name＞"
s = s & "＜type＞＜%=adVarChar%＞＜/type＞"
s = s & "＜direction＞" & ＜%=adParamInput%＞＜/direction＞"
s = s & "＜size＞" & len(CustomerID)& "＜/size＞"
s = s & "＜value＞" & CustomerID &"＜/value＞"
s = s & "＜/param＞"
s = s & "＜/command＞"
注意，前面的代码都是客户端代码，ADO常量是不在客户端定义的-这就是它们为什么使用＜% %＞标记围起来的原因。服务器在发送响应之前使用正确的值取代它们。getData.asp页有一个Response.ContentType，它的属性为"text/xml",这样，你就可以使用ResponseXML属性来返回结果了。当请求返回纪录，你就可以创建一个Recordset对象并且使用XMLHTTP来打开它：
Dim R
set R = createObject("ADODB.Recordset")
R.open xhttp.responseXML
当查询语句返回数据时，通过设置XMLHTTPRequest对象的responseXML属性来创建一个DOMDocument：
Dim xml
set xml = xhttp.responseXML
输出参数的XML字符串的每个返回值都包含一个元素，它们都是根元素＜values＞的直接子元素，例如：
＜?xml version=""1.0"" encoding=""gb2312""?＞
＜values＞
＜paramname＞value＜/paramname＞
＜paramname＞value＜/paramname＞
＜/values＞
如果你的数据使用别的国家的文字，你可能需要把编码属性用相应的编码替换，例如对于大部分欧洲语言，可以使用ISO-8859-1
客户端页面使用返回的数据来格式化一个HTML字符串用于显示，如：
document.all("details").innerHTML = ＜一些格式化的HTML字符串＞
前面我们已经介绍了使用ASP和XML混合编程，那是因为ASP页面能够很容易让我们看清应用程序正在做什么，但是你如果你不想使用ASP的话，你也可以使用任何你熟悉的技术去创建一个客户端程序。下面，我提供了一段VB代码，它的功能和ASP页面一样，也可以显示相同的数据，但是这个VB程序不会创建发送到服务器的XML字符串。它通过运行一个名叫Initialize的存储过程，从服务器取回XML字符串，来查询ClientCommands表的内容。
ClientCommands表包括两个域：command_name域和command_xml域。客户端程序需
s = s & "＜command＞＜commandtext＞"
s = s & "CustOrderHist"
s = s & "＜/commandtext＞"
s = s & "＜returnsdata＞" &True＜/returnsdata＞"
s = s & "＜param＞"
s = s & "＜name＞CustomerID＜/name＞"
s = s & "＜type＞＜%=adVarChar%＞＜/type＞"
s = s & "＜direction＞" & ＜%=adParamInput%＞＜/direction＞"
s = s & "＜size＞" & len(CustomerID)& "＜/size＞"
s = s & "＜value＞" & CustomerID &"＜/value＞"
s = s & "＜/param＞"
s = s & "＜/command＞"
注意，前面的代码都是客户端代码，ADO常量是不在客户端定义的-这就是它们为什么使用＜% %＞标记围起来的原因。服务器在发送响应之前使用正确的值取代它们。getData.asp页有一个Response.ContentType，它的属性为"text/xml",这样，你就可以使用ResponseXML属性来返回结果了。当请求返回纪录，你就可以创建一个Recordset对象并且使用XMLHTTP来打开它：
Dim R
set R = createObject("ADODB.Recordset")
R.open xhttp.responseXML
当查询语句返回数据时，通过设置XMLHTTPRequest对象的responseXML属性来创建一个DOMDocument：
Dim xml
set xml = xhttp.responseXML
输出参数的XML字符串的每个返回值都包含一个元素，它们都是根元素＜values＞的直接子元素，例如：
＜?xml version=""1.0"" encoding=""gb2312""?＞
＜values＞
＜paramname＞value＜/paramname＞
＜paramname＞value＜/paramname＞
＜/values＞
如果你的数据使用别的国家的文字，你可能需要把编码属性用相应的编码替换，例如对于大部分欧洲语言，可以使用ISO-8859-1
客户端页面使用返回的数据来格式化一个HTML字符串用于显示，如：
document.all("details").innerHTML = ＜一些格式化的HTML字符串＞
前面我们已经介绍了使用ASP和XML混合编程，那是因为ASP页面能够很容易让我们看清应用程序正在做什么，但是你如果你不想使用ASP的话，你也可以使用任何你熟悉的技术去创建一个客户端程序。下面，我提供了一段VB代码，它的功能和ASP页面一样，也可以显示相同的数据，但是这个VB程序不会创建发送到服务器的XML字符串。它通过运行一个名叫Initialize的存储过程，从服务器取回XML字符串，来查询ClientCommands表的内容。
ClientCommands表包括两个域：command_name域和command_xml域。客户端程序需
相关文章
 我来说两句 |
对此文章发表了评论 |
评论列表 （最新 评论仅限网友观点！）
推荐文章
