使用SQLSERVER存儲過程完成ASP用戶身份驗證
發表時間:2024-06-03 來源:明輝站整理相關軟件相關文章人氣:
[摘要]在我們編寫用戶身份驗證程序中,很容易用ASP調用SQL語句來檢索數據表中是否有條件相符的記錄,然后再用ASP進行相關處理。 條條道路通羅馬!當然,我們也可以用SQL SERVER數據庫的存儲過程來輕松實現這個功能。雖然相對而言較復雜,但其效率的提升是很明顯的,因為存儲過程是在數據庫中已經編譯好...
在我們編寫用戶身份驗證程序中,很容易用ASP調用SQL語句來檢索數據表中是否有條件相符的記錄,然后再用ASP進行相關處理。
條條道路通羅馬!當然,我們也可以用SQL SERVER數據庫的存儲過程來輕松實現這個功能。雖然相對而言較復雜,但其效率的提升是很明顯的,因為存儲過程是在數據庫中已經編譯好的一段程序,我們只需用ASP將其所用的各種參數正確傳遞就行了。
本文也主要是想通過一個簡單的事例,向大家介紹一下如何在ASP中調用帶參數的存儲過程。希望大家能從中得到更多的啟迪。
第一步,建立數據表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'
注:這里建立了一個帶三個參數的存儲過程,第一個參數@infullname,這是個輸入參數,(用戶名);第二個參數@inpassword,也是個輸入參數,(密碼);第三個參數@outcheck,這是個輸出參數,(是否存在此用戶),當定義輸出參數時在數據類型后必須加上"OUTPUT",字樣。
然后,我們帶上前兩個輸入參數在SQL語句中檢索是否存在符合條件的用戶,如果存在,輸出參數的值為"yes",否則為"no"。
第三步,編寫ASP程序,調用存儲過程
<%
'表單提交標志
if request("ok")=1 then
'建立數據庫連接
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方法。將第一個參數fullname追加到p1集合中
'fullname 調用的第一個參數的名稱
'200 參數類型 varchar型
'1 參數流向 輸入,輸入為1,輸出為2
'50 參數的長度 50
'request("fullname") 賦參數出始值
Set p1=Comm.CreateParameter("fullname",200,1,50,request("fullname"))
Comm.Parameters.Append p1
'以p1為名稱建立comm對象的parameter方法。將第二個參數password追加到p1集合中
'具體同上
Set p1=Comm.CreateParameter("password",200,1,20,request("password"))
Comm.Parameters.Append p1
'以p1為名稱建立comm對象的parameter方法。將第三個參數check追加到p1集合中
'129 參數類型 char型
'2 參數流向 輸出
'3 參數長度 3
Set p1=Comm.CreateParameter("check",129,2,3)
Comm.Parameters.Append p1
'運行存儲過程
Comm.Execute
'提出結果,進行處理
if comm("check")="yes" then
response.write "歡迎進入系統! 用戶名:" & comm("fullname") & " 密碼:" & comm("password")
else
response.write "對不起,您尚未注冊!"
end if
'釋放連接
Set Comm=nothing
else
'表單部份
%>