teacherroom_fl.asp

这是用asp做的一个网上考试题库系统

 <!--#include file="db.asp"-->
<%
Response.Expires = 0
objConn.Open strConnection
  Set objRS = Server.CreateObject ("ADODB.Recordset")
  Set objRS.ActiveConnection = objConn
 Session("course_id")=Request.Form ("course")
 dim PaperItemID(5,50)
 for tx=1 to 5
    for kk=1 to 50
      PaperItemID(tx,kk)=-1
    next
 next       
 Session("PaperItemArray")=PaperItemID 
 if Session("course_id")<>"" then 
  strQuery ="Select CourseName From CourseInfo where CourseID='"&Session("course_id")&"'"
 objRS.Open strQuery
 Session("course_name")=objRS("CourseName")
select case Request.Form ("kcxxyc")
case 1 Response.Redirect ("./tkgl.html")
case 2 Response.Redirect ("./tjsj/randomsj.asp?time=3")
case 3 Response.Redirect ("./tjst/chaxun.asp")
case 4 Response.Redirect ("./tjsj/Paperwh.asp")
case 5 Response.Redirect ("")
case 6 Response.Redirect ("")
end select
else
 Response.Redirect ("./teacherroom.asp")
end if
%>