【BK网络学院 - ASP】
假设在我们前面所说的例子中，我们想在应用程序中显示区域的左半边显示客户的姓名列表，再在每个客户姓名后面加上两个链接：Purchase History和Recent Purchase。当用户点击其中的一个链接，客户程序就会运行一个存储过程并在右边区域显示出结果。 为了显示这个想法的灵活性，我想让用于返回数据的三个操作单元执行不同的工作过程，它们都调用getData.ASP。首先，通过调用CustOrderHist来运行一个存储过程，返回客户的Purchase History，它搜索Northwind数据库（为了方便起见我使用MS SQL中自带的数据库）并返回一个数据集。用于返回Recent Purchase 的查询语句运行一个叫RecentPurchaseByCustomerID的存储过程，来接收输入的CustomerID参数并通过ProductName参数返回最近顾客购买的商品名。定义其处理过程相应SQL语句如下：


　

　CREATE PROCEDURE RecentPurchaseByCustomerID @CustomerID nchar(5), @ProductName nchar(40) output AS SELECT @ProductName = (SELECT top 1 ProductName FROM Products INNER JOIN ([Order Details] INNER JOIN Orders ON Orders.OrderID=[Order Details].OrderID) ON Products.ProductID = [Order Details].ProductID WHERE Orders.OrderDate = (SELECT MAX(orders.orderdate) FROM Orders
where CustomerID=@CustomerID) AND Orders.CustomerID=@CustomerID) GO

　　

不管你的查询语句中含有动态SQL语句还是含有返回记录集的存储过程或是输出一个返回值，其处理POST消息的方法是一样的：

　　set xhttp = createObject ('msXML2.XMLHTTP')
　　xhttp.open 'POST', 'http://localhost/myWeb/ getData.asp', False
　　xhttp.send s

　　好了，现在让我们看一看如何发送和接收数据

　　客户端的XML信息是由一个＜command＞元素和一些子元素组成：＜commandtext＞元素包含了存储过程的名称，＜returnsdata＞元素告诉服务器，客户端是否要求接收返回数据，＜param＞元素包含参数信息。如果不使用参数的话，那么最简单的发送字符串查询就象下面这样：

　　＜command＞
　　　＜commandtext＞

　　存储过程或动态SQL语句

　　＜/commandtext＞
　　　＜returnsvalues＞True＜/returnsvalues＞
　　＜/command＞

　　你可以为每一个参数使用一个＜param＞元素，来添加参数。每个＜param＞元素有五个子元素：name，type，direction，size和value。子元素的顺序可以随意调换，但是所有的元素都应当有不能缺少，我通常按照定义一个ADO对象的值的顺序来定义它们。举例来说，CustOrderHist存储过程需要一个CustomID参数，所以用来创建发送到getData.asp的XML字符串的代码为：


　　dim s
　　　s = '＜?xml version=''1.0''?＞' & VBcrlf
　　　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＞'

ASP基础教程：ASP脚本基础

2011-01-19

ASP基础教程：ASP简介

2011-01-19

PerlScript编写ASP

2011-01-17

图片循环显现

2011-01-17

ASP、VB和XML建互联网应用程序

2011-01-17

输入显示框中循环出现文字

2011-01-17

如何安装Scripting.FileSystemObject组件

2011-01-17

判断函数是奇数还是偶数

2011-01-17