|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
结论:和PHP一样,ASP简单而易于维护,很适合小型网站应用,通过DCOM和MTS技术,ASP甚至还可以完成小规模的企业应用,但ASP的致命缺点就是不支持跨平台的系统,在大型项目开发和维护上非常困难。进程 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强大的可扩展性。ASP具有强大的扩展性,可以实现与多种网络、硬件设备的连接:通过专用的通讯线路远程接入企业; 通过远程拨号服务器为远程拨号客户提供服务;通过WAP为移动电话互联网客户服务。 |
|