储存过程的调用-CSDN博客

本文链接：https://blog.csdn.net/tigerlgf/article/details/37598

<% @ LANGUAGE="VBSCRIPT" %> <% Option Explicit %>
<% ' This example can be used to call the ByRoyalty stored procedure
' installed with the PUBS database with Microsoft SQL Server.

' This sample assumes that SQL Server is running on the local machine
%> <html>

<head>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Using Stored Procedures</title>
</head>

Using Stored Procedures

<%
 Dim oConn
 Dim strConn
 Dim oCmd
 Dim oRs

Set oConn = Server.CreateObject("ADODB.Connection")
Set oCmd = Server.CreateObject("ADODB.Command")

   ' Open ADO Connection using account "sa"
   ' and blank password

   strConn="Provider=SQLOLEDB;User ID=sa;Initial Catalog=pubs;Data Source="& Request.ServerVariables("SERVER_NAME")
   oConn.Open strConn
   Set oCmd.ActiveConnection = oConn

' Setup Call to Stored Procedure and append parameters

oCmd.CommandText = "{call byroyalty(?)}"
oCmd.Parameters.Append oCmd.CreateParameter("@Percentage", adInteger, adParamInput)

' Assign value to input parameter

oCmd("@Percentage") = 75

' Fire the Stored Proc and assign resulting recordset
 ' to our previously created object variable

 Set oRs = oCmd.Execute
 %> Author ID = <% Response.Write oRs("au_id") %>

</body>

</html>