admin.asp
这段代码运行后会提示Microsoft VBScript 运行时错误 (0x800A01A8)
缺少对象: ''
/danbj/admin.asp, 第 25 行
可以前我也是这样写的什么就没有出现这个问题啊！这是为什么？
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%option explicit%>
<!--#inclued file="connection.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>管理</title>
</head>
<body>
<table width="754" height="22" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="47"><div align="center">编号</div></td>
<td width="261"><div align="center">标 题</div></td>
<td width="77"><div align="center">作 者</div></td>
<td width="119"><div align="center">时 间</div></td>
<td width="87"><div align="center">信息类别</div></td>
<td width="163"><div align="center">操作</div></td>
</tr>
<%
dim rs,sql,db
sql="select n_id,n_title,n_name,n_date,n_cate from news order by n_date desc"
Set rs=db.Execute(sql)
do while not rs.eof
%>
<tr>
<td align="center"><%=rs("n_id")%></td>
<td align="center"><%=rs("n_title")%></td>
<td align="center"><%=rs("n_name")%></td>
<td align="center"><%=rs("n_date")%></td>
<td align="center"><%=rs("n_cate")%></td>
<td align="center"><a href="dele.asp?n_id=<%=rs("n_id")%>">删除</a> <a href="modify.asp?n_id=<%=rs("n_id")%>">修改</a></td>
</tr>
<%
rs.movenext
loop
%>
</table>
<p> </p>
</body>
</html>
