www.gusucode.com > ASP+ACCESS学生排课管理系统毕业设计(源代码+论文) > ASP+ACCESS学生排课管理系统毕业设计(源代码+论文)\ASP+SQL学生排课管理系统\LogIn\verifyID.asp
<!--#include file="../include/ADOVBS.asp"--> <!--#include file="../include/keepHouse.asp"--> <% if request("Act")="logout" then call clearSession() response.end end if dim Result USER_NAME = trim(request("USER_NAME")) PASSWORD = trim(request("PASSWORD")) USER_NAME = replacePrime(USER_NAME) PASSWORD = replacePrime(PASSWORD) USER_TYPE = trim(request("USER_TYPE")) FIRST_TIME = trim(request("FIRST_TIME")) set Comd=server.createobject("ADODB.Command") call openDB() set Comd.ActiveConnection=conn Comd.CommandType=adCMdStoredProc Comd.CommandText="VerifyID" set Para1=Comd.CreateParameter("FIRST_TIME",adChar,adParamInput,1) Comd.Parameters.Append Para1 set Para2=Comd.CreateParameter("USER_TYPE",adChar,adParamInput,1) Comd.Parameters.Append Para2 set Para3=Comd.CreateParameter("USER_NAME",adVarChar,adParamInput,20) Comd.Parameters.Append Para3 set Para4=Comd.CreateParameter("PASSWORD",adVarChar,adParamInput,20) Comd.Parameters.Append Para4 set Para5=Comd.CreateParameter("RESULT",adInteger,adParamOutput,4) Comd.Parameters.Append Para5 set Para6=Comd.CreateParameter("DEPT_ID",adVarChar,adParamOutput,20) Comd.Parameters.Append Para6 Comd("USER_NAME") = USER_NAME Comd("PASSWORD") = PASSWORD Comd("USER_TYPE") = USER_TYPE Comd("FIRST_TIME") = FIRST_TIME Comd.Execute Result=Comd("RESULT") DEPT_ID=trim(Comd("DEPT_ID")) call backInfo(Result) call closeDB() sub backInfo(Result) if Result=4 then showmsg("非选课时段,请等待通知!") end if if Result=1 then call writeSession(USER_NAME,PASSWORD,USER_TYPE,DEPT_ID) response.Redirect "../" response.end end if if Result=0 then showmsg("登录失败!") else if Result=2 then showmsg("已登录成功过,但用户选择了第一次登录") else trgErr end if end if end sub %>