cxresult.asp

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

<!--#include file="../db.asp"-->
 
<%
  objConn.Open strConnection
  Set objRS = Server.CreateObject ("ADODB.Recordset")
 if Request.QueryString ("Query")="" then  
  if request("displayS")<>"" then
   if IsNumeric(request("displayS")) then
      objRS.PageSize=CInt(request("displayS"))
   else
       Response.redirect("chaxun.asp")
   end if  
  else
   objRS.PageSize=20
  end if 
  cc=CInt(request("displayS"))
  
 else
   
   objRS.PageSize=CInt(Request.QueryString("S"))
   cc=CInt(Request.QueryString("S"))

 end if  
  'objRS.CursorLocation=adUseClient
   Set rs = Server.CreateObject ("ADODB.Recordset")
  'Set objRS.ActiveConnection = objConn
if Request.QueryString ("Query")="" then  
  strQ="Select Itemtype,CognizeClass,Difficulty,Division,SelectDegree,WriteSubjectID,WriteSubjectTime,ItemID from ItemTable where "
 
if Request.Form("sczt")=1 then
  strQ=strQ&"ExistID=1 and CourseID="&Session("course_id")&" and "
else
  strQ=strQ&"ExistID=0 and CourseID="&Session("course_id")&" and "
end if
if Request.Form("xx").Count<>0 then 
for intl=0 to Request.Form ("xx").Count-1
 Select case  Request.Form ("xx")(intl+1)
   case 1:strQ=strQ&"Difficulty"&trim(Request.Form ("ndjb"))&trim(Request.Form ("ndvalue"))
           if( Request.Form ("xx")(Request.Form ("xx").Count)=4) then
            if(intl<> Request.Form ("xx").Count-2) then 
              strQ=strQ&" and "
            end if 
          else
            if(intl<> Request.Form ("xx").Count-1) then 
              strQ=strQ&" and "
            end if 
         end if
        
   case 2:strQ=strQ&"Division"&trim(Request.Form ("qfdjb"))&trim(Request.Form ("qfdvalue"))&" "
          if( Request.Form ("xx")(Request.Form ("xx").Count)=4) then
            if(intl<> Request.Form ("xx").Count-2) then 
              strQ=strQ&" and "
            end if 
          else
            if(intl<> Request.Form ("xx").Count-1) then 
              strQ=strQ&" and "
            end if 
         end if
   case 3:strQ=strQ&"Itemtype="&Request.Form("tx")
          if( Request.Form ("xx")(Request.Form ("xx").Count)=4) then
            if(intl<> Request.Form ("xx").Count-2) then 
              strQ=strQ&" and "
            end if 
          else
            if(intl<> Request.Form ("xx").Count-1) then 
              strQ=strQ&" and "
          end if 
         end if
   case 4:  if Request.Form("xx").Count=1 then
                strQ="Select Itemtype,CognizeClass,Difficulty,Division,SelectDegree,WriteSubjectID,WriteSubjectTime,ItemID from ItemTable where "
                if Request.Form("sczt")=1 then
                   strQ=strQ&"ExistID=1"
                else
                  strQ=strQ&"ExistID=0"
                end if

            end if
            zsdlist=1
          
   case 5: strQ=strQ&"CognizeClass="&trim(Request.Form("rzhvalue"))
           if( Request.Form ("xx")(Request.Form ("xx").Count)=4) then
            if(intl<> Request.Form ("xx").Count-2) then 
              strQ=strQ&" and "
            end if 
           else
            if(intl<> Request.Form ("xx").Count-1) then 
              strQ=strQ&" and "
           end if 
           end if
   case 6: strQ=strQ&"ItemID="&trim(Request.Form("id"))
            if( Request.Form ("xx")(Request.Form ("xx").Count)=4) then
            if(intl<> Request.Form ("xx").Count-2) then 
              strQ=strQ&" and "
            end if 
          else
            if(intl<> Request.Form ("xx").Count-1) then 
              strQ=strQ&" and "
            end if 
           end if
   case 7: strQ=strQ&"WriteSubjectID='"&Request.Form("ctr")&"'"
            if( Request.Form ("xx")(Request.Form ("xx").Count)=4) then
            if(intl<> Request.Form ("xx").Count-2) then 
              strQ=strQ&" and "
            end if 
           else
            if(intl<> Request.Form ("xx").Count-1) then 
              strQ=strQ&" and "
            end if 
           end if

   case 8:strQ=strQ&"WriteSubjectTime"&Request.Form("ctsj")&"'"&Request.Form("year")&"-"&Request.Form("month")&"-"&Request.Form("day")&"'"
        if( Request.Form ("xx")(Request.Form ("xx").Count)=4) then
            if(intl<> Request.Form ("xx").Count-2) then 
              strQ=strQ&" and "
            end if 
          else
            if(intl<> Request.Form ("xx").Count-1) then 
              strQ=strQ&" and "
            end if 
         end if
   
   case 9: strQ=strQ&"SelectDegree"&trim(Request.Form ("sycs"))&trim(Request.Form ("sycsvalue"))
          if( Request.Form ("xx")(Request.Form ("xx").Count)=4) then
            if(intl<> Request.Form ("xx").Count-2) then 
              strQ=strQ&" and "
            end if 
          else
            if(intl<> Request.Form ("xx").Count-1) then 
              strQ=strQ&" and "
            end if 
         end if
   case 10: strQ=strQ&"SuggestScore"&trim(Request.Form ("jyfs"))&trim(Request.Form ("jyfsvalue"))
          if( Request.Form ("xx")(Request.Form ("xx").Count)=4) then
            if(intl<> Request.Form ("xx").Count-2) then 
              strQ=strQ&" and "
            end if 
          else
            if(intl<> Request.Form ("xx").Count-1) then 
              strQ=strQ&" and "
            end if 
         end if
   case 11: strQ=strQ&"ApplyScale=1"
          if( Request.Form ("xx")(Request.Form ("xx").Count)=4) then
            if(intl<> Request.Form ("xx").Count-2) then 
              strQ=strQ&" and "
            end if 
          else
            if(intl<> Request.Form ("xx").Count-1) then 
              strQ=strQ&" and "
            end if 
         end if
       
  end select
 next
 else
  Response.redirect("chaxun.asp")
 end if  
else
  strQ=Request.QueryString ("Query")
end if  
  Query=strQ
  objRS.Open strQ,objConn,1,1
  dim intPage
  intPage=1
    if Request.QueryString("Page")="" then
     intPage=1
  else
    if intPage<1 then
          intPage=1
    else
      if intPage>objRS.PageCount then
          intPage=objRS.PageCount
      else
          intPage=CInt(Request.QueryString("Page"))
      end if
    end if
  end if
  if not objRS.EOF then
  objRS.AbsolutePage =intPage                   
  else
   mm=1
  end if 
     
  
  
%>
<html>

<head>
<style>
  .bodyStyle {font-family: "Verdana", "Arial";
              font-size: 10pt;
              color:  #00309c}

  .bodyStyle2 {margin-left:12pt;
              background-image:  url('../djst/share/blue_gradient.jpg');
              background-attachment: fixed;
              color:  #00309c;
              width:532px; font-style:normal; font-variant:normal; font-weight:normal; font-size:10pt; font-family:Verdana, Arial}

  A:HOVER {
           text-decoration: none }

  A:LINK { text-decoration: none }

  A:ACTIVE { 
             text-decoration: none }

  A:VISITED { text-decoration: none }

  TABLE   {margin-right: 20pt;
           font-size: 10pt;
           font-family: "Verdana", "Arial"}

  .active  {font-weight: bold;
            color: #00309c}
  .active2 {font-weight: bold;
            color: #405040}
  .visited {font-weight: normal;
            color: #405040 }

  .1      {margin-left: 0pt}
  .2      {margin-left: 16pt;
           width: 100pt}
  .3      {margin-left: 32pt;
           width: 90pt}
  .4      {margin-left: 45pt;
           width: 50pt}

</style>


</head>


<body class=bodyStyle2>
<form method="post" action="./stwh.asp?Page=<%=intPage%>&Query=<%=Query%>&S=<%=cc%>" name="form1" >
  <table align=center>
   <tr>
    <td width="70%" align="right">
      <b><font size="+2" color="#FF0000">查询结果</font></b>