📄 pdcl.asp
字号:
<%
Path=left(Request.ServerVariables("PATH_TRANSLATED"),InStrRev(Request.ServerVariables("PATH_TRANSLATED"),"\",-1,1))
Path=Path & "Temp4\"
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
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")=4
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("answer")=Upload.Form("pd")
Set File = Upload.Files("shtfj")
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
'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%>
<table width="93%" border="0" height="183" cellspacing="0" align="center">
<tr>
<td height="40" width="13%" nowrap>
<div align="center"><b><font color="#FF3333">判断题</font></b></div>
</td>
<td width="87%"> </td>
</tr>
<tr>
<td width="13%" height="27" nowrap>
<div align="center"><b><font color="#003333">知识点：</font></b> </div>
</td>
<td width="87%" height="27"> <%if(Upload.form("KIDname")<>"") then%>
<%=Upload.form("KIDname")%>
<%else%>
<%=Session("zsdm")%>
<%end if%></td>
</tr>
<tr>
<td width="13%" height="43" nowrap>
<div align="center">试题内容： </div>
</td>
<%if Session("zwwj")<>"" then%>
<td width="87%" height="43">
<p align="left">
<a href="./Temp4/<%=Session("zwwj")%>" target='_blank'>附件</a>
</p>
</td>
</tr>
<tr>
<td width="13%" height="27" nowrap> </td>
<td width="87%" height="27" nowrap>
<div align="left"></div>
<%=Session("zwnr")%></td>
</tr>
<%else%>
<td width="13%" height="27" nowrap><div align="left"><%=Session("zwnr")%></div></td>
</tr>
<%end if%>
<tr>
<td width="13%" nowrap> </td>
<td>
<table width="75%" border="0" align="left">
<tr>
<td width="15%" nowrap>
<div align="left">
<input type="radio" name="pd" value="T" >
<font color="#3333FF" size="3">正确</font> </div>
</td>
<td width="3%" nowrap>
<div align="left"></div>
</td>
<td width="82%" nowrap>
<div align="left">
<input type="radio" name="pd" value="F">
<font color="#3333FF" size="3"> 错误 </font></div>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="13%" nowrap>
<div align="center"><font color="#FF3333">答案：</font> </div>
</td>
<td width="87%" nowrap><div align="left">
<%if Session("answer")="T" then%>
正确 <%else%>错误 <% end if%> </div>
</td>
</tr>
<p > </p>
</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>
</form>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -