ASP MSSQL存儲(chǔ)過程的實(shí)現(xiàn)小例

CREATE PROCEDURE Proname //使用CREATE PROCEDURE 創(chuàng)建存儲(chǔ)過程 Proname為存儲(chǔ)過程名稱
@Lname VARCHAR(30) //定義傳入的參數(shù)
AS
SET NOCOUNT ON
BEGIN
SELECT * FROM TableName WHERE Lname like '%'+@Lname+'%' //使用SELECE模糊查詢Lname值與傳入?yún)?shù)Lname的值相近所有行
END
GO

//下面是建立與MSSQL SERVER連接的字符串，大家都知道，我就不講了。
strConnect = "Driver={SQL Server};Server=(local);uid=sa;password=;database=dataname"
Set conn = server.CreateObject ("Adodb.Connection")
conn.Open strConnect

SET cmd = Server.CreateObject("ADODB.Command") //建立一個(gè)COMMAND命令對象
with cmd
cmd.ActiveConnection = conn //conn為連接字符串
cmd.CommandText = "Proname" //這里為要使用的存儲(chǔ)過程名稱
cmd.CommandType = 4 //CommandType屬性表明請求的類型。
//-1 表明CommandText參數(shù)的類型無法確定
//1 表明CommandText是一般的命令類型
//2 表明CommandText參數(shù)是一個(gè)存在的表名稱
//4 表明CommandText參數(shù)是一個(gè)存儲(chǔ)過程的名稱，所以這里CommandType = 4。
cmd.Prepared = true //要求將SQL命令先編譯
cmd.Parameters.append cmd.CreateParameter("@Lname",3,1,4,Lname) //添加參數(shù)@Lname，后面的Lname是自己在ASP頁面里定義的變量。
Set rs = cmd.Execute //設(shè)置rs變量取得返回的查詢紀(jì)錄集。
end with

DO WHILE NOT rs.EOF //用DO循環(huán)讀出rs紀(jì)錄集里面的行
RESPONSE.WRITE(rs("字段名")"BR />")
rs.MOVENEXT //移動(dòng)到下一條
LOOP //結(jié)束循環(huán)

rs.CLOSE //關(guān)閉對象