清风
职务：普通成员
等级：1
金币：1.0
发贴：197
注册：2003/2/28 0:26:50
|
#12003/7/3 10:00:14
sort.asp原码
|
<%
sort_id=trim(request("sort_id"))
if sort_id=empty then
response.redirect "index.asp"
end if
page=request.querystring("page")
if page="" then page=1
if not(isnumeric(page)) then page=1
if page<1 then page=1
page=int(page)
sql="select * from hw where sort_id='"&sort_id&"' order by hw_id DESC"
rs.open sql,conn,3,3
if rs.eof then
response.write "你所选的类别没有商品"
response.end
else
rs.pagesize=3
totalrec=rs.recordcount
totalpage=rs.pagecount
if page>totalpage then page=totalpage
rs.absolutepage=page
rs.cachesize=rs.pagesize
i=0
dim hw_id(),hw_name(),hw_cash(),hw_views(),hw_buys(),hw_content(),hw_pic(),hw_date(),hw_oldcash()
do while not rs.eof and (i i=i+1
redim preserve
hw_id(i),hw_name(i),hw_cash(i),hw_views(i),hw_buys(i),hw_content(i),hw_pic(i),hw_date(i),hw_oldcash(i)
hw_id(i)=rs("hw_id")
hw_name(i)=rs("hw_name")
hw_cash(i)=rs("hw_cash")
hw_views(i)=rs("hw_views")
hw_buys(i)=rs("hw_buys")
hw_oldcash(i)=rs("hw_oldcash")
hw_content(i)=rs("hw_content")
hw_pic(i)=rs("hw_pic")
hw_date(i)=rs("hw_date")
rs.movenext
loop
end if
rs.close
%>
<%
for i=1 to ubound(hw_id)
%>
<%next%>
|
|
这是一段ASP文件中的原码，我在我的ACCESS空间中调试，总报错，是不是我的空间不支持SQL的缘故呢！或是其他原因！请教！！！
ADODB.Recordset 错误 '800a0cc1'
项目在所需的名称或序数中未被发现。
/y/sort.asp，行59
是一个电子商务的程序，在ACCESS的数据库中添加完商品后，查询该类就会报错，或者，用管理程序添加商品时就报错，也是ADODB.Recordset 错误，不知什么问题。
给大家一点线索，就是没有商品的项，选择以后不会有错误提示，会说“你所选的类别没有商品”。
|
