salogon.asp

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

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