新手，不知道错在哪里 - ASP技术论坛

楼主

问题点数：0 回复次数：6

新手，不知道错在哪里

我从网上下载了一个留言簿（申江留言本精简版），在家里调试能用，但上传到服务器后，第一次使用时能打开留言簿，再次就无法打开了，错误提示如下：
ADODB.Recordset 错误 '800a0e78'

对象关闭时，不允许操作。

/txtb/index.asp，行 111

相应页面的代码如下（无关代码已经删除），请大家帮助指点！

<body>
<%
response.expires=-1
Dim cn,rs
set cn=server.CreateObject("ADODB.Connection")
set rs=server.CreateObject("ADODB.Recordset")

CreateConn cn,dbtype
Dim ItemsCount,PagesCount,CurrentItemsCount,ipage
get_divided_page cn,rs,"SELECT COUNT(id) FROM main","SELECT * FROM main","id DEC",Request.QueryString("page"),ItemsPerPage,ItemsCount,PagesCount,CurrentItemsCount,ipage
%>

<%while rs.EOF=false and Response.IsClientConnected%> '出错的代码行

<%
rs.MoveNext
wend
%>

<table border="1" cellpadding="2" style="width:<%=TableWidth%>px; margin-top:20px; border-collapse:collapse; table-layout:fixed;" bordercolor="<%=TableBorderColor%>">
<tr style="height:25px; text-align:center;">
<td style="color: <%=TableTitleColor%>; font-weight: bold; background-color: <%=TableTitleBGC%>; background-image: url('image/bar_blue.gif')">
[留言分页]
</td>
</tr>
<tr>
<td style="color:<%=TableContentColor%>; padding:5px; vertical-align:top; background-color:<%=TableContentBGC%>;">
<%
for j=1 to PagesCount
if j=ipage then
Response.Write "<span style=""color:#FF0000"">[" &cstr(j)&"] </span>"
else
Response.Write "<a href=""index.asp?page=" & cstr(j) & """>[" &cstr(j)&"]</a> "
end if
next
%>
</td>
</tr>
</table>

</div>

<%
rs.Close
cn.Close
set rs=nothing
set cn=nothing
%>
</body>

第 2 楼

得分:0

listword.asp文件是列出已有的留言，代码如下：
<table border="1" cellpadding="2" style="width:<%=TableWidth%>px; margin-top:20px; border-collapse:collapse; table-layout:fixed;" bordercolor="<%=TableBorderColor%>" ID="Table1">
<tr class="title">
  <td class="title"><span style="color:<%=TableTitleColor%>;"><%=rs("title") %></span></td>
</tr>
<tr>
  <td class="content">
   <%
    t_rs=rs("article")
    if t_rs<>"" then
       Response.Write t_rs
    else
       Response.Write "(无内容)"
    end if
   %>

   <%if rs("replied")=true then%>
     <div style="border:1px dotted <%=TableBorderColor%>; margin:20px;">
     <table border="0" cellpadding="2" style="border-collapse:collapse; table-layout:fixed;" bordercolor="<%=TableBorderColor%>" ID="Table2">
       <tr class="title">
         <td class="title" style="font-weight:bold;">版主回复：</td>
       </tr>
       <tr>
         <td class="content">
          <%
           set rs1=server.CreateObject("ADODB.Recordset")
           rs1.open "select * from reply where articleid=" &rs("id"),cn
           response.write rs1("reinfo")
           rs1.close
           set rs1=nothing
          %>
         </td>
       </tr>
     </table>
    </div>
  <%end if%>

  <p style="text-align:right">
  <%
    if rs("email")<>"" then Response.Write "<a href=""mailto:" &rs("email")& """ title=""作者邮箱：" &rs("email")& """ /><img src=""image/icon_mail.gif"" style=""border:0px;"" /></a> "
    if rs("qqid")<>"" then Response.Write "<img src=""image/icon_qq.gif"" title=""作者QQ：" &rs("qqid")& """ style=""border:0px;"" /> "
    if rs("homepage")<>"" then Response.Write "<a href=""" &rs("homepage")& """ target=""_blank"" title=""作者主页：" &rs("homepage")& """><img src=""image/icon_homepage.gif"" style=""border:0px;"" /></a> "
   %>
  </p>
</td>
</tr>
<tr class="status">
   <td class="status" nowrap="nowrap">作者:<% =rs("name") %>　发表于:<% =rs("logdate") %></td>
</tr>
</table>