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

首頁 > 編程 > ASP > 正文

asp 存貯過程 (SQL版asp調用存儲過程)

2020-07-27 13:03:38
字體:
來源:轉載
供稿:網友
存貯過程(SQL樣版) 
今天發個SQL存貯過程給大家認識
復制代碼 代碼如下:

CREATE PROCEDURE login_verify 


@community_id int, --拿值 
@username varchar(20), 
@password varchar(40), 
@result tinyint output 


AS 

set nocount ON 


declare @service_deadline_date smalldatetime,@community_setting_max_online_count int ---定義一個變量為 短日期格式 

select @community_setting_max_online_count=community_setting_max_online_count,@service_deadline_date=service_deadline_date from community_info where community_id=@community_id --這里是求最大登錄人數 

if datediff(d,@service_deadline_date,getdate())>10 --其實這個是限制用戶的使用期,求當前日期與庫中的記錄日期如時大于10天,則返回@result =11 
begin 
set @result=11 --超過使用期 
return 
end 


if (select count(*) from online_user where =@community_setting_max_online_count">community_id=@community_id)>=@community_setting_max_online_count --根據庫中的記錄設定與當前人數比較 
begin 
set @result=10 --超出在線人數限制 --返回@result=10 
return 
end 


declare @stamia int,@last_update_stamia_date smalldatetime,@level_id int --定義變量 整型 短日期型 整型 
declare @userid int ,@user_role int 
select @userid=userid,@user_role=user_role,@stamia=stamia,@last_update_stamia_date=last_update_stamia_date,@level_id=level_id from user_info where username=@username and password=@password and community_id=@community_id and user_type=0 

--從用戶信息表中,將一些信息寫入到定義的三個變量中 

if @userid is not null ----如果@userid 不變null值 
begin --用戶名和密碼校驗成功 
set @result=1 --檢驗成功 
return 
end  
else 
begin 
set @result=0 ---登錄失敗 
end 

set nocount OFF 

GO 

我們給上面的過程取個名login_verify叫做

寫成是ASP代碼中調用安全認證的地方

'''事先已經定義好conn

Set cmd.ActiveConnection=conn
cmd.CommandText="login_verify"
cmd.CommandType=&H0004

@community_id int, --拿值
@username varchar(20),
@password varchar(40),
@result int

cmd.Parameters.Append cmd.CreateParameter("@community_id",3)
cmd.Parameters.Append cmd.CreateParameter("@username ",200)
cmd.Parameters.Append cmd.CreateParameter("@password",200)

cmd("@community_id")=session("community_id")
cmd("@username")=request("userid")
cmd("@password")=request("userid")

cmd.execute

dim result

result=cmd("@result")

conn.close

if trim(result)="1" then


'''''''''''''登錄成功的提示與操作

else

''''''''''''''''''''''登錄失敗的提示與操作

end if 

  

  
發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 玉树县| 厦门市| 阳东县| 佛坪县| 青河县| 延吉市| 礼泉县| 元朗区| 册亨县| 乌兰浩特市| 河曲县| 会昌县| 阳东县| 海晏县| 扎鲁特旗| 绥芬河市| 和林格尔县| 宝坻区| 察雅县| 德州市| 高青县| 东城区| 安丘市| 泽州县| 高台县| 温泉县| 平度市| 桃源县| 美姑县| 鄂伦春自治旗| 旬阳县| 微山县| 广灵县| 大悟县| 洛阳市| 岑巩县| 安徽省| 盐源县| 开鲁县| 桐梓县| 蒙城县|