存储过程
CREATE proc login
@var_AS_name nvarchar(50),
@var_pass nvarchar(50),
@check_num int output
as
if exists (select * from ADMINUSER where AS_name=@var_AS_name and AS_Password=@var_pass)
--return 2 用户密码正确
set @check_num = 2
else
if exists (select * from ADMINUSER where AS_name=@var_AS_name )
--return 3
set @check_num = 1
else
--return 1
set @check_num = 0
GO
ASP调用
<!--#include file="conn.asp"-->
<%
Dim intr
Set comm=server.CreateObject("ADODB.command")
comm.ActiveConnection =conn
comm.CommandType = 4
comm.CommandText = "login"
comm.Parameters.item("@var_AS_name").Value =request("t")
comm.Parameters.item("@var_pass").Value =request("p")
comm.Execute
intr = comm.Parameters("@check_num").Value
Select Case intr
Case 0
response.redirect "login.asp?e=0"
Case 1
response.redirect "login.asp?e=1"
Case 2
response.redirect "see.asp"
End select
%>
数据库文件
序号 列名 数据类型 长度 是否允许为空 说明
1 AS_id Int 4 否 管理员ID
2 AS_name nvarchar 50 是 管理员帐号
3 AS_password nvarchar 20 是 管理员密码
4 AS_Remarks nvarchar 200 是 备注
错误
Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'
/iisHelp/common/500-100.asp，行242
ADODB.Parameters 错误 '800a0cc1'
在对应所需名称或序数的集合中，未找到项目。
/AS_stu/asp_file/flag.asp，行9
