在ASP中调用存储过程
日期：2001-1-16 21:57:00
出处：计算机世界
作者：刘杨 徐漾
---- Microsoft 的Active Server Pages 即ASP， 是 一 套 微 软 开 发 的 服 务 器 端 脚 本 环 境，ASP 内 含 于IIS 和PWS 之 中, 通 过ASP 我 们 可 以 结 合 HTML 网 页、 ASP 指 令 和 ActiveX 元 件 建 立 动 态、 交 互 且 高 效 的WEB 服 务 器 应 用 程 序。
----存 储 过 程（Stored －Procedure） 是 由 一 些SQL 语 句 和 控 制 语 句 组 成 的 被 封 装 起 来 的 过 程， 它 驻 留 在 数 据 库 中， 可 以 被 客 户 应 用 程 序 调 用， 也 可 以 从 另 一 个 过 程 或 触 发 器 调 用。 它 的 参 数 可 以 被 传 递 和 返 回。
----一、 采 用 存 储 过 程 的 优 点
----在 客 户 端 工 作 站 中 执 行 大 而 复 杂 的SQL 批 处 理 时， 存 储 过 程 提 供 了 诸 多 方 便 之 处：
---- (1) 可 以 在 存 储 过 程 中 利 用Transact －SQL 的 强 大 功 能。 一 个SQL 存 储 过 程 可 以 包 含 多 个SQL 语 句。 通 过 使 用 变 量 和 条 件, 能 够 用 存 储 过 程 建 立 非 常 复 杂 的 查 询， 以 非 常 复 杂 的 方 式 更 新 数 据 库。
---- (2) 快 速 执 行。 在 第 一 次 执 行 之 后， 存 储 过 程 在 数 据 库 中 已 经 预 先 经 过 了 优 化 和 编 译， 存 储 在 高 速 缓 存 之 中， 在 接 下 来 的 运 行 中 可 以 直 接 从 高 速 缓 存 中 执 行， 省 去 了 以 后 执 行 的 优 化 和 编 译 阶 段， 节 省 了 执 行 过 程 的 大 量 时 间。
---- (3) 减 少 网 络 通 信 量。 存 储 过 程 能 包 含 巨 大 而 复 杂 的 查 询 或SQL 操 作。 它 们 已 被 编 译 完 毕 并 存 储 在 SQL 数 据 库 内， 当 客 户 发 出 执 行 存 储 过 程 的 请 求 时， 它 们 就 在SQL Server 上 运 行， 只 把 最 终 结 果 传 送 给 客 户 应 用 程 序， 所 以 使 得 客 户 机 与 服 务 器 的 通 讯 量 降 至 最 小， 大 大 减 少 了 网 络 负 荷。
---- (4) 自 动、 复 杂 或 敏 感 的 事 务 处 理。 在 一 个 存 储 过 程 中 对 某 些 表 进 行 各 种 处 理， 可 以 保 证 这 些 表 的 数 据 完 整 性。
----ASP 调 用 存 储 过 程 除 了 具 有 存 储 过 程 本 身 的 优 点 外 还 能 够 减 少 在ADO 中 构 造 复 杂SQL 语 句 的 难 度， 省 去 繁 杂 的 标 点 符 号 的 处 理。 通 过 在 多 个 网 页 中 调 用 同 一 个 存 储 过 程, 可 以 使 站 点 更 易 于 维 护 和 更 新。
---- 二、ASP 调 用 存 储 过 程 的 方 法
----调 用 存 储 过 程 的 方 法 需 要 使 用 ADO 的Command 对 象。Command 对 象 是 对 一 个 数 据 源 运 行 特 定 命 令 的 定 义（ 例 如， 一 个SQL 查 询 或 一 个SQL 存 储 过 程）。 下 面 以MS SQL SERVER6.5 为 后 台 数 据 库， 介 绍ASP 调 用 存 储 过 程 的 方 法。
----例 如， 在 表User 中 保 存 了 用 户 名 和 密 码, 现 在 建 立 一 个 检 查 密 码 的 存 储 过 程sp_CheckPass 来 检 查 用 户 是 否 输 入 了 合 法 的 密 码。 建 立 存 储 过 程， 可 以 从Microsoft SQL Sever 程 序 组 中 启 动ISQL/w, 然 后 在 查 询 窗 口 中 输 入 存 储 过 程：
/ ＊ 存 储 过 程 例 程 ＊/
CREATE PROCEDURE sp_CheckPass
@CHKName VARCHAR(30),@CHKPass
VARCHAR(30),@ISValid CHAR(8) OUTPUT
AS
IF EXISTS(SELECT UserName FROM Users
WHERE UserName=@CHKName AND UserPwd=@CHKPass)
SELECT @ISVaid="pass"
ELSE
SELECT @ISValid="Invalid"
----存 储 过 程 接 收 两 个 输 入 参 数， 输 入 参 数@CHKaName 向 存 储 过 程 传 递 一 个 用 户 名，@CHKPass 向 存 储 过 程 传 递 一 个 密 码， 如 果 有 用 户 拥 有 指 定 的 密 码， 输 出 参 数 将 返 回 "pass"， 否 则， 返 回"Invalid"。
----现 在 我 们 可 以 在CheckPass.asp 中 调 用 存 储 过 程sp_CheckPass 了。
CheckPass.asp
< ! － － ＃INCLUDE VIRTUAL=
"ADOVBS.inc" － － >
' 包 含VBSCRIPT 的 常 量 定 义 文 件
< ％
Set DataConn=Sever.CreateObject
("ADODB.Connection") ' 建 立 连 接 对 象
Dataconn.Open"DSN=user;SERVER=APP_SERVER;
UID=sa;PWD=;APP=Microsoft(R) Developer Studio;
WSID=APP_SERVER;Regional=Yes"
Set cmdTemp=Sever.CreateObject
("ADODB.Command") ' 建 立 命 令 对 象
Set cmdTemp.ActiveConnection=DataConn
cmdTemp.CommandType=adCMdStoredProc
' 指 定 要 执 行 的 是 一 个 存 储 过 程
cmdTemp.CommandText="sp_CheckPass"
' 存 储 过 程 名 称
Set tmpFirstParam=cmdTemp.CreateParameter
("UserName",adVarChar,adParamIntput,30)
' 创 建 输 入 参 数 对 象
cmdTemp.Parameters.Append.tmpFirstParam
' 把 参 数 加 到 参 数 集 合
Set tmpSecondParam=cmdTemp.CreateParameter
("UserPwd",adVarChar,adParamInput,30)
cmdTemp.ParaMeters.Append tmpSecondParam
Set tmpThirdParam=cmdTemp.CreateParameter
("RetValue",adChar,adParamOutput,8)
' 创 建 返 回 参 数 对 象
cmdTemp.Parameters.Append tmpThirdParam
cmdTemp("UserName")=Request.FORM("UserName")
' 取 得 输 入 参 数
cmdTemp("UserPwd")=Request.FORM("UserPwd")
cmdTemp.Execute ' 执 行 存 储 过 程
％ >
The Check Result is < ％=cmdTemp("RetValue") ％ >
' 输 出 返 回 值
< ％
DataConn.Close ' 关 闭 数 据 库 连 接
％ >
// 用 户 输 入 界 面
< HTML >
< HEAD >< TITLE >Registration Page< /TITLE >< /HEAD >
< H2 > 请 输 入 用 户 名 和 密 码：< /H2 >
< FORM METHOD="POST" ACTION="CheckPass.asp" >
< p > 用 户 名:
< input name="UserName" type="TEXT" >
< /p >
< p > 密 码:
< input name="UserPwd" type="PASSWORD" >
< input type="submit" name="submit" value=
" 确 定" >
< /p >
< /FORM > < /BODY >
< /HTML >
本 例 中 用CreateParameter() 方 法 建 立 了 三 个 参 数 对 象。 其 中， 两 个 输 入 参 数， 一 个 输 出 参 数。 建 立 了 任 何 新 参 数 之 后， 都 必 须 把 它 添 加 到 命 令 对 象 的Parameters 集 合 中。Append 方 法 用 来 把 新 参 数 添 加 到 这 个 集 合 中。 最 后， 调 用Execute 方 法 执 行 存 储 过 程。 用 户 输 入 的 用 户 名 和 密 码 被 传 递 给 存 储 过 程。 如 果 表 中 存 在 这 个 名 字 － 密 码 组 合， 则 报 告 该 密 码 为Pass, 否 则 报 告 该 密 码 为Invalid。
