slogon.asp

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

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