国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 學院 > 開發設計 > 正文

利用SQLSERVER存儲過程實現ASP用戶身份驗證

2019-11-18 19:23:20
字體:
來源:轉載
供稿:網友

  在我們編寫用戶身份驗證程序中,很容易用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

'表單部份
%>


發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 涞源县| 渭源县| 新绛县| 阿城市| 花莲市| 若尔盖县| 贡嘎县| 建始县| 陈巴尔虎旗| 峨山| 广东省| 中西区| 北碚区| 尼木县| 石柱| 高尔夫| 柯坪县| 大化| 自治县| 姚安县| 弥勒县| 景德镇市| 兰西县| 镇远县| 芜湖市| 石棉县| 庆元县| 湟中县| 台东县| 彭水| 环江| 金川县| 乐清市| 正镶白旗| 郴州市| 即墨市| 乐陵市| 沙河市| 藁城市| 晋中市| 霍邱县|