teachersession.asp

eayanQuery思燕大学成绩查询系统 版本 V1.6

 <%
'****************************************************
call LoginCheck()

Sub LoginCheck()
 		Dim TrueSiteUrl
		Dim AdminDirStr
		Dim RootDir:RootDir="/cj/"
  		   TrueSiteUrl = Trim(Request.ServerVariables("HTTP_HOST"))
		   AdminDirStr="http://"&TrueSiteUrl&RootDir

	If Request.Cookies("teacher_name") = "" Or Request.Cookies("teacher_pass") = "" Then
			 on error resume next
			Response.Write ("<script>alert('您尚未登录，或者登录超时...');top.location.href='" & AdminDirStr & "';</script>")
			Response.end()
			 if err then
			   err.clear
				  Response.Write ("<script>alert('您尚未登录，或者登录超时。');top.location.href='" & AdminDirStr & "';</script>")
				  Response.end()
		     end if
	Else
			 Dim ChkRS:Set ChkRS = Server.CreateObject("ADODB.RecordSet")
			 ChkRS.Open "Select [teacher_name],[teacher_pass] From [teacher] Where [department_id]='" &  HtmlEncode(Request.Cookies("department_id")) & "' and [teacher_name]='" & HtmlEncode(Request.Cookies("teacher_name")) & "' And [teacher_pass]='" &  HtmlEncode(Request.Cookies("teacher_pass")) & "'",Initialize_Conn, 1, 1
			 If ChkRS.EOF And ChkRS.BOF Then
				 Response.Write ("<script>alert('您尚未登录，或者登录超时!!');top.location.href='" & AdminDirStr & "';</script>")
				 Response.end()
			 End If
		   ChkRS.Close:Set ChkRS = Nothing
	End If
 End sub
%>