orderlist.asp
来自「1. 硬件环境：MS WINDOWS NT PACK 4 OR LATER /W」· ASP 代码 · 共 584 行 · 第 1/2 页
ASP
584 行
<input type="checkbox" name="C2" value="ON">保存为草稿</td>
</tr>
</table>
</form>
<%
Userinfo
htmlend
Case "List" '---------------------------------定单列表--
Call top
Call table()%>
<style>
<!--
TABLE{BORDER-TOP:0px;BORDER-LEFT:0px;BORDER-BOTTOM:1px}TD{BORDER-RIGHT:0px;BORDER-TOP:0px}
-->
</style>
<script>
function CheckAll(form){
for (var i=0;i<form.elements.length;i++){
var e = form.elements[i];
if (e.name != 'chkall'){
e.checked = form.chkall.checked;
}
}
}
function Openwindow(form){
for (var i=0;i<form.elements.length;i++){
if (form.elements[i].name == 'DelID' && form.elements[i].checked == true){
window.open('?Menu=ShowList&ID='+form.elements[i].value)
}
}
}
</script>
<br>
<table borderColor="#a4b6d7" cellSpacing="0" cellPadding="0" width="100%" border="1" style="border-left: 0px none; border-top: 0px none; border-bottom: 1px none; border-collapse:collapse">
<tr>
<td height="25" background=images/title_sub.gif style="border-right: 0px none; border-top: 0px none">
<b>■ </b><%=Community%>个人定单管理区。</td>
</tr>
</table>
<TABLE borderColor=#a4b6d7 cellSpacing=0 cellPadding=3 width=100% border=1 style="border-collapse: collapse">
<TR>
<TD height=25 width="75%" > <img src="images/2.gif" width="60" height="9">操作提示：我们将在确定了汇款金额以后第一时间为您发货。(以下是您的所有定单)</TD>
</TR>
</TABLE>
<TABLE borderColor=a4b6d7 cellSpacing=0 cellPadding=0 width="100%" border=1 style="border-collapse: collapse" height="24" bgColor="#ecf5ff">
<form method="POST" name="form1">
<TR height=25>
<TD align=middle width=7%>
<input type=checkbox name=chkall value=on onclick=CheckAll(this.form)></TD>
<TD width=10%>
<p align="center">订单号</TD>
<TD align=left width="20%">
<p align="center">订单状态</TD>
<TD align=middle width=20%>产品总金额</TD>
<TD align=middle width=20%>汇款单</TD>
<TD align=left width=23%>
<p align="center">定购时间</TD></TR>
</TABLE>
<%
page=Request.QueryString("page")
Set rs = Server.CreateObject("ADODB.Recordset")
sql="Select Ordersingle,OrderAppearance,OrderTime,OrderRemittance,OrderAllMoney From OrderList where OrderUserID="&Request.Cookies("User")&" and DelThis=false order by OrderTime desc"
Rs.Open sql,Conn,1
rs.pagesize=20
if page = "" Then page = 1
page = cint(page)
if page< 1 then page=1
if page > rs.pagecount then page=rs.pagecount
num=rs.recordcount
maxpage=rs.pagecount
if not rs.eof and not rs.BOF then showonepage rs,page
rs.close
Set Rs = Nothing
%>
<table borderColor="#a4b6d7" cellSpacing="0" cellPadding="6" width="100%" border="1" style="border-collapse: collapse" height="7">
<tr height="25">
<td height="1" width="473">
<p align="left">
<input type="Button" value="查 看" name="B1" OnClick=Openwindow(this.form)>
<input type="submit" value="删 除" name="B1">
<input type="submit" value="修 改" name="B1" title=此选项将把定单中的产品还原至购物袋中>
</td>
<td height="1" width="472"><p align="right">
<%
if page <> 1 then
response.write "<a href=?menu=List&page=1>第一页</a> "&_
"<a href=?menu=List&page="&(page-1)&">上一页</a> "
end if
if page<>maxpage then
response.write "<a href=?menu=List&page="&(page+1)&">下一页</a> "&_
"<a href=?menu=List&page="&maxpage&">最后一页</a>"
end if
%>
</td>
</tr></form>
</table><br>
<%
Userinfo
htmlend
'---------------------------------汇款单上传--
Case "UpScan"%>
<title><%=Community%></title>
<link href=css.css rel=stylesheet>
<body topmargin=0 leftmargin=0 bgcolor=#EFF7FF>
<center><br>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="80%">
<form method="post" enctype="multipart/form-data">
<tr>
<td width="100%">
<p align="center">---- 汇款单上传 ----</td>
</tr>
<tr>
<td width="100%"><hr color="#000000" size="1" width="40%"></td></tr>
<tr>
<td width="100%"><input name="Ordersingle" type="hidden" value="<%=Request("OrderListID")%>">
<p align="center"><input type="file" name="UpScan" class="12pxf" size="20"><br>
<input type="submit" value="上 传" name="B1">
</td>
</tr>
</form>
</table>
<%htmlend
'---------------------------------用户定单列表--
Case "ShowList"
Call Top
Call table()
ID=Request.QueryString("ID")
if IsNumEric(ID)=false then Error 1,"参数非法传递!",""
Sql="Select OrderProductNum,OrderProductMoney,OrderProduct,OrderProductQuantity,OrderUserID,OrderAllMoney,OrderAppearance,OrderRemittance,OrderTime From OrderList where Ordersingle="&ID
Set Rs = Conn.Execute(Sql)
if rs.eof or rs.bof then Error 1,"参数非法传递!",""
OrderProductNum=Split(rs("OrderProductNum"),",")
OrderProduct=Split(rs("OrderProduct"),",")
OrderProductQuantity=Split(rs("OrderProductQuantity"),",")
OrderProductMoney=Split(rs("OrderProductMoney"),",")
OrderUserID=rs("OrderUserID")
OrderAllMoney=rs("OrderAllMoney")
OrderAppearance=rs("OrderAppearance")
OrderRemittance=rs("OrderRemittance")
OrderTime=rs("OrderTime")
Rs.Close
Set Rs = Nothing
Select Case OrderAppearance
Case 0
Appearance="订单待审"
Case 1
Appearance="草稿"
Case 2
Appearance="处理中"
Case 3
Appearance="已完成"
End Select
if OrderRemittance<>"" Then
Remittance="<a target=_blank href=UpProductimg/Scan/"&OrderRemittance&">查看汇款单</a> 定单人[<a href=ShowUserInfo.asp?UsId="&OrderUserID&">"&conn.execute("Select UserName_1 from UserInfo where UserID="&OrderUserID)(0)&"</a>]"
else
Remittance="汇款单未上传 定单人["&conn.execute("Select UserName_1 from UserInfo where UserID="&OrderUserID)(0)&"]"
end if
YFK=conn.execute("Select UserMoney from UserInfo where UserID="&OrderUserID)(0)
if OrderAppearance < 2 Then
if YFK > OrderAllMoney Then
SJ="预付款足够,不必再汇款。我们将尽快给您发货！"
Else
SJ="预付款余额不足，还差"&FormatCurrency(OrderAllMoney-YFK)&"元"
End if
End if
%>
<style>
<!--
TABLE{BORDER-TOP:0px;BORDER-LEFT:0px;BORDER-BOTTOM:1px}TD{BORDER-RIGHT:0px;BORDER-TOP:0px}
-->
</style>
<title><%=Community&ID%>号定单</title>
<br>
<table borderColor="#a4b6d7" cellSpacing="0" cellPadding="0" width="100%" border="1" style="border-left: 0px none; border-top: 0px none; border-bottom: 1px none; border-collapse:collapse">
<tr>
<td height="25" background=images/title_sub.gif style="border-right: 0px none; border-top: 0px none"><b>■
</b><%=Community%>定单列表。订单号:<font color=red><%=ID%> </font> <%=Remittance%></td>
<td background=images/title_sub.gif style="border-right: 0px none; border-top: 0px none"><div align="right"><a href=javascript:window.print()>[打印]</a>
<A href=javascript:window.external.AddFavorite(location.href,document.title)>[收藏]</a></div></td>
</tr>
</table>
<TABLE borderColor=#a4b6d7 cellSpacing=0 cellPadding=3 width=100% border=1 style="border-collapse: collapse">
<TR>
<TD height=25 width="75%" > <img src="images/2.gif" width="60" height="9">定购产品清单!
产品总金额:<%=FormatCurrency(OrderAllMoney)%> <%= SJ %> 状态:<%=Appearance%>
</TR>
</TABLE>
<TABLE borderColor=a4b6d7 cellSpacing=0 cellPadding=0 width="100%" border=1 style="border-collapse: collapse" height="24" bgColor="#ecf5ff">
<TR height=25>
<TD width="7%" ></TD>
<TD align="center" width="19%"> 品名</TD>
<TD align=center width="19%" >
<p align="center">货号</TD>
<TD align=middle width="18%" >单价</TD>
<TD align=middle width="18%" >数量</TD>
<TD align=center width="19%" > 累计金额</TD>
</TR>
</TABLE>
<%For i=0 to Ubound(OrderProductNum)%>
<TABLE borderColor=a4b6d7 cellSpacing=0 cellPadding=0 width="100%" border=1 style="border-collapse: collapse" height="24">
<TR height=25>
<TD width="7%" align="center"><%=i+1%></TD>
<TD align="center" width="19%"> <%=OrderProduct(i)%></TD>
<TD align=center width="19%" >
<p align="center"><%=OrderProductNum(i)%></TD>
<TD align=middle width="18%" ><%=FormatCurrency(OrderProductMoney(i))%></TD>
<TD align=middle width="18%" ><%=OrderProductQuantity(i)%></TD>
<TD align=center width="19%" ><%=FormatCurrency(OrderProductMoney(i)*OrderProductQuantity(i))%></TD>
</TR>
</TABLE>
<%next%>
<table borderColor="#a4b6d7" cellSpacing="0" cellPadding="6" width="100%" border="1" style="border-collapse: collapse" height="7">
<tr height="25">
<td height="1" width="473">
<p align="left">
<input type="Button" value="打印订单" name="B1" OnClick=javascript:window.print()>
<input type="Button" value="加入收藏" name="B1" OnClick=javascript:window.external.AddFavorite(location.href,document.title)>
</td>
<td height="1" width="472"><p align="right">定购时间:<%=OrderTime%>
</td>
</tr>
</table>
<br>
<%
if trim(Request.Cookies("User"))=trim(OrderUserID) Then Userinfo
htmlend
Case Else
Error 2,"参数非法传递！",""
End Select
'---------------------------------分页--
sub showonepage(rs,page)
rs.absolutepage=page
For ipage=1 to rs.pagesize
RsTo rs,ipage
rs.MoveNext
if rs.EOF Then Exit For
Next
end sub
'---------------------------------分页内容--
sub RsTo(rs,ipage)
if Trim(rs("OrderRemittance"))<>"" then
Remittance="<a target=_blank href=UpProductimg/Scan/"&rs("OrderRemittance")&">点击查看</a> / <a href=# onclick=javascript:open('?menu=UpScan&OrderListID="&rs("Ordersingle")&"','','width=400,height=150') title=如果您发现上传错误，请重新上传您的汇款单图片>重新上传</a>"
else
Remittance="未上传 / <a href=# onclick=javascript:open('?menu=UpScan&OrderListID="&rs("Ordersingle")&"','','width=400,height=150')>点击上传</a>"
end if
Select Case Rs("OrderAppearance")
Case 0
Appearance="订单待审"
Case 1
Appearance="草稿"
Case 2
Appearance="处理中"
Case 3
Appearance="已完成"
End Select
%>
<TABLE borderColor=a4b6d7 cellSpacing=0 cellPadding=0 width="100%" border=1 style="border-collapse: collapse" height="24">
<TR height=25>
<TD align=middle width=7%>
<input type="checkbox" name="DelID" value="<%=rs("Ordersingle")%>"></TD>
<TD width=10%>
<p align="center"><a target=_blank href=?Menu=ShowList&ID=<%=rs("Ordersingle")%>><%=rs("Ordersingle")%></a></TD>
<TD align=left width="20%">
<p align="center"><%=Appearance%></TD>
<TD align=middle width=20%><%=FormatCurrency(Rs("OrderAllMoney"))%></TD>
<TD align=middle width=20%><%=Remittance%></TD>
<TD align=left width=23%>
<p align="center"><%=rs("OrderTime")%></TD></TR>
</TABLE>
<%end sub%>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?