ASP 3.0高级编程（四十一）(2)

参数加到Parameters集合后，就保留在其中，因此，不一定在创建参数时就为每个参数赋值。可以在命令运行前的任何时候设置参数的值。例如：
cmdUpdate.Parameters.Append = _
cmdUpdate.CreateParameter("@Percent", adCurrency, adParamInput)

cmdUpdate.Parameters("@Percent") = 10
前一章提到了访问集合中的值有好几种方法，Parameters集合并没有什么不同。上面的例子使用参数的名字在集合中检索参数，也可以使用索引号进行检索：
cmdUpdate.Parameters(0) = 10
以上代码对参数集合中第一个（Parameters集合从0开始编号）参数进行了赋值。使用索引号比使用名字索引速度快，但很显然使用名字使代码更易读。
重点注意Parameters集合中参数的顺序必须与存储过程中参数的顺序相一致。
运行带参数的命令
一旦加入参数，就可立即运行命令，同时这些参数的值传入存储过程。现在可用一个友好的网页去更新用户选择的类型的书价。例如，假设有一个名为UpdatePrices.asp的网页，其运行时的界面如图9-2所示：

图9-2 UpdatePrices.asp网页运行时的界面
通过数据库中获取书类型的列表，可以很轻松地动态创建该页面。首先要做的是包含文件Connection.asp，该文件包含了连接字符串（保存在变量strConn中）以及对ADO常数的引用，这在前面的章节已经讨论过。
<!-- #INCLUDE FILE="../Include/Connection.asp" -->
接下来，可以创建一个窗体（在这儿不显示大量文本，仅仅用一个样本文件）。该窗体调用一个名为StoreProcedure.asp的文件。
<FORM NAME="UpdatePrices" Method="post" ACTION="StoredProcedure.asp">
<TABLE>
<TR>
<TD>Book Type:</TD>
<TD><SELECT NAME="lstTypes"></TD>
现在开始编写ASP脚本从title表中读取书的类型。使用一个SQL字符串只返回唯一的书类型，然后将返回值放到HTML的OPTION标记中：
<%
Dim recTypes
Dim sDQ

sDQ = Chr(34) ' double quote character

Set recTypes = Server.CreateObject("ADODB.Recordset")

recTypes.Open "usp_BookTypes", strConn

While Not recTypes.EOF
Response.Write "<OPTION VALUE=" & sDQ & recTypes("type") & sDQ & _
">" & recTypes("type")
recTypes.MoveNext
Wend

recTypes.Close
Set recTypes = Nothing

%>
显示书的类型后，接着可以构建窗体的其他部分，包括一个允许用户输入书价变化百分数的文本框。
</SELECT>
</TD>
</TR>
<TR>
<TD>Percent Value</TD>
<TD><INPUT NAME="txtPercent" TYPE="TEXT"></TD>
</TR>
</TABLE>
<P>
<INPUT TYPE="submit" VALUE="Run Query">
</FORM>
现在看一下Run Query按钮调用的ASP文件StoredProcedure.asp。首先，声明变量并从调用窗体取出书的类型和百分数。
Dim cmdUpdate
Dim lRecs
Dim sType
Dim cPercent

' Get the form values
sType = Request.Form("lstTypes")
cPercent = Request.Form("txtPercent")
现在可以向用户显示一些确认信息，告诉他们将发生什么。
' Tell the user what's being done
Response.Write "Updating all books"
If sType <> "all" Then
Response.Write " of type <B>" & sType & "</B>"
End If
Response.Write " by " & cPercent & "%<P>"
现在重新回到代码内部，在此创建Command对象和参数。
Set cmdUpdate = Server.CreateObject("ADODB.Command")

With cmdUpdate
.ActiveConnection = strConn
.CommandText = "usp_UpdatePrices"
.CommandType = adCmdStoredProc
利用从前面网页的窗体中提取的数据值，使用快捷方法创建和增加参数。
' Add the parameters
.Parameters.Append .CreateParameter ("@Type", adVarWChar, adParamInput, _
12, sType)
.Parameters.Append .CreateParameter ("@Percent", adCurrency, _
adParamInput, , cPercent)
现在，运行存储过程。
' Execute the command
.Execute lRecs, , adExecuteNoRecords
End With
为了确认，可以告诉用户已经更新多少条记录。
' And finally tell the user what's happened
Response.Write "Procedure complete. " & lRecs & " were updated."

Set cmdUpdate = Nothing
%>
这样就有了两个简单界面。前者创建了一个供选择的项目列表，后者使用其中某个项目值更新数据。这是许多需要显示和更新数据的ASP页面的基础。
3． 传递数组参数
Parameters参数集合一般来说比较好用，但有时稍有麻烦（尤其对于新手）。好在有一种快捷方法，使用Execute方法的Parameters参数。例如，调用存储过程usp_UpdatePrices，但不使用Parameters集合。
创建一个Command对象，并同前面一样设置其属性。
' Set cmdUpdate = Server.CreateObject("ADODB.Command")

' Set the properties of the command
With cmdUpdate
.ActiveConnection = strConn
.commandText = "usp_UpdatePrices"
.commandType = adCmdStroreProc
但这里正是差异所在。我们仅是通过Execute方法传递参数给存储过程，而不是创建参数并添加到集合中。
' Execute the command
.Execute lngRecs, Array(strType, curPercent), adExecuteNoRecords

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有