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
%>