stmodcl.asp

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

<%
Path=left(Request.ServerVariables("PATH_TRANSLATED"),InStrRev(Request.ServerVariables("PATH_TRANSLATED"),"\",-1,1))
select case Request.QueryString("type") 
case 1 t="Temp1\"
case 2 t="Temp3\"
case 3 t="Temp2\"
case 4 t="Temp4\"
case 5 t="Temp5\"
end select
Path=Path & t
Set TempFileObject=Server.CreateObject("Scripting.FileSystemObject")
if TempFileObject.FolderExists(Path)=false then
	TempFileObject.CreateFolder(Path)
end if

Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.OverwriteFiles = True
Count = Upload.Save(Path)
if Err <> 0 Then
		Response.Write "Error saving the file: " & Err.Description
end if
Upload.SetMaxSize 25000000,false
For Each File in Upload.Files
		if File.OriginalSize>25000000 then
			Response.Write "<p align='left'><font color='red'>系统信息：</font></p>"
			Response.Write "<p align='left'><font color='blue'>您上载的文件太大了！系统能接受的最大文件为25M！</font></p>"
			File.Delete
			Response.Write "<p align='center'><input type='button' onclick='javescript:window.close()' name='n55' value='关闭此窗口'></p>"
			response.end
		end if
Next

'a=Upload.Form("t2")
'a1=Upload.Form("tx")
   Session("zsdhu")=Upload.Form("KID")
  
 
   Session("zsdmu")=Upload.Form("KIDname")
 

Session("worktype")=Upload.Form ("WorkType")
Session("rzhfl")=Upload.Form ("rzhfl")
Session("ksyq")=Upload.Form ("ksyq")
Session("pjbzh")=Upload.Form ("pjbzh")
Session("tx")=1

Session("nd")=Upload.Form("nd")
Session("qfd")=Upload.Form("qfd")
Session("jyshj")=Upload.Form("jyshj")
Session("jyfsh")=Upload.Form("jyfsh")
Session("chtr")=Upload.Form("chtr")
Session("chtrq")=Upload.Form("chtrq")
Session("shdr")=Upload.Form ("shdr")
Session("shdrq")=Upload.Form ("shdrq")
Session("zwnr")=Upload.Form ("zwnr")

if Request.QueryString("type")=3 then
  Session("answer")=""
dim i,j
i=1
while(i<=5 )
  if UpLoad.Form("da"&i)<>"" then
  Session("answer")=Session("answer")&"/"&UpLoad.Form ("da"&i)
  end if
  i=i+1
wend  
end if
if Request.QueryString("type")=4 then
  Session("answer")=""
  Session("answer")=Upload.Form("pd")
end if
if Request.QueryString("type")=5 then
  Session("answer")=""
  Session("answer")=Upload.Form("answer")
end if  
Set File = Upload.Files("zwwj")
	If Not File Is Nothing Then 
		FilePath=File.Path
		xxFilePath=FilePath
		FilePath=right(FilePath,len(FilePath)-InstrRev(FilePath,"\",-1,1))
	    Session("zwwj")=FilePath
	 ' File.delete
    end if
	
	 %>
 <script language="JavaScript">

function xg()
{
   parent.history.back ();
}
</script>

 
 <%

if Request.QueryString("type")<3 then
 Session("stzwA")=Upload.Form("stzwA")
 Session("stzwB")=Upload.Form("stzwB")
 Session("stzwC")=Upload.Form("stzwC")
 Session("stzwD")=Upload.Form("stzwD")
 Session("stzwE")=Upload.Form("stzwE")
 if Request.QueryString("type")=2 then
     Session("stzwF")=Upload.Form("stzwF")
 end if

Set File = Upload.Files("stwjA")
	If Not File Is Nothing Then 
		FilePath=File.Path
		xxFilePath=FilePath
		FilePath=right(FilePath,len(FilePath)-InstrRev(FilePath,"\",-1,1))
	    Session("stwjA")=FilePath
	 ' File.delete
	end if
Set File = Upload.Files("stwjB")
	If Not File Is Nothing Then 
		FilePath=File.Path
		xxFilePath=FilePath
		FilePath=right(FilePath,len(FilePath)-InstrRev(FilePath,"\",-1,1))
	    Session("stwjB")=FilePath
	 ' File.delete
	end if
Set File = Upload.Files("stwjC")
	If Not File Is Nothing Then 
		FilePath=File.Path
		xxFilePath=FilePath
		FilePath=right(FilePath,len(FilePath)-InstrRev(FilePath,"\",-1,1))
	    Session("stwjC")=FilePath
	 ' File.delete
	 end if
Set File = Upload.Files("stwjD")
	If Not File Is Nothing Then 
		FilePath=File.Path
		xxFilePath=FilePath
		FilePath=right(FilePath,len(FilePath)-InstrRev(FilePath,"\",-1,1))
	    Session("stwjD")=FilePath
	 ' File.delete
	 end if
Set File = Upload.Files("stwjE")
	If Not File Is Nothing Then 
		FilePath=File.Path
		xxFilePath=FilePath
		FilePath=right(FilePath,len(FilePath)-InstrRev(FilePath,"\",-1,1))
	    Session("stwjE")=FilePath
	 ' File.delete
	end if
 if Request.QueryString("type")=2 then
    Set File = Upload.Files("stwjF")
	If Not File Is Nothing Then 
		FilePath=File.Path
		xxFilePath=FilePath
		FilePath=right(FilePath,len(FilePath)-InstrRev(FilePath,"\",-1,1))
	    Session("stwjE")=FilePath
	 ' File.delete
	end if
 end if
 if Request.QueryString("type")=1 then
    Session("answer")=""
    Session("answer")=Upload.Form ("xx")
 else 
      Session("answer")=""
      for intl=1 to 6
      Session("answer")=Session("answer")+UpLoad.Form ("xx"&intl)
      next
      Session("answer")=Session("answer")+"*"
  end if 
end if 
 Session("dajs")=Upload.Form ("dajs")
 
%>
 
 
<html>
<form name="form1" action="modrk.asp?id=<%=Request.QueryString("id")%>&type=<%=Request.QueryString("type")%>" method="post" >
  <p>&nbsp; </p>
  <table width="93%" border="0" height="110" cellspacing="0" align="center">
    <tr> 
      <td height="40" width="20%"> 
        <div align="center"></div>
      </td>
      <td height="40" width="54%"> 
       <% select case Request.QueryString("type") 
           case 1 tt="./Temp1/"%> <div align="left"><b><font color="#FF3333">单项选择题</font></b></div>
           <%case 2 tt="./Temp3/"%><div align="left"><b><font color="#FF3333">多项选择题</font></b></div>
           <%case 3 tt="./Temp2/"%><div align="left"><b><font color="#FF3333">填空题</font></b></div>
           <%case 4 tt="./Temp4/"%><div align="left"><b><font color="#FF3333">判断题</font></b></div>
           <%case 5 tt="./Temp5/"%><div align="left"><b><font color="#FF3333">分析题</font></b></div>
        <% end select%>
      </td>
    </tr>
    <tr> 
      <td width="20%" height="27" nowrap> 
        <div align="center"><b><font color="#003333">知识点：</font></b></div>
      </td>
      <td width="54%" height="27">
     <%=Session("zsdmu")%></td>
    </tr>
    <tr> 
      <td width="20%" height="43" nowrap> 
        <div align="center">试题内容：</div>
      </td>
      <%if Session("zwnr")="" then%> 
      <td width="54%" height="43"> 
        <p> 
          <a href="<%=tt%><%=Session("zwwj")%>" target="_blank" >试题附件</a>
        </p>
      </td>
</tr>
      <%else%>
<td width="54%" height="27"><%=Session("zwnr")%></td> </tr>
    <%end if%> <%if ((Session("zwnr")<>"") and (Session("zwwj")<>"")) then%> 
    <tr> 
      <td width="20%" height="24">&nbsp;</td>
      <td width="54%" height="24"> 
        <p> 
          <a href="<%=tt%><%=Session("zwwj")%>" target="_blank" >试题附件</a>
        </p>
      </td>
    </tr>
    <%end if%> 
  </table>

  <%if Request.QueryString("type") <3 then%> 
  <table width="97%" border="0" height="24">
    <tr>
      <td>
        <hr>
      </td>
    </tr>
  </table>
 
  <table width="93%" border="0" height="110" cellspacing="0" align="center">
    <%if (Session("stzwA" )<>"") then%> 
    <tr> 
      <td width="20%" nowrap> 
        <div align="center"> 
          <%if Request.QueryString("type")=1 then%>
             <input type="radio" name="stxx" value="A" >
           <% else %>  
             <input type="checkbox" name="stxx" value="A" >  
           <%end if%>  
          A</div>  
      </td>  
      <td width="54%" height="21"><%=Session("stzwA")%></td>  
    </tr>  
    <% else%>   
    <tr>   
      <td width="20%" nowrap>   
        <div align="center">   
          <%if Request.QueryString("type")=1 then%>  
             <input type="radio" name="stxx" value="A" >  
           <% else %>  
             <input type="checkbox" name="stxx" value="A" >  
           <%end if%>  
          A</div>  
      </td>  
      <td width="54%">   
        <p>   
          <a href="<%=tt%><%=Session("stwjA")%>" target="_blank" >选项A附件</a>  
        </p>  
      </td>  
    </tr>  
    <%end if%> <%if ((Session("stzwA" )<>"")and (Session("stwjA")<>"")) then%>   
    <tr>   
      <td width="20%" nowrap>&nbsp;</td>  
      <td width="54%">   
        <p>   
          <a href="<%=tt%><%=Session("stwjA")%>" target="_blank" >选项A附件</a>  
        </p>  
      </td>  
    </tr>  
    <tr>   
      <td width="20%" nowrap>&nbsp;</td>  
      <td width="54%">&nbsp;</td>  
    </tr>  
    <%end if%> <%if (Session("stzwB" )<>"") then%>   
    <tr>   
      <td width="20%" nowrap>   
        <div align="center">   
          <%if Request.QueryString("type")=1 then%>  
             <input type="radio" name="stxx" value="B" >  
           <% else %>