使用SQLSERVER存儲過程完成ASP用戶身份驗(yàn)證

　　在我們編寫用戶身份驗(yàn)證程序中，很容易用ASP調(diào)用SQL語句來檢索數(shù)據(jù)表中是否有條件相符的記錄，然后再用ASP進(jìn)行相關(guān)處理。

　　條條道路通羅馬！當(dāng)然，我們也可以用SQL SERVER數(shù)據(jù)庫的存儲過程來輕松實(shí)現(xiàn)這個(gè)功能。雖然相對而言較復(fù)雜，但其效率的提升是很明顯的，因?yàn)榇鎯�過程是在數(shù)據(jù)庫中已經(jīng)編譯好的一段程序，我們只需用ASP將其所用的各種參數(shù)正確傳遞就行了。
　　
　　本文也主要是想通過一個(gè)簡單的事例，向大家介紹一下如何在ASP中調(diào)用帶參數(shù)的存儲過程。希望大家能從中得到更多的啟迪。

　　第一步，建立數(shù)據(jù)表userinfo
id int(4) not null,
fullname varchar(50) not null,
password varchar(20) not null,
nikename varchar(50) not null

　　第二步，建立存儲過程usercheck
CREATE procedure usercheck
@infullname varchar(50),
@inpassword varchar(50),
@outcheck char(3) OUTPUT
as
if exists(select * from userinfo where fullname=@infullname and password=@inpassword)
select @outcheck='yes'
else
select @outcheck='no'

　　注：這里建立了一個(gè)帶三個(gè)參數(shù)的存儲過程，第一個(gè)參數(shù)@infullname，這是個(gè)輸入?yún)��?shù)，（用戶名）；第二個(gè)參數(shù)@inpassword，也是個(gè)輸入?yún)��?shù)，（密碼）；第三個(gè)參數(shù)@outcheck，這是個(gè)輸出參數(shù)，（是否存在此用戶），當(dāng)定義輸出參數(shù)時(shí)在數(shù)據(jù)類型后必須加上"OUTPUT"，字樣。
　　
　　然后，我們帶上前兩個(gè)輸入?yún)��?shù)在SQL語句中檢索是否存在符合條件的用戶，如果存在，輸出參數(shù)的值為"yes",否則為"no"。

　　
　　第三步，編寫ASP程序，調(diào)用存儲過程

<%
'表單提交標(biāo)志
if request("ok")=1 then

'建立數(shù)據(jù)庫連接
Set Comm=Server.CreateObject("ADODB.Command")
Comm.ActiveConnection="DSN=localserver;UID=sa;PWD=;Database=chaiwei"

'以comm對象建立存儲過程連接,4代表連接類型為存儲過程
Comm.CommandText="usercheck"
Comm.CommandType=4

　　　　'以p1為名稱建立comm對象的parameter方法。將第一個(gè)參數(shù)fullname追加到p1集合中
　　　　'fullname 調(diào)用的第一個(gè)參數(shù)的名稱
　　　　'200 參數(shù)類型 varchar型
　　　　'1 參數(shù)流向 輸入，輸入為1,輸出為2
　　　　'50 參數(shù)的長度 50
　　　　'request("fullname") 賦參數(shù)出始值

Set p1=Comm.CreateParameter("fullname",200,1,50,request("fullname"))
Comm.Parameters.Append p1

'以p1為名稱建立comm對象的parameter方法。將第二個(gè)參數(shù)password追加到p1集合中
'具體同上

Set p1=Comm.CreateParameter("password",200,1,20,request("password"))
Comm.Parameters.Append p1

'以p1為名稱建立comm對象的parameter方法。將第三個(gè)參數(shù)check追加到p1集合中
'129 參數(shù)類型 char型
'2 參數(shù)流向 輸出
'3 參數(shù)長度 3
Set p1=Comm.CreateParameter("check",129,2,3)
Comm.Parameters.Append p1

'運(yùn)行存儲過程
Comm.Execute

'提出結(jié)果，進(jìn)行處理
if comm("check")="yes" then
response.write "歡迎進(jìn)入系統(tǒng)！　用戶名：" & comm("fullname") & "　密碼：" & comm("password")
else
response.write "對不起，您尚未注冊！"
end if

'釋放連接
Set Comm=nothing
else

'表單部份
%>