Microsoft VBScript 运行时错误 错误 '800a01a8'
Microsoft VBScript 运行时错误 错误 '800a01a8'缺少对象: ''
/manage/survey/surveylist.asp，行 40
下面是surveylist.asp代码
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="session.asp"-->
<!--#include file="../conndd.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<%
response.buffer=true
'强制浏览器重新访问服务器下载页面，而不是从缓存读取页面
Response.Buffer = True
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<link href="../../css/zitou.css" rel="stylesheet" type="text/css"/>
<style type="text/css">
td{font-size:12px}
</style>
</head>
<script type="" language="javascript">
function fanhui(u){
window.location.href=u;
}
</script>
<body bottommargin="0" leftmargin="0" rightmargin="0" topmargin="3" marginheight="0" marginwidth="0">
<table cellspacing="3">
<tr><td>
<input type="button" onClick="fanhui('addnews.asp?')" value="新增调查信息" class="button01"/>
</td></tr>
</table>
<%
sql="select * from survey" 第40行 rs.open sql,conn,1,1
if rs.eof then
Response.Write("现在没有调查信息。")
Response.end
end if
rs.pagesize=18
currentpage=cint(request("page"))
if currentpage="" or not isnumeric(currentpage) then currentpage=1
if currentpage<1 then currentpage=1
if currentpage>rs.pagecount then currentpage=rs.pagecount
rs.absolutepage=currentpage
i=1
shu=(currentpage-1)*rs.pagesize+1
%>
<table width="798" border="1" align="center" cellpadding="1" cellspacing="0" bordercolor="086F92" bordercolordark="#FFFFFF">
<form name="form2" method="post" action=delete2.asp?id=<%=rs("SV_id")%>&page=<%=currentpage%>>
<tr align="center">
<td width="31" height="25">序号</td>
<td width="363">调查标题</td>
<td width="150">上传日期</td>
<td width="69">录入员</td>
<td height="25">修改</td>
<td height="25"><input name="submit" type="submit" style="padding-top:3px" onClick="return confirm('确定删除吗？')" value="删除"></td>
</tr>
<%
Do While Not rs.Eof
%>
<tr align="center">
<td><%=shu%></td>
<td><%=left(rs("SV_Title"),27)%></td>
<td><%=rs("SV_MakeDate")%></td>
<td><%=rs("SV_Maker")%></td>
<td width="33" align="center"><a href="modify2.asp?id=<%=rs("SV_id")%>">修改</a></td>
<td width="48" align="center"><input type="checkbox" name="ck" value=<%=rs("SV_id")%> hidefocus=true></td>
</tr>
<%
rs.MoveNext
i=i+1
shu=shu+1
If i>18 Then Exit Do
Loop
%>
</form>
<tr align="center">
<td colspan="6">
<table width="62%" border="0" align="center" cellpadding="0" cellspacing="0">
<form name="form1" method="post" action="surveylist.asp">
<tr>
<td>共有记录:<font color=red><%=rs.recordcount%></font> <a href=surveylist.asp>首页</a> <a href=surveylist.asp?page=<%=currentpage-1%>>上一页</a> <a href=surveylist.asp?page=<%=currentpage+1%>>下一页</a> <a href=surveylist.asp?page=<%=rs.pagecount%>>尾页</a>
转到
<input name="page" type="text" id="page" value="<%=currentpage%>" size="2">
<input type="submit" name="Submit" value="GO">
<input name="key" type="hidden" id="key" value="<%=key%>"></td>
</tr>
</form>
</table>
</td>
<td align="center">
<input type="checkbox" name="d" onClick="for(i=0;i<document.all.ck.length;i++)document.all.ck[i].checked=this.checked">全选</td>
</tr>
</table>
</body>
</html>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
--------------------编程问答-------------------- 楼主，你发错板块啦 --------------------编程问答-------------------- 缺少连接字符串呀
cn.open "...."
补充：VB , 基础类
