📄 modrk.asp
字号:
<!--#include file="../db.asp"-->
<%
objConn.Open strConnection
Set objRS = Server.CreateObject ("ADODB.Recordset")
Set objRS.ActiveConnection = objConn
dim nextn
strQ="select * from ItemTable where ItemID="&Request.QueryString("id")
objRS.Open strQ ,objConn,2,3
objRS("STNR")=Session("zwnr")
objRS("STWJ")=Session("zwwj")
objRS("DAAN")=Session("answer")
objRS("DAZJ")=Session("dasj")
select Case objRS("Itemtype")
Case 1
objRS("xxA")=Session("stzwA")
objRS("xxAwj")=Session("stwjA")
objRS("xxB")=Session("stzwB")
objRS("xxBwj")=Session("stwjB")
objRS("xxC")=Session("stzwC")
objRS("xxCwj")=Session("stwjC")
objRS("xxD")=Session("stzwD")
objRS("xxDwj")=Session("stwjD")
objRS("xxE")=Session("stzwE")
objRS("xxEwj")=Session("stwjE")
Case 2
objRS("xxA")=Session("stzwA")
objRS("xxAwj")=Session("stwjA")
objRS("xxB")=Session("stzwB")
objRS("xxBwj")=Session("stwjB")
objRS("xxC")=Session("stzwC")
objRS("xxCwj")=Session("stwjC")
objRS("xxD")=Session("stzwD")
objRS("xxDwj")=Session("stwjD")
objRS("xxE")=Session("stzwE")
objRS("xxEwj")=Session("stwjE")
objRS("xxE")=Session("stzwF")
objRS("xxFwj")=Session("stwjF")
Case 3
Case 4
Case 5
end select
objRS("Difficulty")=Session("nd")
objRS("Division")=Session("qfd")
objRS("CognizeClass")=Session("rzhfl")
objRS("SuggestScore")=Session("jyfsh")
objRS("SuggestTime")=Session("jyshj")
objRS("WriteSubjectID")=Session("chtr")
objRS("WriteSubjectTime")=Session("chtrq")
objRS("WriteSubjectTime")=Session("chtrq")
objRS("ExamineID")=Session("shdr")
objRS("ExamineTime")=Session("shdrq")
objRS.Update
objRS.Close
' strQ= "select * from ZSD_ST where ItemID="&Request.QueryString("id")
' objRS.Open strQ,objConn,2,3
'KID=Session("zsdhu")
'if KID="" then
' objRS("KnowledgeID")=0
' objRS.Update
'else
' begin=instr(KID,";")
' if begin=0 then
' objRS("KnowledgeID")=KID
' objRS.Update
' end if
' while begin<>0
' KnowledgeID=left(KID,begin-1)
' LENKID=Len(KID)
' KID=Right(KID,(LENKID-Begin))
' begin=instr(KID,";")
' objRS("KnowledgeID")=KnowledgeID
' objRS.Update
' wend
'end if
'objRS.Close
Set objRS=Nothing
Set objConn=Nothing
%>
<html>
</script>
<body bgcolor="#FFCCCC">
<table width="100%" border="0" height="30" bgcolor="#FFCCCC">
<tr>
<td width="36%" nowrap> </td>
<td width="22%" nowrap><b><font color="#FF0000">试题已成功修改入库</font></b></td>
<td width="42%"> </td>
</tr>
</table>
<p> </p>
<p> </p>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -