<!--#include file="conn.inc"-->
<%
dim i
dim j
Dim k
Dim subject(100)
id=request("id")
id=split(id,",")
i=ubound(id)
for j=0 to i
conn.begintrans
1.conn.execute "delete from exam_database where subject in (Select subject from  exam_subject where id="& cint(id(j))&")"
2.conn.execute "delete from exam_subject where id="& cint(id(j))

Next
response.redirect "adminsubject.asp"
%>
请问问什么光有1时，会删除表exam_database中的内容，1，2同时出现是只会删除exam_subject 中的内容，表exam_database 内容不会发生任何变化？
9月2日 18：00提问

把事务去掉看看

o(∩_∩)o...去掉后成功！谢谢指点！
其中admindatabase.asp中的，全选/取消和删除所选题目，不管用，该如何处理?
9月4日 10：40

[ 本帖最后由 jingjing316 于 2009-9-3 10:38 编辑 ]

我觉得吧 你要是想发东西上来叫别人看 那么最好把用到的东西都打包了 比如数据库什么的 如果只是几个文件 都是代码而已 那看起来像是在考验~ 就是再厉害 也得试试才知道是不是真的对 难道我们应该把没有测试过的答案告诉你 然后又你麻烦完我又继续麻烦吗~

<form name="viewdatabase" method="post"><!--formname="viewdatabase" -->
</form>
124行这里 表单已经结束了 把</form>去掉即可

删除试题那里request.querystring只能获取地址栏参数
而你提交的js 并没有把参数带上 而是用的post提交 怎么可能取到id 应该用 Request("id")

呵呵……真是行家一出手便知有没有啊！谢了！

ps：生成试卷时，若光生成一类题，比如只有单选，多选和判断都设为0，就会出错，怎样修改才能不论单独生成哪一类题都不会报错呢？还发现一个问题，当题库中没有足够数量的题时，参加考试时，多添加一个判断，题量不够时，提示生成试卷失败。

[ 本帖最后由 jingjing316 于 2009-9-3 17:51 编辑 ]