|
主题:考试系统不能提交答案怎么解决?请版主和各位大侠帮助! [收藏主题] | 转到: |
我使用是考试系统,7.06版本。去年建了一个小站,考试类,各项功能正站。后因维护跟不了,没做了。现想重新开站,但程序不好使了。官方给我的程序没做过改动,官方自带的测试数所提交答案正常,但是新增加的就不行了。不能提交答案,如图:这套程序是2010年买的,2012年的时候使用正常,现在不好使了,是有时间限制吗?还是别的原因。
程序没改动,用户名和密码没变,都是默认的,请版主测试一下,帮助找找原因。 测试地址:http://myqqcy.com/mnkc/ |
|
支持(0) | 反对(0) 顶端 底部 |
支持(0) | 反对(0) 顶端 底部 |
支持(0) | 反对(0) 顶端 底部 |
支持(0) | 反对(0) 顶端 底部 |
支持(0) | 反对(0) 顶端 底部 |
调试地址:http://myqqcy.com/mnkc/,版主可以进去看看。用户名和密码都是官方自带的,没有改动。我想知道是什么原因,如何改动。才能让它好使,而不是再增加投资。
|
|
支持(0) | 反对(0) 顶端 底部 |
支持(0) | 反对(0) 顶端 底部 |
支持(0) | 反对(0) 顶端 底部 |
支持(0) | 反对(0) 顶端 底部 |
代码如下:<!--#include file="../../conn.asp"-->
<!--#include file="../../KS_Cls/Kesion.CommonCls.asp"--> <!--#include file="../Include/Session.asp"--> <% dim ks:set ks=new publiccls dtfs=request("dtfs") if request("action")="save" then kid=request("kid") id=request("id") if kid="" then errmsg=errmsg & "非法参数d \n" if id="" then errmsg=errmsg & "参数有误 \n" if errmsg<>"" then response.write("<script>alert('" & errmsg & "');history.go(-1)</script>") else set rs=server.CreateObject("ADODB.RecordSet") sql="select top 1 * from KS_SJTK where id="&id rs.open sql,conn,1,3 rs("title")=request("title") rs("tmnr")=request("tmnr") rs("dajs")=request("dajs") rs("tmfs")=request("tmfs") rs("tmtype")=request("tmtype") rs("answer")=request("answer"&request("tmtype")) rs.update Call KS.FileAssociation(1012,rs("kid"),rs("answer"),0) end if set ks=nothing set rs=nothing conn.close set conn=nothing %> <script> location.href='mnkc_edit.asp?id=<%=kid%>'; alert("修改成功!"); </script> <% end if '参数 tid=request("tid") '类别id id=request("id") kid=request("kid") set rs=server.CreateObject("adodb.recordset") rs.open "select * from KS_SJTK where id="&id,conn,1,1 if rs.bof and rs.eof then response.Write("非法参数!") response.End() end if '类型列表 |
|
支持(0) | 反对(0) 顶端 底部 |
<上一主题 | 下一主题 > |