求助解决“ADODB.Recordset (0x800A0CC1)”错误问题截图：
1.jpg (20.12 KB)
2008-5-25 13:34
程序：
<[email=%@LANGUAGE=]%@LANGUAGE="VBSCRIPT[/email]" CODEPAGE="65001"%>
<!--#include file="checkadmin.asp"-->
<!--#include file="public_module.asp"-->
<%
%>
<%
tpage = request.QueryString ("page")
if tpage = "" then
tpage = 0
end if
page_index = int(tpage)
if page_index <=0 then
page_index = 1
end if
set ors = GetOrders("","")
page_count = 0
if not ors.eof then
ors.PageSize = 10
page_count=ors.PageCount
if page_index > page_count then page_index = page_count
ors.AbsolutePage = page_index
end if
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "
http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="
http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" c />
<title>订单管理</title>
</head>
<body>
<p>
<%
set ors = GetOrders("","")
%>
<table width="100%" border="1" cellpadding="2" cellspacing="0" bgcolor="#FCFCFC" style="border-collapse: collapse;">
<tr>
<td width="132" colspan="5" class="HeaderColor"> </td>
</tr><form action="orderdetail.asp" method="post" name="searchform" >
<tr style="vertical-align: top">
<td colspan="5"><strong>Order NO:</strong>
<input type="text" name="orderno"/><input type="button" name="SearchOrder" value="Search" /></td>
</tr></form>
<%
lineno = 1
while not ors.eof and lineno <=ors.pagesize
%>
<form action="order_save.asp" method="post" name="save_orders">
<tr>
<td><%=ors("cn_orderno")%></td>
<td>$<%=ors("cn_gross")%></td>
<td><a href="order_admin.asp?orderno=<%=ors("cn_orderno")%>"><%=ors("cn_goods")%></a></td>
<td><%=ors("cn_payment_date")%></td>
<td><%=ors("cn_status")%></td>
</tr>
<%
lineno=lineno+1
ors.movenext
wend
%>
</form>
<form name="pageform" method="get" action="ordertracking.asp" >
<tr>
<td colspan="5" align="right">
<p><%=page_index%> Page Of <%=page_count%>Pages Total:<%=ors.recordcount%>
<%if page_index>1 then%>
<a href="?page=1" >First Page</a>
<%else%>
First Page
<%end if%>
<%if page_index>1 then%>
<a href="?page=<%=page_index-1%>" >Previous Page</a>
<%else%>
Previous Page
<%end if
if page_index<page_count then%>
<a href="?page=<%=page_index+1%>" >Next Page</a>
<%else%>
Next Page
<%end if
if page_index<page_count then%>
<a href="?page=<%=page_count%>" >Last Page</a>
<%else%>
Last Page
<%end if%>
Go
<input name="page" type="text" id="pageno" size="1">
Page
<input type="submit" name="Submit" value="go">
</p>
<p>
<label></label>
</td>
</tr>
</form>
</table>
</p>
</body>
</html>
<%
CloseConn
%>
