ASP中的代码出问题了!

来源:百度知道 编辑:UC知道 时间:2024/06/08 07:26:06
我把本来是SQL数据库的新闻发布系统,改成了ACCESS的,就出问题了!大家帮我看下!谢谢!
不知道错那里了 要怎么改呢????
错误类型:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E21)
ODBC 驱动程序不支持所需的属性。
/newsView.asp, 第 16 行
浏览器类型:
newsView.asp代码
<%
Dim rsCate
'定义记录集对象
Set rs = Server.CreateObject("ADODB.RecordSet")
Set rsCate = Server.CreateObject("ADODB.RecordSet")
'设置SQL语句,读取指定的新闻记录
sqlString="SELECT * FROM News WHERE Id=" & Request.QueryString("id")
rs.Open sqlString, Conn, 1, 1
'替换新闻正文中的特殊标记
If Not rs.EOF Then
rqtContent= rs("content")
rqtContent = replace(rqtContent,"[space]"," ")
'更新阅读数量
Conn.execute("UPDATE News SET ReadCount = ReadCount + 1 WHERE Id=" & Request("id"))
'读取新闻类别
sql = "SELECT * FROM Category WHERE CateId=" & rs("CateId")
Set rsCate

改成这样试试

<%
Dim rsCate
'定义记录集对象
Set rs = Server.CreateObject("ADODB.RecordSet")
Set rsCate = Server.CreateObject("ADODB.RecordSet")
'设置SQL语句,读取指定的新闻记录
sqlString="SELECT * FROM News WHERE Id=" & Request.QueryString("id")
rs.Open sqlString, Conn, 1, 1
'替换新闻正文中的特殊标记
If Not rs.EOF Then
rqtContent= rs("content")
rqtContent = replace(rqtContent,"[space]"," ")
'更新阅读数量
Conn.execute("UPDATE News SET ReadCount ="& rs("ReadCount") + 1&" WHERE Id=" & Request("id"))
'读取新闻类别
sql = "SELECT * FROM Category WHERE CateId=" & rs("CateId")
Set rsCate = Conn.Execute(sql)
If Not rsCate.EOF Then
stitle = rsCate("CateName")
End If
%>
<%
End If
rs.Close
Set rs = Nothing
%>

十六行