ASP 代码 谁可以帮忙修改一下？急 急
提示错误第三行缺少对象：''<!--include file="conn.asp"-->
<%
set rss=conn.execute("select * from test order by examinationid desc")
pd=rss("rightorwrongid")
pds=rss("rightorwrongscore")
xz=rss("selectid")
xzs=rss("selectscore")
tk=rss("fillingid")
tks=rss("fillingscore")
zf=pd*pds+xz*xzs+tk*tks
testid=rss("examinationid")
set rs=conn.execute("select * from rightorwrong order by rightorwrongid desc")
maxtype1=rs("rightorwrongid")
set rs=conn.execute("select * from selecting order by selectid desc")
maxtype2=rs("selectid")
set rs=conn.execute("select * from filling order by fillingid desc")
maxtype3=rs("fillingid")
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>第 期考试</title>
</head>
<body>
<form name=form1 action=" test_over.asp">
<input type=hidden name=tks value=<%=tks%>>
<input type=hidden name=xzs value=<%=xzs%>>
<input type=hidden name=pds value=<%=pds%>>
<input type=hidden name=zf value=<%=zf%>>
<input type=hidden name=tk value=<%=tk%>>
<input type=hidden name=xz value=<%=xz%>>
<input type=hidden name=pd value=<%=pd%>>
<table border="1" cellpadding="4" cellspacing="0" width="80%" height="486" align=center>
<tr>
<td align="center"><font class=test1>第 <%=qi%> 期考试</font>
<input type="hidden" name=qi value=<%=qi%>>
<input type=hidden name=testid value=<%=testid%>>
<br>（本期考试 <%=pd%> 道判断题，<%=xz%> 道选择题，<%=tk%> 道填空题，总分 <%=zf%> 分）</br>
<br align="center">考生姓名：<%=session("student")%> 性别：<%=session("sex")%> 班级：<%=session("classes")%> 学号：<%=session("number")%> </br>
<table border="1" width="99%" cellpadding="5" cellspacing="0">
<tr>
<td bgcolor=#9999FF>一、判断题（共 <%=pd%> 道，每题 <%=pds%> 分）</td>
</tr>
<%
if pd=0 then
response.write "<input type=hidden name=messagepd value='本次考无判断题'>"
flagpd=0
%>
<tr>
<td>本次考试无判断题</td>
</tr>
<%
else
for i=1 to pd
if maxtype1=0 then
response.write "<input type=hidden name=messagepd value='题库里暂无判断题'>"
flagpd=0
%>
<tr>
<td>题库里暂无判断题</td>
</tr>
<%
else
randomize
sid=int(maxtype1*rnd+1)
set rst=conn.execute("select * from rightorwrong where rightorwrongid="&sid)
while rst.eof
randomize
sid=int(maxtype1*rnd+1)
set rst=conn.execute("select * from rightorwrong where rightorwrongid="&sid)
wend
%>
<tr>
<td> <%=i%>、<%=rst("question")%>
<input type=hidden name="tgpd<%=i%>" value="<%=rst("question")%>">
<select name="cate<%=i%>" size="1" style="background-color: rgb(224,252,255)">
<option selected value=True>对</option>
<option value=False>错</option></select>
<input type=hidden name="pdda<%=i%>" value="<%=rst("answer")%>">
</select></td>
</tr>
<%
end if
next
end if %>
</table>
<br></br>
<table border="1" width="99%" cellpadding="5" cellspacing="0">
<tr>
<td bgcolor=#9999FF>一、选择题（共 <%=xz%> 题，每题 <%=xzs%>分）</td>
</tr>
<%if xz=0 then
response.write "<input type=hidden name=messagepd value='本次考无选择题'>"
flagxz=0
%>
<tr>
<td>本次考试无选择题</td>
</tr>
<%else
for i=1 to xz
if maxtype2=0 then
response.write "<input type=hidden name=messagepd value='题库里暂无选择题'>"
flagxz=0
%>
<tr>
<td>题库里暂无选择题</td>
</tr>
<%else
randomize
sid=int(maxtype2*rnd+1)
set rst=conn.execute("select * from selecting where selectid="&sid)
while rst.eof
randomize
sid=int(maxtype2*rnd+1)
set rst=conn.execute("select * from selecting where selectid="&sid)
wend
%>
<tr>
<td> <%=i%> 、<%=rst("question")%><input type=hidden name="tgxz<%=i%>" value="<%=rst("question")%>"></td>
</tr>
<tr>
<td>
<input type="radio" value="A" name="sele<%=i%>"> A.<%=rst("result1")%>
<input type=hidden name="xzxx1<%=i%>" value="<%=rst("result1")%>" >
<input type="radio" value="B" name="sele<%=i%>"> B.<%=rst("result2")%>
<input type=hidden name="xzxx2<%=i%>" value="<%=rst("result2")%>" >
<input type="radio" value="C" name="sele<%=i%>"> C.<%=rst("result3")%>
<input type=hidden name="xzxx3<%=i%>" value="<%=rst("result3")%>" >
<input type="radio" value="D" name="sele<%=i%>"> D.<%=rst("result4")%>
<input type=hidden name="xzxx4<%=i%>" value="<%=rst("result4")%>" >
<input type=hidden name="xzda<%=i%>" value="<%=rst("answer")%>" >
</td>
</tr>
<%
end if
next
end if %>
</table>
<br> </br>
<table border="1" width="99%" cellpadding="5" cellspacing="0">
<tr>
<td bgcolor=#9999FF>一、填空题（共 <%=tks%> 题，每题 <%=tks%> 分）</td>
</tr>
<%if tk=0 then
response.write "<input type=hidden name=messagepd value='本次考无填空题'>"
flagtk=0
%>
<tr>
<td>本次考试无填空题</td>
</tr>
<%else
for i=1 to tk
if maxtype3=0 then
response.write "<input type=hidden name=messagepd value='题库里暂无填空题'>"
flagtk=0
%>
<tr>
<td>题库里暂无填空题</td>
</tr>
<%else
randomize
sid=int(maxtype3*rnd+1)
set rst=conn.execute("select * from filling where fillingid="&sid)
while rst.eof
randomize
sid=int((maxtype3+1)*rnd+1)
set rst=conn.execute("select * from filling where fillingid="&sid)
wend
%>
<tr>
<td> <%=i%>、<%=rst("question")%>
<input type=hidden name="tgtk<%=i%>" value="<%=rst("question")%>">
您的答案：<input type="text" name="T<%=i%>" size="31" class="line"></td>
<input type="hidden" name="tkda<%=i%>" value="<%=rst("answer")%>">
</td>
</tr>
<%
end if
next
end if %>
</table>
</td>
</tr>
</table>
<p align="center"><input type="submit" value="提交" name="B1" size=10>
<input type="reset" value="重置" name="B2"></p>
</form>
</body>
</html>
[ 本帖最后由 Lilongjuan 于 2011-5-3 14:44 编辑 ]
