| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1045 人关注过本帖
标题:[求助]:Microsoft VBScript 运行时错误 (0x800A01A8)
取消只看楼主 加入收藏
fantasyyan
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2005-11-2
收藏
 问题点数:0 回复次数:0 
[求助]:Microsoft VBScript 运行时错误 (0x800A01A8)
错误类型:
Microsoft VBScript 运行时错误 (0x800A01A8)
缺少对象: ''
/12/yuejuan.asp, 第 119 行
为什么这个文件,我之前运行好使,可突然就不好使了呢,在网上下cleancache.asp,没有下到,帮忙解决一下,谢谢了

119行在最后,已用红色体加粗注明!
<%@language=vbscript%>

<%
if session("tname")="" or session("tpassword")="" or session("tpass")="" then
response.write"<html><body>网页已经过期,请回到<a href='index.asp'>登录</a>页面!</body></html>"
response.end
end if
set conn=server.createobject("ADODB.connection")
conn.Open"provider=Microsoft.Jet.OLEDB.4.0;DATA Source="&server.mappath("test.mdb")
set rs=server.createobject("ADODB.recordset")
%>
<html>

<head>
<title>在线阅卷</title>
</head>

<body topmargin="0" leftmargin="0" rightmargin="0" bottommargin="0" marginwidth="0" marginheight="0" bgcolor="#0099CC">
<table border="1" width="100%" id="table1" height="424" cellspacing="0" cellpadding="0">
<tr>
<td width="100%" valign="top">

<%
name=request("name")
if name<>"" then
if len(name)>=4 then
name=left(name,1)+right(name,1)
end if
sql="select * from "&name&"的表 where 试题题型='问答'"
set base=conn.execute(sql)
dim a(12)
a(1)="一"
a(2)="二"
a(3)="三"
a(4)="四"
a(5)="五"
a(6)="六"
a(7)="七"
a(8)="八"
a(9)="九"
a(10)="十"
response.write"<form name='form' action='okdoit.asp' method='post'><input type='hidden' name='name' value='"&name&"'>"
response.write"<br><center><font color='red'>"&name&"同学的问答题</font></center>"
response.write"<table width='100%' align='center'>"
i=1
do while not base.eof
response.write"<tr><td align='left' >"
response.write"<fieldset style='padding: 2'>"
response.write"<legend>问答题"&a(i)&"</legend>"
response.write"<font size='2'>试题问题:</font><textarea rows='3' cols='75' readonly>"&base("试题")&"</textarea><input type='text' name='wen"&i&"ans' size='5' value='"&base("试题分数")&"' style='height: 52; width: 35; font-size: 18pt; color: #000000; background-color: #FFFFFF' readonly >分<br>"
response.write"<font size='2'>参考答案:</font><textarea rows='3' cols='75' readonly>"&base("答案")&"</textarea><font size='2'>&nbsp;判分</font><br>"
response.write"<font size='2'>用户答案:</font><textarea rows='3' cols='75' readonly>"&base("用户答案")&"</textarea><input type='text' size='5' name='wen"&i&"' style='height: 52; width: 35; font-size: 18pt; color: #000000; background-color: #FFFFFF'>分"
response.write"</fieldset>"
response.write"</td></tr>"
base.movenext
i=i+1
loop
session("tl")=i-1
response.write"</table>"
response.write"<br><center><input type='submit' value='保存阅卷'></center><br>"
response.write"</form>"
else
%>
<br>

<center><font size="2" color="#FF0000"><input type='button' name='refresh' value='刷 新' style='color: #FFFFFF; border: 1px solid #0000FF; background-color: #0000FF' onClick="vbscript:parent.I1.location.reload">下面是您负责班级学生的考试情况,单击姓名可对其进行阅卷(请注意其是否已经交卷)</font></center>
<table border="1" width="90%" id="table2" cellspacing="0" cellpadding="0" align="center">
<tr>
<td align="center"><font size="2">姓名</font></td>
<td align="center"><font size="2">是否阅卷</font></td>
<td align="center"><font size="2">时间</font></td>
<td align="center"><font size="2">总分</font></td>
<td align="center"><font size="2">成绩</font></td>
<td align="center"><font size="2">参数</font></td>
<td align="center"><font size="2">试卷名称</font></td>
<td align="center"><font size="2">状态</font></td>
</tr>
<%
set conn=server.createobject("ADODB.connection")
conn.Open"provider=Microsoft.Jet.OLEDB.4.0;DATA Source="&server.mappath("test.mdb")
set rs=server.createobject("ADODB.recordset")
response.write"<form name='allname' action='yuejuan.asp' method='post'>"
sql="select * from 普通用户表 where 任课教师='"&session("tname")&"'"
set rs=conn.execute(sql)
do while not rs.eof
sname=rs("用户名")
sql="select * from 成绩登记表 where 用户名='"&sname&"'"
set base=conn.execute(sql)
'if not base.eof then
do while not base.eof
response.write"<tr>"
sname=base("用户名")
state=base("当前状态")
if len(sname)=2 then
sname=left(sname,1)+"&nbsp;&nbsp;"+right(sname,1)
end if
if state="正在考试" then
yesorno="disabled"
else
yesorno=""
end if
response.write"<td align='center'><input type='submit' name='name' value='"&sname&"' "&yesorno&" style='color: #FFFFFF; border: 1px solid #808080; background-color: #808080'></td>"
response.write"<td align='center'><font size='2'>"&base("阅否")&"</font></td>"
response.write"<td align='center'><font size='2'>"&base("时间")&"</font></td>"
response.write"<td align='center'><font size='2'>"&base("总分")&"</font></td>"
response.write"<td align='center'><font size='2'>"&base("成绩")&"</font></td>"
response.write"<td align='center'><font size='2'>"&base("附加参数")&"</font></td>"
response.write"<td align='center'><font size='2'>"&base("试卷名称")&"</font></td>"
response.write"<td align='center'><font size='2'>"&base("当前状态")&"</font></td>"
response.write"</tr>"
base.movenext
loop
'else
'response.write"对不起,目前不存在数据"
'end if
rs.movenext
loop
response.write"</form>"
base.close
set base=nothing
conn.close
set conn=nothing
%>
</table>
<%
end if
%>
</td>
</tr>
</table>


</body>

</html>

搜索更多相关主题的帖子: Microsoft VBScript 运行 
2006-06-11 12:25
快速回复:[求助]:Microsoft VBScript 运行时错误 (0x800A01A8)
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.024578 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved