historyorder.asp

一个不错的个人商务网站的源码

<!--#include file="chk.asp" -->
<%
dim dbpath
dbpath="../"
%>
<!--#include file="../db_conn.asp"-->
<!--#include file="../comm/comm.asp"-->
<!--#include file="../comm/sub.asp"-->
<!--#include file="../comm/pages.asp"-->
<!--begin TOP-->
<%
'说明 head(a,b,c)
'a为页标题
'b为页描述
'c为页关键字

call head(r(26)&"-会员控制面板-历史订单",r(27),r(28))
%><!--end TOP-->
<div align="center">
<table border="0" width="760" class="li_table" cellspacing="0">
		<tr>
		<td class="maincolor" height="26" align=center width="758" colspan="2">会 员 控 制 面 板</td>
	</tr>
	<tr>
		<td width="127" align="right" height="175" valign="top">
		<p align="left"><!--#include file="left.asp"--></td>
		<td width="629" height="175" valign="top">
<table border="0" width="100%" id="table4" cellspacing="1" class=smallfont>
						<form action=historyorder.asp method=post>
						<tr>
							<td colspan="8">
							<p align="left">请输入订单编号：<input type=text name=keyword size=20 maxlength="50"><input type=submit value=搜索 name=B1></td>
						</tr></form>
						<tr>
							<td width="6%">ID</td>
							<td width="22%">订单编号</td>
							<td width="11%">货款(RMB)</td>
							<td width="9%">附加费用</td>
							<td width="9%">交易方式</td>
							<td width="21%">下单时间</td>
							<td width="9%">订单状态</td>
							<td width="9%">操作</td>
						</tr>
						<%
username=session("chk_name")
keyword=my_request("keyword",0)
if keyword<>"" then
sql="select id,ddbh,addtime,paymode,yqj_money,yqj_cost,zt from buyer where userid='"&username&"' and ddbh like '%"&keyword&"%'"
else
sql="select id,ddbh,addtime,paymode,yqj_money,yqj_cost,zt from buyer where userid='"&username&"'"
end if
set rs=server.CreateObject("adodb.recordset")
	rs.open sql,conn,1,1
	if (rs.eof and rs.bof) then
	response.write "<tr>"
    response.write "<td width=500 colspan=4><font color=#FF0000>没有想符合的数据</font></td>"
    response.write "</tr>"
    else
    rs.PageSize =20 '每页记录条数
			iCount=rs.RecordCount '记录总数
			iPageSize=rs.PageSize
    		maxpage=rs.PageCount 
    		page=request("page")
    
    if Not IsNumeric(page) or page="" then
        page=1
    else
        page=cint(page)
    end if
    
    if page<1 then
        page=1
    elseif  page>maxpage then
        page=maxpage
    end if
    
    rs.AbsolutePage=Page

	if page=maxpage then
		x=iCount-(maxpage-1)*iPageSize
	else
		x=iPageSize
	end if

end if
ii=1
while not rs.eof and ii<=rs.pagesize
set id=rs("id")
set ddbh=rs("ddbh")
set addtime=rs("addtime")
set paymode=rs("paymode")
set yqj_money=rs("yqj_money")
set yqj_cost=rs("yqj_cost")
set zt=rs("zt")
%>
						<tr>
							<td width="6%"><%=(page-1)*19+ii%></td>
							<td width="22%"><a href=#><%=ddbh%></a></td>
							<td width="11%"><%=yqj_money%></td>
							<td width="9%"><%=yqj_cost%></td>
							<td width="9%"><%=paymode%></td>
							<td width="21%"><%=addtime%></td>
							<td width="9%"><font color=#FF0000><%=zt%></font></td>
							<td width="9%"><a href=SaveUserInfo.asp?id=<%=id%>&nodot=<%=ddbh%>&action=delorder&page=<%=page%>>删除</a></td>
						</tr>
						<%
rs.movenext
ii=ii+1
wend%>
						<tr>
							<td colspan="8"><%call PageControl(iCount,maxpage,page,"border=0 align=left","<p align=left>")%></td>
						</tr>
					</table>
					<%
rs.close
set rs=nothing
%>
					</td>
				</tr>
				</table>
					</td>
	</tr>
</table>
</div>
<!--begin end-->
<%call boot()%><!--end end-->