sjhl.asp

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

<%
  if request("back")<>"" then
    response.redirect "Paperxg.asp"
  end if  
   
 Session("Title")=request("Title")

 Dim RzArray(5)
 RzArray(0)=clng(request("zd"))
 RzArray(1)=clng(request("lh"))
 RzArray(2)=clng(request("yy"))
 RzArray(3)=clng(request("pj"))
 RzArray(4)=clng(request("zh"))
 RzArray(5)=clng(request("fx"))
 Session("Rzlist")=RzArray
 Dim TxCount(6)
 TxCount(1)=clng(request("dxgs"))
 TxCount(2)=clng(request("dugs"))
 TxCount(3)=clng(request("tkgs"))
 TxCount(4)=clng(request("pdgs"))
 TxCount(5)=clng(request("fxgs"))
 Dim ndlist(5)
 ndlist(1)=clng(request("n"))
 ndlist(2)=clng(request("jn"))
 ndlist(3)=clng(request("z"))
 ndlist(4)=clng(request("jy"))
 ndlist(5)=clng(request("y"))
    Session("ndlist")=ndlist
   Session("Txlist")=TxCount
      
   Session("Title")=request("Title")
   Session("csjtime")=request("csjtime")
   Session("TotalScore")=request("TotalMark")
   Session("TotalTime")=request("TotalTime")
   Session("csjr")=request("csjr")
   Session("dxfs")=request("dxfs")
   Session("dufs")=request("dufs")
   Session("tkfs")=request("tkfs")
   Session("pdfs")=request("pdfs")
   Session("fxfs")=request("fxfs")
   Session("ssjr")=request("ssjr")
   Session("ssjtime")=request("ssjtime")
 
   

  'Session("sjnd")=request("nd")
 'Session("sjqfd")=request("qfd")
 
 
  if (request("dxgs")="")or (request("dxgs")="0") then
        if clng(request("dxfs"))>0  then
           if request.QueryString("ID")<>"" then
            response.redirect "sjerror.asp?PaperID="&request.QueryString("ID")
          else
            response.redirect "sjerror.asp"
          end if  
        end if
  end if
if (request("dxfs")="")or (request("dxfs")="0") then
        if clng(request("dxgs"))>0  then
           if request.QueryString("ID")<>"" then
            response.redirect "sjerror.asp?PaperID="&request.QueryString("ID")
          else
            response.redirect "sjerror.asp"
          end if  
        end if
  end if
 if (request("dugs")="")or (request("dugs")="0") then
        if clng(request("dufs"))>0  then
            if request.QueryString("ID")<>"" then
            response.redirect "sjerror.asp?PaperID="&request.QueryString("ID")
          else
            response.redirect "sjerror.asp"
          end if  

        end if
  end if
if (request("dufs")="")or (request("dufs")="0") then
        if clng(request("dugs"))>0  then
            if request.QueryString("ID")<>"" then
            response.redirect "sjerror.asp?PaperID="&request.QueryString("ID")
          else
            response.redirect "sjerror.asp"
          end if  
        end if
  end if
 if (request("tkgs")="")or (request("tkgs")="0") then
        if clng(request("tkfs"))>0  then
           if request.QueryString("ID")<>"" then
            response.redirect "sjerror.asp?PaperID="&request.QueryString("ID")
          else
            response.redirect "sjerror.asp"
          end if  
        end if
  end if
if (request("tkfs")="")or (request("tkfs")="0") then
        if clng(request("tkgs"))>0  then
           if request.QueryString("ID")<>"" then
            response.redirect "sjerror.asp?PaperID="&request.QueryString("ID")
          else
            response.redirect "sjerror.asp"
          end if  
        end if
  end if
 if (request("pdgs")="")or (request("pdgs")="0") then
        if clng(request("pdfs"))>0  then
            if request.QueryString("ID")<>"" then
            response.redirect "sjerror.asp?PaperID="&request.QueryString("ID")
          else
            response.redirect "sjerror.asp"
          end if  
        end if
  end if
if (request("pdfs")="")or (request("pdfs")="0") then
        if clng(request("pdgs"))>0  then
            if request.QueryString("ID")<>"" then
            response.redirect "sjerror.asp?PaperID="&request.QueryString("ID")
          else
            response.redirect "sjerror.asp"
          end if  

        end if
  end if
 if (request("fxgs")="")or (request("fxgs")="0") then
        if clng(request("fxfs"))>0  then
            if request.QueryString("ID")<>"" then
            response.redirect "sjerror.asp?PaperID="&request.QueryString("ID")
          else
            response.redirect "sjerror.asp"
          end if  
        end if
  end if
if (request("fxfs")="")or (request("fxfs")="0") then
        if clng(request("fxgs"))>0  then
          if request.QueryString("ID")<>"" then
            response.redirect "sjerror.asp?PaperID="&request.QueryString("ID")
          else
            response.redirect "sjerror.asp"
          end if  
        end if 
 end if
bl=0
bl=bl+clng(request("zd"))
bl=bl+clng(request("lh"))
bl=bl+clng(request("yy"))
bl=bl+clng(request("pj"))
bl=bl+clng(request("zh"))
bl=bl+clng(request("fx"))
if bl<>100 then
  if request.QueryString("ID")<>"" then
   response.redirect "sjerror.asp?PaperID="&request.QueryString("ID")
  else
   response.redirect "sjerror.asp"
  end if 
end if
Mark=0
for t=1 to 5
 Mark=Mark+clng(ndlist(t))
next 

TotalMark=0
TotalMark=TotalMark+clng(request("dxfs"))
TotalMark=TotalMark+clng(request("dufs"))
TotalMark=TotalMark+clng(request("tkfs"))
TotalMark=TotalMark+clng(request("pdfs"))
TotalMark=TotalMark+clng(request("fxfs"))
if (TotalMark <>clng(request("TotalMark"))) or (Mark<>clng(request("TotalMark")))  then
     if request.QueryString("ID")<>"" then
        response.redirect "sjerror.asp?PaperID="&request.QueryString("ID")
     else
        response.redirect "sjerror.asp"
     end if  
end if
   

   
   Session("Title")=request("Title")
   Session("csjtime")=request("csjtime")
   Session("TotalScore")=request("TotalMark")
   Session("TotalTime")=request("TotalTime")
   Session("csjr")=request("csjr")
   Session("dxfs")=request("dxfs")
   Session("dufs")=request("dufs")
   Session("tkfs")=request("tkfs")
   Session("pdfs")=request("pdfs")
   Session("fxfs")=request("fxfs")
   Session("ssjr")=request("ssjr")
   Session("ssjtime")=request("ssjtime")
 
   

%>

<html>
 
 
<div align="center"></div>
<table width="85%" border="0" height="389" bordercolorlight="#C0C0C0" align="center">
  <tr bgcolor="#FFCCCC"> 
    <td height="148" width="22%"> 
      <div align="center"> 
        <table width="100%" border="0" align="left">
          <tr> 
            <td height="35"> 
              <div align="center">试卷属性</div>
            </td>
          </tr>
     
        </table>
       </div>
    </td>
    <td height="148" width="78%"> 
      <table width="100%" border="1" height="108" cellspacing="0">
        <tr> 
          <td width="25%" bgcolor="#FFFFFF"> 
            <div align="center">试卷标识</div>
          </td>
          <td width="75%" bgcolor="#FFFFFF"> 
            <div align="left"> 
            <%=request("Title")%>
            </div>
          </td>
        </tr>
              <tr> 
            <td width="25%" height="70" bgcolor="#FFFFFF"> 
              <div align="center">试卷难度分布</div>
            </td>
            <td width="75%" height="70" bgcolor="#FFFFFF"> 
              <div align="left">
                <table width="101%" border="1" height="70" align="center">
                  <tr> 
                    <td width="20%"> 
                      <div align="center">难</div>
                    </td>
                    <td width="22%"> 
                      <div align="center">较难</div>
                    </td>
                    <td width="20%"> 
                      <div align="center">中</div>
                    </td>
                    <td width="19%"> 
                      <div align="center">较易</div>
                    </td>
                    <td width="19%"> 
                      <div align="center">易</div>
                    </td>
                  </tr>
                  <tr> 
                     <div align="center"> 
                      <td width="20%" nowrap> 
                      <%=ndlist(1)%>
                      分 </td>
                   </div>
                  <div align="center"> 
                    <td width="20%" nowrap> 
                      <%=ndlist(2)%>
                      分 </td>
                   </div>
                  <div align="center">