新闻显示部分……>
<!--#include file="conn.asp"-->
<%
dim rs
Set rs= Server.CreateObject("ADODB.Recordset")
%>
<html>
<%
id=request("id")
sql="update news set hits=hits+1 where id="&id
'response.write sql
rs.open sql,conn,1,1
sql="select * from news where id="&request("id")
rs.open sql,conn,1,1
%>
html部分省略
<%
end if
rs.movenext
rs.close
%>
相关评论内容显示部分……>
<%
sql="select disid,distitle,pen_name,disdatetm,discuss from discus where disid="&request("id")
'response.write sql
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.Write("暂无评论！")
%>
<tr>
<td align="center" bgcolor="#EEEEEE"><table width="98%" border="1" cellpadding="0" cellspacing="0" bordercolor="#EEEEEE">
<%else%>
<%do while not rs.eof%>
<tr>
<td bgcolor="#71B1F6"> <span class="tableBorder">[<%=rs("pen_name")%>] 对此文章发表了[<%=rs("distitle")%>]的评论！发表于：[<%=rs("disdatetm")%>]</span></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"> <%=rs("discuss")%></td>
</tr>
<%
rs.movenext
loop
end if
set rs=nothing
conn.close
set conn=nothing
%>
</table></td>
</tr>
运行后
错误类型：
Microsoft OLE DB Provider for ODBC Drivers (0x80040E21)
ODBC 驱动程序不支持所需的属性。
/feishui/inpg/new01.asp, 第 178 行
用response.write sql测试结果为disid=1，从结果上看应该没问题，可是把下面的代码加进去后报错，我反复看了n遍也没看出来问题，只好在这求救了！
