tlogon.asp

来自「《动态网页设计基础教程》,胡杰,科学出版社」· ASP 代码 · 共 27 行

<!--#include file="adoconn.asp"-->
<%
   t1=request.form("t1")
   t2=request.form("t2")
   sql="Select * from Teachers where Tid='" & t1 & "' and TPW='" & t2 & "'"
   if ValidPersonal(t1,t2,sql)=True then
      WriteLoginLog "登录成功，进入主程序！"
      if session("RunFlag")="Normal" then
         response.redirect ("Tinfo.asp")
      else
         session("RunFlag")="Normal"
         response.redirect ("YourResultQuery.asp")
      end if
   else
      Session("logined")=False
%>
<Script Language="VBScript">
      msgbox "对不起,您无权使用本系统,再见!",vbOkOnly,"特别提示"
      window.close
</Script>
<%   
   end if
%>