用存储过程进行用户登陆认证

username="admin"
password="admin888"
set comm=server.CreateObject("adodb.command")
comm.activeconnection="PROVIDER=SQLOLEDB;DATA SOURCE=127.0.0.1;UID=sa;PWD=;DATABASE=try"
''以comm对象建立存储过程连接,4代表连接类型为存储过程 
comm.commandtext="login"'存储过程名字
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,username)
comm.parameters.Append p1
'以p1为名称建立comm对象的parameter方法。将第二个参数password追加到p1集合中 
'具体同上 
set p1=comm.createparameter("inpassword",200,1,50,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 "<script>alert('欢迎光临！');</script>"
else
response.Write "<script>alert('用户名或密码错误！');</script>"
end if 
set comm=nothing

'存储过程：
Create PROCEDURE login
@infullname nvarchar(50),
@inpassword nvarchar(50),
@outcheck char(3) output
as
if exists(select * from admin where username=@infullname and [password]=@inpassword)
select @outcheck="yes"
else
select @outcheck="no"
GO