duxcl.asp

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

 
<%
Path=left(Request.ServerVariables("PATH_TRANSLATED"),InStrRev(Request.ServerVariables("PATH_TRANSLATED"),"\",-1,1))
Path=Path & "Temp3\"
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")=Session("zsdh")
Session("zsdmu")=session("zsdm")
if(Upload.form("KID")<>"") then
   Session("zsdhu")=Upload.Form("KID")
end if  
if(Upload.form("KIDname")<>"") then
   Session("zsdmu")=Upload.Form("KIDname")
end if  


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

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")

Session("stzwA")=Upload.Form("stwmA")
Session("stzwB")=Upload.Form("stzwB")
Session("stzwC")=Upload.Form("stzwC")
Session("stzwD")=Upload.Form("stzwD")
Session("stzwE")=Upload.Form("stzwE")
Session("stzwF")=Upload.Form("stzwF")
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
	 else
	    Session("zwwj")=""
	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
	 else
	    Session("stwjA")=""
	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
	 else
	    Session("stwjB")=""
	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
	 else
	    Session("stwjC")=""
	 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
	 else
	    Session("stwjD")=""
	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
	 else
	    Session("stwjE")=""
	end if
	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("stwjF")=FilePath
	 ' File.delete
	 else
	    Session("stwjF")=""
	end if
Session("answer")=""
 for intl=1 to 6
Session("answer")=Session("answer")+UpLoad.Form ("xx"&intl)
 next
 Session("answer")=Session("answer")+"*"
 Session("dajs")=Upload.Form ("dajs")
'Response.Write "试题内容: "+a2
'Response.Write "<BR>试题答案: "
'Response.Write "<br>试题附件："+xxFilePath
'Set TempFileObject1=Server.CreateObject("Scripting.FileSystemObject")
 'TempFileObject1.OpenTextFile(xxFilePath)
%>
<script language="JavaScript">

function xg()
{
   parent.history.back ();
}
</script>
<html>
<% if request.QueryString("Added")="" then%>
<form name="form1" action="strk.asp" method="post" >
<%else%>
<form name="form1" action="strk.asp?Added=<%=request.QueryString("Added")%>&BackTo=<%=request.QueryString("BackTo")%>" method="post" >
<%end if%>
  <p align="center">&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%"> 
        <div align="left"><b><font color="#FF3333">多项选择题</font></b></div>
      </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">  <%if(Upload.form("KIDname")<>"") then%>
    <%=Upload.form("KIDname")%>
    <%else%>
    <%=Session("zsdm")%>
    <%end if%></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="./Temp3/<%=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">　</td>
      <td width="54%" height="24"> 
        <p> 
          <a href="./Temp3/<%=Session("zwwj")%>" target='_blank'>附件</a>
        </p>
      </td>
    </tr>
    <%end if%> 
  </table>

  <table width="97%" border="0" height="24">
    <tr>
      <td height="21"> 
        <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"> 
          <input type="checkbox" name="xx" value="A" >
          A </div>
      </td>
      <td width="54%" height="21"><%=Session("stzwA")%></td>
    </tr>
    <% else%> 
    <tr> 
      <td width="20%" nowrap> 
        <div align="center"> 
          <input type="checkbox" name="xx" value="A" >
          A </div>
      </td>
      <td width="54%"> 
        <p> 
          <a href="./Temp3/<%=Session("stwjA")%>" target='_blank'>附件</a>
        </p>
      </td>
    </tr>
    <%end if%> <%if ((Session("stzmA" )<>"")and (Session("stwjA")<>"")) then%> 
    <tr> 
      <td width="20%" nowrap>　</td>
      <td width="54%"> 
        <p> 
          <a href="./Temp3/<%=Session("stwjA")%>" target='_blank'>附件</a>
        </p>
      </td>
    </tr>
    <tr> 
      <td width="20%" nowrap>　</td>
      <td width="54%">　</td>
    </tr>
    <%end if%> <%if (Session("stzwB" )<>"") then%> 
    <tr> 
      <td width="20%" nowrap> 
        <div align="center"> 
          <input type="checkbox" name="xx" value="B" >
          B </div>
      </td>
      <td width="54%"><%=Session("stzwB")%></td>
    </tr>
    <% elseif (Session("stwjB" )<>"") then%> 
    <tr> 
      <td width="20%" nowrap> 
        <div align="center"> 
          <input type="checkbox" name="xx" value="B" >
          B </div>
      </td>
      <td width="54%"> 
        <p> 
          <a href="./Temp3/<%=Session("stwjB")%>" target='_blank'>附件</a> 
        </p>
      </td>
    </tr>
    <%end if%> <%if ((Session("stzwB" )<>"")and (Session("stwjB")<>"")) then%> 
    <tr> 
      <td width="20%" nowrap>　</td>
      <td width="54%"> 
        <p> 
          <a href="./Temp3/<%=Session("stwjB")%>" target='_blank'>附件</a>
        </p>
      </td>
    </tr>
    <tr> 
      <td width="20%" nowrap>　</td>
      <td width="54%">　</td>
    </tr>
    <%end if%> <%if (Session("stzwC" )<>"") then%> 
    <tr> 
      <td width="20%" nowrap> 
        <div align="center"> 
          <input type="checkbox" name="xx" value="C" >
          C </div>
      </td>
      <td width="54%"><%=Session("stzwC")%></td>
    </tr>
    <% elseif (Session("stwjC" )<>"") then%> 
    <tr> 
      <td width="20%" nowrap> 
        <div align="center"> 
          <input type="checkbox" name="xx" value="C" >
          C </div>
      </td>
      <td width="54%"> 
        <p> 
          <a href="./Temp3/<%=Session("stwjC")%>" target='_blank'>附件</a>
        </p>
      </td>
    </tr>
    <%end if%> <%if ((Session("stzwC" )<>"")and(Session("stwjC")<>"")) then%> 
    <tr> 
      <td width="20%" nowrap>　</td>
      <td width="54%"> 
        <p> 
          <a href="./Temp3/<%=Session("stwjC")%>" target='_blank'>附件</a>
        </p>
      </td>
    </tr>
    <tr> 
      <td width="20%" nowrap>　</td>
      <td width="54%">　</td>
    </tr>
    <%end if%> <%if (Session("stzwD" )<>"") then%> 
    <tr> 
      <td width="20%" nowrap> 
        <div align="center"> 
          <input type="checkbox" name="xx" value="D" >
          D </div>
      </td>
      <td width="54%"><%=Session("stzwD")%></td>
    </tr>
    <% elseif (Session("stwjD" )<>"") then%> 
    <tr> 
      <td width="20%" nowrap> 
        <div align="center"> 
          <input type="checkbox" name="xx" value="D" >
          D </div>
      </td>
      <td width="54%"> 
        <p> 
          <a href="./Temp3/<%=Session("stwjD")%>" target='_blank'>附件</a>
        </p>
      </td>
    </tr>
    <%end if%> <%if ((Session("stzwD" )<>"")and(Session("stwjD")<>"")) then%> 
    <tr> 
      <td width="20%" nowrap>　</td>
      <td width="54%"> 
        <p> 
          <a href="./Temp3/<%=Session("stwjD")%>" target='_blank'>附件</a>
        </p>
      </td>
    </tr>
    <tr>
      <td width="20%" nowrap>　</td>
      <td width="54%">　</td>
    </tr>
    <%end if%> <%if (Session("stzwE" )<>"") then%> 
    <tr> 
      <td width="20%" nowrap> 
        <div align="center"> 
          <input type="checkbox" name="xx" value="E" >
          E </div>
      </td>
      <td width="54%"><%=Session("stzwE")%></td>
    </tr>
    <% elseif (Session("stwjE" )<>"") then%> 
    <tr> 
      <td width="20%" nowrap> 
        <div align="center"> 
          <input type="checkbox" name="xx" value="E" >
          E </div>
      </td>
      <td width="54%"> 
        <p> 
          <a href="./Temp3/<%=Session("stwjE")%> " target='_blank'>附件</a>
        </p>
      </td>
    </tr>
    <%end if%> <%if ((Session("stzwE" )<>"")and(Session("stwjE")<>"")) then%> 
    <tr> 
      <td width="20%">　</td>
      <td width="54%"> 
        <p> 
          <a href="./Temp3/<%=Session("stwjE")%> " target='_blank'>附件</a>
        </p>
      </td>
    </tr>
    <%end if%> 
     <%if (Session("stzwF" )<>"") then%> 
    <tr> 
      <td width="20%" nowrap> 
        <div align="center"> 
          <input type="checkbox" name="xx" value="F" >
          F </div>
      </td>
      <td width="54%"><%=Session("stzwF")%></td>
    </tr>
    <% elseif (Session("stwjF" )<>"") then%> 
    <tr> 
      <td width="20%" nowrap> 
        <div align="center"> 
          <input type="checkbox" name="xx" value="F" >
          F </div>
      </td>
      <td width="54%"> 
        <p> 
          <a href="./Temp3/<%=Session("stwjF")%> " target='_blank'>附件</a>
        </p>
      </td>
    </tr>
    <%end if%> <%if ((Session("stzwF" )<>"")and(Session("stwjF")<>"")) then%> 
    <tr> 
      <td width="20%">　</td>
      <td width="54%"> 
        <p> 
          <a href="./Temp3/<%=Session("stwjF")%> " target='_blank'>附件</a>
        </p>
      </td>
    </tr>
    <%end if%> 
  
  </table>
  <table width="97%" border="0">
    <tr> 
      <td> 
        <hr>
      </td>
    </tr>
  </table>
  <table width="93%" border="0">
    <tr> 
      <td width="33%" nowrap> 
        <div align="center"><b><font color="#FF3333">答案：</font></b></div>
      </td>
      <td width="67%"><%=Session("answer")%></td>
    </tr>
    <tr> 
      <td width="33%" nowrap> 
        <div align="center"><font color="#FF3333">答案解释：</font></div>
      </td>
      <td width="67%"><%=Session("dajs")%></td>
    </tr>
  </table>
  <table width="92%" border="0">
    <tr> 
      <td width="43%" nowrap> 
        <div align="right"> 
          <input type="button" name="xgst" value="修改试题" onClick="xg()">
        </div>
      </td>
      <td width="17%" nowrap> 
        <div align="center"> 
          <input type="submit" name="Submit" value="入库">
        </div>
      </td>
      <td width="40%" nowrap> 
        <input type="submit" name="Submit2" value="取消">
      </td>
    </tr>
  </table>
  <p>　</p>
  <p>　</p>
  <p>　</p>
  </form>
</html>










<html><script language="JavaScript">                                                                  </script></html>