ASP页面怎么实现分页,以下是我的代码
<!--#include file="mdb.asp"--><%Admin="ddgl"%>
<!--#include file="check.asp"-->
<!--#include file="inc/config.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="inc/admin.css" type="text/css">
<style media=print>
.Noprint{display:none;}<!--用本样式在打印时隐藏非打印项目-->
.PageNext{page-break-after: always;}<!--控制分页-->
</style>
<title><%=webname%>—商品订单</title>
</head>
<body text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<%
'****************************************************
' LxWeb Ver10.0 Power by
' Web: http://www.
' Copyright (C) 2010 All Rights Reserved.
'****************************************************
if session("BBZPadminlogin")<>sessionvar then
Response.Write("<script language=javascript>alert('你尚未登录，或者超时了！请重新登录');this.top.location.href='admin.asp';</script>")
response.end
end if
sql="select * from shop_orders where id="&clng(request("id"))
set rs=server.createobject("ADODB.Recordset")
rs.open sql, conn, 1, 1
if rs.eof or rs.bof then
response.write"<SCRIPT language=JavaScript>alert('对不起，订单号不存在！');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
else
order_number=rs("order_number")
if rs("order_zf")=true then order_zf="checked"
if rs("order_zt")=true then order_zt="checked"
if rs("order_sk")=1 then order_sk="checked"
if rs("order_sh")=1 then order_sh="checked"
if rs("order_cw")=true then order_cw="checked"
%>
<div align="center">
<table border="0" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF" width="470" style="border-collapse: collapse; border-width: 0">
<TR>
<TD>
<div align="center">
<table border="0" cellpadding="0" bgcolor="#FFFFFF" width="100%" style="border-collapse: collapse; border-width: 0">
<tr class=Hxcmsss>
<td height="26"><%=webname%>销售单</td>
</tr>
</table>
</div>
<div align="center">
<table border="0" cellpadding="0" bgcolor="#FFFFFF" width="100%" bordercolor="#000080" style="border-collapse: collapse">
<tr class=Hxcmsds style="height:20px">
<td width="15%" align="right"><a class="Noprint">订 单 号：</td>
<td width="35%"><%=rs("order_number")%></td>
<td width="15%" align="right"><a class="Noprint">时 间：</td>
<td width="35%"><%=rs("order_time")%></td>
</tr>
<tr class=Hxcmsds style="height:20px">
<td align="right"><a class="Noprint">订 单 员：</td>
<td><%=adname%></td>
<td align="right"><a class="Noprint">收 货 人：</td>
<td><%=rs("to_name")%></td>
</tr>
<tr class=Hxcmsds style="height:20px">
<td align="right"><a class="Noprint">物流人员：</td>
<td><%=adwuliu%></td>
<td align="right"><a class="Noprint">移动电话：</td>
<td><%=rs("Mobile")%></td>
</tr>
<tr class=Hxcmsds style="height:20px">
<td align="right"><a class="Noprint">客服电话：</td>
<td><%=adtel%></td>
<td align="right"><a class="Noprint">联系电话：</td>
<td><%=rs("tel")%></td>
</tr>
<tr class=Hxcmsds style="height:20px">
<td align="right"><a class="Noprint">收货地址：</td>
<td colspan="3"><%=rs("to_adds")%></td>
</tr>
</table>
</div>
<div align="center">
<table width="100%" border="0" bgcolor="#FFFFFF" cellpadding="0" style="border-collapse: collapse">
<tr class=Hxcmsqs align="center" style="height:20px">
<td width="10%"><a class="Noprint">编号</td>
<td width="50%"><a class="Noprint">商品名称</td>
<td width="10%"><a class="Noprint">数量</td>
<td width="10%"><a class="Noprint">单价</td>
<td width="20%"><a class="Noprint">金额</td>
</tr>
<%sql="select * from shop_basket where order_number='"&order_number&"' and (scat_id="&clng(request("scat"))&" or scat_id in(select scat_id from scat where sid="&clng(request("scat"))&"))"
set rss=server.createobject("adodb.recordset")
rss.open sql, conn, 1, 1
if rss.eof and rss.bof then
Response.Write "<tr><td colspan='5' align='center'>本分类没有订购产品</td></tr>"
end if
ii=0
do while not rss.eof
dim catje
if rs("fapiao")=1 then
catje=catje+rss("price")*rss("basket_count")*1.03
else
catje=catje+rss("price")*rss("basket_count")
end if
ii=ii+1
%>
<tr class=Hxcmsds style="height:21px">
<td align="center"><a class="Noprint"><%=ii%></td>
<td align="center"><%=rss("product_name")%></td>
<td align="center"><%=rss("basket_count")&rss("s_spdw")%></td>
<td align="center"><%=formatnumber(rss("price"),2)%></td>
<td align="center"><%=formatnumber(rss("price")*rss("basket_count"),2)%></td>
</tr>
<%rss.movenext
loop
for jj=ii+1 to 22
%>
<tr class=Hxcmsds style="height:21px">
<td align="center"><a class="Noprint" ><%=jj%></a></td>
<td align="center"> </td>
<td align="center"> </td>
<td align="center"> </td>
<td align="center"> </td>
</tr>
<%
Next
rss.close
set rss=nothing%>
<tr class=Hxcmsds style="height:22px">
<td align="center" colspan="5" style="height: 60px">
<%=rs("errmsg")%></td>
</tr>
<tr class=Hxcmsds style="height:22px">
<td align="right" colspan="5"><a class="Noprint">总计费用：</a><b><font size="3"><%=catje%></font></b>
</td>
</tr>
</table>
</div>
<table border="0" cellspacing="1" cellpadding="4" bgcolor="#FFFFFF" width="100%" align="center" class="Noprint">
<tr class=Hxcmsqs align="center" class="Noprint">
<td height="30" width="100%" class="Noprint">
<OBJECT id=WebBrowser classid=CLSID:8856F961-340A-11D0-A96B-00C04FD705A2 height=0 width=0>
</OBJECT>
<input type=button class="button" onClick="javascript:print()" value=打印>
<input type=button class="button" onclick=document.all.WebBrowser.ExecWB(8,1) value=页面设置>
<input type=button class="button" onclick=document.all.WebBrowser.ExecWB(7,1) value=打印预览>
<input type=button class="button" onClick="window.close();return false;" value="关闭">
</td>
</tr>
</table>
<%end if
'****************************************************
' LxWeb Ver10.0 Power by
' Web: http://www.
' Copyright (C) 2010 All Rights Reserved.
'****************************************************
%>
</td>
</tr>
</table>
</div>
</body>
</html>
<!--#include file="mdb.asp"-->
<%Admin="ddgl"%>
<!--#include file="check.asp"-->
<!--#include file="inc/config.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="inc/admin.css" type="text/css">
<style media=print>
.Noprint{display:none;}<!--用本样式在打印时隐藏非打印项目-->
.PageNext{page-break-after: always;}<!--控制分页-->
</style>
<title><%=webname%>—商品订单</title>
</head>
<body text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<%
'****************************************************
' LxWeb Ver10.0 Power by
' Web: http://www.
' Copyright (C) 2010 All Rights Reserved.
'****************************************************
if session("BBZPadminlogin")<>sessionvar then
Response.Write("<script language=javascript>alert('你尚未登录，或者超时了！请重新登录');this.top.location.href='admin.asp';</script>")
response.end
end if
sql="select * from shop_orders where id="&clng(request("id"))
set rs=server.createobject("ADODB.Recordset")
rs.open sql, conn, 1, 1
if rs.eof or rs.bof then
response.write"<SCRIPT language=JavaScript>alert('对不起，订单号不存在！');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
else
order_number=rs("order_number")
if rs("order_zf")=true then order_zf="checked"
if rs("order_zt")=true then order_zt="checked"
if rs("order_sk")=1 then order_sk="checked"
if rs("order_sh")=1 then order_sh="checked"
if rs("order_cw")=true then order_cw="checked"
%>
<div align="center">
<table border="0" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF" width="470" style="border-collapse: collapse; border-width: 0">
<TR>
<TD>
<div align="center">
<table border="0" cellpadding="0" bgcolor="#FFFFFF" width="100%" style="border-collapse: collapse; border-width: 0">
<tr class=Hxcmsss>
<td height="26"><%=webname%>销售单</td>
</tr>
</table>
</div>
<div align="center">
<table border="0" cellpadding="0" bgcolor="#FFFFFF" width="100%" bordercolor="#000080" style="border-collapse: collapse">
<tr class=Hxcmsds style="height:20px">
<td width="15%" align="right"><a class="Noprint">订 单 号：</td>
<td width="35%"><%=rs("order_number")%></td>
<td width="15%" align="right"><a class="Noprint">时 间：</td>
<td width="35%"><%=rs("order_time")%></td>
</tr>
<tr class=Hxcmsds style="height:20px">
<td align="right"><a class="Noprint">订 单 员：</td>
<td><%=adname%></td>
<td align="right"><a class="Noprint">收 货 人：</td>
<td><%=rs("to_name")%></td>
</tr>
<tr class=Hxcmsds style="height:20px">
<td align="right"><a class="Noprint">物流人员：</td>
<td><%=adwuliu%></td>
<td align="right"><a class="Noprint">移动电话：</td>
<td><%=rs("Mobile")%></td>
</tr>
<tr class=Hxcmsds style="height:20px">
<td align="right"><a class="Noprint">客服电话：</td>
<td><%=adtel%></td>
<td align="right"><a class="Noprint">联系电话：</td>
<td><%=rs("tel")%></td>
</tr>
<tr class=Hxcmsds style="height:20px">
<td align="right"><a class="Noprint">收货地址：</td>
<td colspan="3"><%=rs("to_adds")%></td>
</tr>
</table>
</div>
<div align="center">
<table width="100%" border="0" bgcolor="#FFFFFF" cellpadding="0" style="border-collapse: collapse">
<tr class=Hxcmsqs align="center" style="height:20px">
<td width="10%"><a class="Noprint">编号</td>
<td width="50%"><a class="Noprint">商品名称</td>
<td width="10%"><a class="Noprint">数量</td>
<td width="10%"><a class="Noprint">单价</td>
<td width="20%"><a class="Noprint">金额</td>
</tr>
<%sql="select * from shop_basket where order_number='"&order_number&"' and (scat_id="&clng(request("scat"))&" or scat_id in(select scat_id from scat where sid="&clng(request("scat"))&"))"
set rss=server.createobject("adodb.recordset")
rss.open sql, conn, 1, 1
if rss.eof and rss.bof then
Response.Write "<tr><td colspan='5' align='center'>本分类没有订购产品</td></tr>"
end if
ii=0
do while not rss.eof
dim catje
if rs("fapiao")=1 then
catje=catje+rss("price")*rss("basket_count")*1.03
else
catje=catje+rss("price")*rss("basket_count")
end if
ii=ii+1
%>
<tr class=Hxcmsds style="height:21px">
<td align="center"><a class="Noprint"><%=ii%></td>
<td align="center"><%=rss("product_name")%></td>
<td align="center"><%=rss("basket_count")&rss("s_spdw")%></td>
<td align="center"><%=formatnumber(rss("price"),2)%></td>
<td align="center"><%=formatnumber(rss("price")*rss("basket_count"),2)%></td>
</tr>
<%rss.movenext
loop
for jj=ii+1 to 22
%>
<tr class=Hxcmsds style="height:21px">
<td align="center"><a class="Noprint" ><%=jj%></a></td>
<td align="center"> </td>
<td align="center"> </td>
<td align="center"> </td>
<td align="center"> </td>
</tr>
<%
Next
rss.close
set rss=nothing%>
<tr class=Hxcmsds style="height:22px">
<td align="center" colspan="5" style="height: 60px">
<%=rs("errmsg")%></td>
</tr>
<tr class=Hxcmsds style="height:22px">
<td align="right" colspan="5"><a class="Noprint">总计费用：</a><b><font size="3"><%=catje%></font></b>
</td>
</tr>
</table>
</div>
<table border="0" cellspacing="1" cellpadding="4" bgcolor="#FFFFFF" width="100%" align="center" class="Noprint">
<tr class=Hxcmsqs align="center" class="Noprint">
<td height="30" width="100%" class="Noprint">
<OBJECT id=WebBrowser classid=CLSID:8856F961-340A-11D0-A96B-00C04FD705A2 height=0 width=0>
</OBJECT>
<input type=button class="button" onClick="javascript:print()" value=打印>
<input type=button class="button" onclick=document.all.WebBrowser.ExecWB(8,1) value=页面设置>
<input type=button class="button" onclick=document.all.WebBrowser.ExecWB(7,1) value=打印预览>
<input type=button class="button" onClick="window.close();return false;" value="关闭">
</td>
</tr>
</table>
<%end if
'****************************************************
' LxWeb Ver10.0 Power by
' Web: http://www.
' Copyright (C) 2010 All Rights Reserved.
'****************************************************
%>
</td>
</tr>
</table>
</div>
</body>
</html>
<!--#include file="mdb.asp"-->
<%Admin="ddgl"%>
<!--#include file="check.asp"-->
<!--#include file="inc/config.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="inc/admin.css" type="text/css">
<style media=print>
.Noprint{display:none;}<!--用本样式在打印时隐藏非打印项目-->
.PageNext{page-break-after: always;}<!--控制分页-->
</style>
<title><%=webname%>—商品订单</title>
</head>
<body text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<%
'****************************************************
' LxWeb Ver10.0 Power by
' Web: http://www.
' Copyright (C) 2010 All Rights Reserved.
'****************************************************
if session("BBZPadminlogin")<>sessionvar then
Response.Write("<script language=javascript>alert('你尚未登录，或者超时了！请重新登录');this.top.location.href='admin.asp';</script>")
response.end
end if
sql="select * from shop_orders where id="&clng(request("id"))
set rs=server.createobject("ADODB.Recordset")
rs.open sql, conn, 1, 1
if rs.eof or rs.bof then
response.write"<SCRIPT language=JavaScript>alert('对不起，订单号不存在！');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
else
order_number=rs("order_number")
if rs("order_zf")=true then order_zf="checked"
if rs("order_zt")=true then order_zt="checked"
if rs("order_sk")=1 then order_sk="checked"
if rs("order_sh")=1 then order_sh="checked"
if rs("order_cw")=true then order_cw="checked"
%>
<div align="center">
<table border="0" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF" width="470" style="border-collapse: collapse; border-width: 0">
<TR>
<TD>
<div align="center">
<table border="0" cellpadding="0" bgcolor="#FFFFFF" width="100%" style="border-collapse: collapse; border-width: 0">
<tr class=Hxcmsss>
<td height="26"><%=webname%>销售单</td>
</tr>
</table>
</div>
<div align="center">
<table border="0" cellpadding="0" bgcolor="#FFFFFF" width="100%" bordercolor="#000080" style="border-collapse: collapse">
<tr class=Hxcmsds style="height:20px">
<td width="15%" align="right"><a class="Noprint">订 单 号：</td>
<td width="35%"><%=rs("order_number")%></td>
<td width="15%" align="right"><a class="Noprint">时 间：</td>
<td width="35%"><%=rs("order_time")%></td>
</tr>
<tr class=Hxcmsds style="height:20px">
<td align="right"><a class="Noprint">订 单 员：</td>
<td><%=adname%></td>
<td align="right"><a class="Noprint">收 货 人：</td>
<td><%=rs("to_name")%></td>
</tr>
<tr class=Hxcmsds style="height:20px">
<td align="right"><a class="Noprint">物流人员：</td>
<td><%=adwuliu%></td>
<td align="right"><a class="Noprint">移动电话：</td>
<td><%=rs("Mobile")%></td>
</tr>
<tr class=Hxcmsds style="height:20px">
<td align="right"><a class="Noprint">客服电话：</td>
<td><%=adtel%></td>
<td align="right"><a class="Noprint">联系电话：</td>
<td><%=rs("tel")%></td>
</tr>
<tr class=Hxcmsds style="height:20px">
<td align="right"><a class="Noprint">收货地址：</td>
<td colspan="3"><%=rs("to_adds")%></td>
</tr>
</table>
</div>
<div align="center">
<table width="100%" border="0" bgcolor="#FFFFFF" cellpadding="0" style="border-collapse: collapse">
<tr class=Hxcmsqs align="center" style="height:20px">
<td width="10%"><a class="Noprint">编号</td>
<td width="50%"><a class="Noprint">商品名称</td>
<td width="10%"><a class="Noprint">数量</td>
<td width="10%"><a class="Noprint">单价</td>
<td width="20%"><a class="Noprint">金额</td>
</tr>
<%sql="select * from shop_basket where order_number='"&order_number&"' and (scat_id="&clng(request("scat"))&" or scat_id in(select scat_id from scat where sid="&clng(request("scat"))&"))"
set rss=server.createobject("adodb.recordset")
rss.open sql, conn, 1, 1
if rss.eof and rss.bof then
Response.Write "<tr><td colspan='5' align='center'>本分类没有订购产品</td></tr>"
end if
ii=0
do while not rss.eof
dim catje
if rs("fapiao")=1 then
catje=catje+rss("price")*rss("basket_count")*1.03
else
catje=catje+rss("price")*rss("basket_count")
end if
ii=ii+1
%>
<tr class=Hxcmsds style="height:21px">
<td align="center"><a class="Noprint"><%=ii%></td>
<td align="center"><%=rss("product_name")%></td>
<td align="center"><%=rss("basket_count")&rss("s_spdw")%></td>
<td align="center"><%=formatnumber(rss("price"),2)%></td>
<td align="center"><%=formatnumber(rss("price")*rss("basket_count"),2)%></td>
</tr>
<%rss.movenext
loop
for jj=ii+1 to 22
%>
<tr class=Hxcmsds style="height:21px">
<td align="center"><a class="Noprint" ><%=jj%></a></td>
<td align="center"> </td>
<td align="center"> </td>
<td align="center"> </td>
<td align="center"> </td>
</tr>
<%
Next
rss.close
set rss=nothing%>
<tr class=Hxcmsds style="height:22px">
<td align="center" colspan="5" style="height: 60px">
<%=rs("errmsg")%></td>
</tr>
<tr class=Hxcmsds style="height:22px">
<td align="right" colspan="5"><a class="Noprint">总计费用：</a><b><font size="3"><%=catje%></font></b>
</td>
</tr>
</table>
</div>
<table border="0" cellspacing="1" cellpadding="4" bgcolor="#FFFFFF" width="100%" align="center" class="Noprint">
<tr class=Hxcmsqs align="center" class="Noprint">
<td height="30" width="100%" class="Noprint">
<OBJECT id=WebBrowser classid=CLSID:8856F961-340A-11D0-A96B-00C04FD705A2 height=0 width=0>
</OBJECT>
<input type=button class="button" onClick="javascript:print()" value=打印>
<input type=button class="button" onclick=document.all.WebBrowser.ExecWB(8,1) value=页面设置>
<input type=button class="button" onclick=document.all.WebBrowser.ExecWB(7,1) value=打印预览>
<input type=button class="button" onClick="window.close();return false;" value="关闭">
</td>
</tr>
</table>
<%end if
'****************************************************
' LxWeb Ver10.0 Power by
' Web: http://www.
' Copyright (C) 2010 All Rights Reserved.
'****************************************************
%>
</td>
</tr>
</table>
</div>
</body>
</html>
<!--#include file="mdb.asp"-->
<%Admin="ddgl"%>
<!--#include file="check.asp"-->
<!--#include file="inc/config.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="inc/admin.css" type="text/css">
<style media=print>
.Noprint{display:none;}<!--用本样式在打印时隐藏非打印项目-->
.PageNext{page-break-after: always;}<!--控制分页-->
</style>
<title><%=webname%>—商品订单</title>
</head>
<body text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<%
'****************************************************
' LxWeb Ver10.0 Power by
' Web: http://www.
' Copyright (C) 2010 All Rights Reserved.
'****************************************************
if session("BBZPadminlogin")<>sessionvar then
Response.Write("<script language=javascript>alert('你尚未登录，或者超时了！请重新登录');this.top.location.href='admin.asp';</script>")
response.end
end if
sql="select * from shop_orders where id="&clng(request("id"))
set rs=server.createobject("ADODB.Recordset")
rs.open sql, conn, 1, 1
if rs.eof or rs.bof then
response.write"<SCRIPT language=JavaScript>alert('对不起，订单号不存在！');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
else
order_number=rs("order_number")
if rs("order_zf")=true then order_zf="checked"
if rs("order_zt")=true then order_zt="checked"
if rs("order_sk")=1 then order_sk="checked"
if rs("order_sh")=1 then order_sh="checked"
if rs("order_cw")=true then order_cw="checked"
%>
<div align="center">
<table border="0" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF" width="470" style="border-collapse: collapse; border-width: 0">
<TR>
<TD>
<div align="center">
<table border="0" cellpadding="0" bgcolor="#FFFFFF" width="100%" style="border-collapse: collapse; border-width: 0">
<tr class=Hxcmsss>
<td height="26"><%=webname%>销售单</td>
</tr>
</table>
</div>
<div align="center">
<table border="0" cellpadding="0" bgcolor="#FFFFFF" width="100%" bordercolor="#000080" style="border-collapse: collapse">
<tr class=Hxcmsds style="height:20px">
<td width="15%" align="right"><a class="Noprint">订 单 号：</td>
<td width="35%"><%=rs("order_number")%></td>
<td width="15%" align="right"><a class="Noprint">时 间：</td>
<td width="35%"><%=rs("order_time")%></td>
</tr>
<tr class=Hxcmsds style="height:20px">
<td align="right"><a class="Noprint">订 单 员：</td>
<td><%=adname%></td>
<td align="right"><a class="Noprint">收 货 人：</td>
<td><%=rs("to_name")%></td>
</tr>
<tr class=Hxcmsds style="height:20px">
<td align="right"><a class="Noprint">物流人员：</td>
<td><%=adwuliu%></td>
<td align="right"><a class="Noprint">移动电话：</td>
<td><%=rs("Mobile")%></td>
</tr>
<tr class=Hxcmsds style="height:20px">
<td align="right"><a class="Noprint">客服电话：</td>
<td><%=adtel%></td>
<td align="right"><a class="Noprint">联系电话：</td>
<td><%=rs("tel")%></td>
</tr>
<tr class=Hxcmsds style="height:20px">
<td align="right"><a class="Noprint">收货地址：</td>
<td colspan="3"><%=rs("to_adds")%></td>
</tr>
</table>
</div>
<div align="center">
<table width="100%" border="0" bgcolor="#FFFFFF" cellpadding="0" style="border-collapse: collapse">
<tr class=Hxcmsqs align="center" style="height:20px">
<td width="10%"><a class="Noprint">编号</td>
<td width="50%"><a class="Noprint">商品名称</td>
<td width="10%"><a class="Noprint">数量</td>
<td width="10%"><a class="Noprint">单价</td>
<td width="20%"><a class="Noprint">金额</td>
</tr>
<%sql="select * from shop_basket where order_number='"&order_number&"' and (scat_id="&clng(request("scat"))&" or scat_id in(select scat_id from scat where sid="&clng(request("scat"))&"))"
set rss=server.createobject("adodb.recordset")
rss.open sql, conn, 1, 1
if rss.eof and rss.bof then
Response.Write "<tr><td colspan='5' align='center'>本分类没有订购产品</td></tr>"
end if
ii=0
do while not rss.eof
dim catje
if rs("fapiao")=1 then
catje=catje+rss("price")*rss("basket_count")*1.03
else
catje=catje+rss("price")*rss("basket_count")
end if
ii=ii+1
%>
<tr class=Hxcmsds style="height:21px">
<td align="center"><a class="Noprint"><%=ii%></td>
<td align="center"><%=rss("product_name")%></td>
<td align="center"><%=rss("basket_count")&rss("s_spdw")%></td>
<td align="center"><%=formatnumber(rss("price"),2)%></td>
<td align="center"><%=formatnumber(rss("price")*rss("basket_count"),2)%></td>
</tr>
<%rss.movenext
loop
for jj=ii+1 to 22
%>
<tr class=Hxcmsds style="height:21px">
<td align="center"><a class="Noprint" ><%=jj%></a></td>
<td align="center"> </td>
<td align="center"> </td>
<td align="center"> </td>
<td align="center"> </td>
</tr>
<%
Next
rss.close
set rss=nothing%>
<tr class=Hxcmsds style="height:22px">
<td align="center" colspan="5" style="height: 60px">
<%=rs("errmsg")%></td>
</tr>
<tr class=Hxcmsds style="height:22px">
<td align="right" colspan="5"><a class="Noprint">总计费用：</a><b><font size="3"><%=catje%></font></b>
</td>
</tr>
</table>
</div>
<table border="0" cellspacing="1" cellpadding="4" bgcolor="#FFFFFF" width="100%" align="center" class="Noprint">
<tr class=Hxcmsqs align="center" class="Noprint">
<td height="30" width="100%" class="Noprint">
<OBJECT id=WebBrowser classid=CLSID:8856F961-340A-11D0-A96B-00C04FD705A2 height=0 width=0>
</OBJECT>
<input type=button class="button" onClick="javascript:print()" value=打印>
<input type=button class="button" onclick=document.all.WebBrowser.ExecWB(8,1) value=页面设置>
<input type=button class="button" onclick=document.all.WebBrowser.ExecWB(7,1) value=打印预览>
<input type=button class="button" onClick="window.close();return false;" value="关闭">
</td>
</tr>
</table>
<%end if
'****************************************************
' LxWeb Ver10.0 Power by
' Web: http://www.
' Copyright (C) 2010 All Rights Reserved.
'****************************************************
%>
</td>
</tr>
</table>
</div>
</body>
</html>
