ordermng.asp

诚信商店系统源代码

<%@LANGUAGE="VBScript"%>
<!--#include file="../public/wxl_conn.asp"-->
<!--#include file="../public/PublicFunction.asp"-->
<%
response.expires = 0
Const PageSize=18
Page=CInt(request("Page"))
if Page<=0 then Page=1
wxl=request("wxl")
OrderID=request("OrderID")
state=request("state")
if state="" then state=0

dim tmpTitle(2)
tmpTitle(0)="订单维护"
tmpTitle(1)="发货记录"

%>
<script language="javascript">
function confirmDel(id){
if ( confirm("你确定要删除吗？")) {
  window.location.href = "<%=UrlFile%>?wxl=del&OrderID=" + id
  }
}
</script>
<%

'显示已有订单列表
if wxl="" then
  ShowLookHtml

'显示增加订单的网页
elseif wxl="ShowHtml" then
  dim sql11(40)
  ShowData sql11

'增加订单
elseif wxl="Add" then
  treatedRemark=trim(request("treatedRemark"))
  set sql=Server.Createobject("ADODB.Recordset")
  sql.open "select * from web_Order where OrderID='"&OrderID&"'",conn,3,2
  ToMen=sql("memberID")
  sql("state")=1
  sql("treatedDate")=now
  sql("treatedRemark")=treatedRemark
  sql.update
  sql.close
  CallID=GetID("select Max(CallID)+1 from web_MemerCallMesg")
  Query="insert into web_MemerCallMesg (CallID,FromMem,ToMen,Mesg,CallTime,CallIp,CallMark,CallType) values("&CallID&",'"
  Query=Query&UserInfo("int_sOleUserID")&"','"&ToMen&"','您编号为"&OrderID&"的订单已经处理成功!',#"&Now&"#,'"&AddIp&"','0',2)"
  conn.Execute(Query)
%>
<script language='javascript'>
  alert('订单处理成功!');
  window.location.href = "<%=UrlFile&"?MenuId="&MenuId%>";
</script>
<%

'查看订单
elseif wxl="Look" then
	ShowContent()

'修改订单
elseif wxl="Modi" then
  Query="select * from web_Order where OrderID='"&OrderID&"'"
  set sql=conn.Execute(Query)
  ShowData sql

'删除订单
elseif wxl="del" then
  Query="delete from  web_Order where OrderID='"&OrderID&"'"
  conn.Execute(Query)
  conn.Execute("delete from web_OrderDetail where orderID='"&orderID&"'")
%>
<script language='javascript'>
  alert('指定订单成功删除');
  window.location.href = "<%=UrlFile&"?MenuId="&MenuId%>";
</script>
<%
end if



'显示订单列表
sub ShowLookHtml()
  set sql2=server.createobject("ADODB.recordset")
  Query="select * from web_Order where state="&state&" order by createDate desc"
  sql2.open Query,conn,1,1
  sql2.PageSize=CLng(PageSize)
  if Page>sql2.PageCount then Page=sql2.PageCount
  if not(sql2.eof) then
    sql2.absolutepage=CLng(Page)
  end if
  PageNum=sql2.PageCount
  Rows=sql2.RecordCount

  call HtmlListHead("["&tmpTitle(state)&"]",sql2.RecordCount,sql2.PageCount,Page,"",UrlFile&"?state="&state)
%>
<TABLE class=coolTable cellSpacing=0 cellPadding=2 altRowColor="oldlace" borderStyle="2" align="center">

  <THEAD>
  <TR align=middle>
    <TD align="center">编号</TD>
	<TD align="center">客户帐号</TD>
	<TD align="center">客户姓名</TD>
	<TD align="center">收货地址</TD>
	<TD align="center">Email</TD>
	<TD align="center">订货日期</TD>
	<TD width=80 align="center">详细</TD>
  </TR>
  </THEAD>
  <TBODY>
<%for i=1 to Pagesize
   if sql2.eof then exit for
   %>
  <TR>
	<td ><%=sql2("OrderID")%></td>
	<td ><%=GetName("select str_mbrName from web_Member where int_mbrID="&sql2("memberID"))%></td>
	<td ><%=sql2("customerName")%></a></td>
	<td ><%=sql2("address")%></td>
	<td ><%=sql2("email")%></td>
	<td ><%=sql2("createDate")%></td>
    <TD>
<%if sql2("state")=0 then%>
	 <a href=<%response.write(UrlFile&"?wxl=Look&OrderID="&sql2("OrderID")&"&MenuId="&MenuId)%>>处理</a>&nbsp;
<%else%>
	 <a href=<%response.write(UrlFile&"?wxl=Look&OrderID="&sql2("OrderID")&"&MenuId="&MenuId)%>>查看</a>&nbsp;
<%end if%>
    </TD>
  </TR>
<%
  sql2.movenext
  next
  if i<>18 then
  for i=i to 18
%>
   <TR>
    <td>&nbsp;</td>
    <td></td>
	<td></td>
	<td></td>
	<td></td>
	<td></td>
	<td></td>

  </TR>
<%
  next
  end if
%>    
</TBODY></TABLE>
<%
 HtmlListEnd sql2.RecordCount,sql2.PageCount,Page,"",UrlFile&"?state="&state
 end sub


sub ShowContent()
 Query="select * from web_Order where OrderID='"&OrderID&"'"
 set sql=conn.Execute(Query)
 if sql.eof then Back("订单参数错误！")
 HtmlHead("查看订单资料")
%>
<script language=Javascript>
<!--
function deleteMe(){
	if (confirm("确定删除？可是恢复不了的啊。")==1){
		window.location="<%=UrlFile&"?wxl=del&OrderID="&OrderID%>";
	}
}

function submitMe(){
	if (confirm("收到货款，并已发货？")==1){
		form1.submit();
	}
}
//-->
</script>
<table border="1" width="650" cellpadding="3" cellspacing="0" bgcolor="#D6D3CE" bordercolordark="#FFFFFF" bordercolorlight="#808080" align="center" >
  <tr > 
    <td colspan="2" nowrap><font face="Wingdings 3"><b>a</b></font> 
      <font color="#660033"> 订单详细资料……</font></td>
  </tr>
  <tr> 
    <td width="12%" nowrap> 
      <div align="right">订单号</div>
    </td>
    <td width="88%"><%=sql("OrderID")%></td>
  </tr>
  <tr> 
    <td width="12%" nowrap> 
      <div align="right">客户帐号</div>
    </td>
    <td width="88%"><%=sql("memberID")%>&nbsp;</td>
  </tr>
  <tr> 
    <td width="12%" nowrap> 
      <div align="right">收货人姓名</div>
    </td>
    <td width="88%"><%=sql("customerName")%> &nbsp;</td>
  </tr>
  <tr> 
    <td width="12%" nowrap> 
      <div align="right">收货人地址</div>
    </td>
    <td width="88%"><%=sql("address")%>&nbsp;</td>
  </tr>
  <tr> 
    <td width="12%" nowrap> 
      <div align="right">邮政编码</div>
    </td>
    <td width="88%"><%=sql("code")%>&nbsp;</td>
  </tr>
  <tr> 
    <td width="12%" nowrap> 
      <div align="right">联系电话</div>
    </td>
    <td width="88%"><%=sql("phone")%>&nbsp;</td>
  </tr>
  <tr> 
    <td width="12%" nowrap> 
      <div align="right">电子邮件</div>
    </td>
    <td width="88%"><%=sql("email")%>&nbsp;</td>
  </tr>
  <tr> 
    <td width="12%" nowrap> 
      <div align="right">付款方式</div>
    </td>
    <td width="88%"><%=sql("payment")%>&nbsp;</td>
  </tr>
  <tr> 
    <td width="12%" nowrap> 
      <div align="right">备注</div>
    </td>
    <td width="88%"><%=sql("remark")%>&nbsp;</td>
  </tr>
  <tr> 
    <td width="12%" nowrap> 
      <div align="right">订货日期</div>
    </td>
    <td width="88%"><%=sql("createDate")%>&nbsp;</td>
  </tr>
  <tr > 
    <td colspan="2" nowrap><font face="Wingdings 3"><b><font color="#FFFFFF">a</font></b></font> 
      <font color="#660033">订货商品明细……</font></td>
  </tr>
  <tr>
	<td colspan=2>

<table width="98%" border="0" bgcolor=#dddddd cellspacing="1" cellpadding="2" align="center">
  <tr> 
    <td width="8%" nowrap> 
      <div align="center">商品编号</div>
    </td>
    <td width="49%" nowrap> 
      <div align="center">商品名称</div>
    </td>
    <td width="14%" nowrap> 
      <div align="center">商品价格</div>
    </td>
    <td width="13%" nowrap> 
      <div align="center">商品数量</div>
    </td>
    <td width="16%" nowrap> 
      <div align="center">金额小计</div>
    </td>
  </tr>
<%
set tmpSql=conn.execute("select * from web_OrderDetail where orderID='"&orderID&"'")
while not tmpSql.eof
i=i+tmpSql("quantity")*tmpSql("price")
%>
  <tr bgcolor=#ffffff> 
    <td width="8%" nowrap> 
      <div align="center"><%=tmpSql("productID")%></div>
    </td>
    <td width="49%" nowrap> 
      <div align="center"><%=tmpSql("productName")%></div>
    </td>
    <td width="14%" nowrap> 
      <div align="center"><%=tmpSql("price")%></div>
    </td>
    <td width="13%" nowrap> 
      <div align="center"><%=tmpSql("quantity")%></div>
    </td>
    <td width="16%" nowrap> 
      <div align="center"><%=tmpSql("quantity")*tmpSql("price")%></div>
    </td>
  </tr>
<%
	tmpSql.movenext
wend
%>  
  <tr> 
    <td colspan="5"> 
      <div align="right">总计金额：<%=i%>元&nbsp;&nbsp;&nbsp;</div>
    </td>
  </tr>
</table>
  <table width="98%" border="0" bgcolor=#ffffff cellspacing="0" cellpadding="2" align="center">
<%if sql("state")=0 then%>
<form method="post" action="<%=UrlFile%>" name="form1">
  <tr>
      <td width="7%" nowrap> 
        <div align="right">发货备注</div>
    </td>
      <td width="93%"> 
        <textarea name="treatedRemark" cols="70" rows="3"></textarea>
        <input type="hidden" name="OrderID" value="<%=OrderID%>">
      </td>
  </tr>
  <tr> 
    <td height="28" bgcolor="#ffffff" colspan="2">
      <div align="center">
        <input type="button" name="Submit3" value="删除该订单" onClick="deleteMe()">
        <input type="button" name="Submit" value=" 已经发货 " onClick="submitMe()">&nbsp;
        <input type="button" name="Submit2" value=" 返回 " onClick="history.back(-1);">
		<input type='hidden' name='wxl' value='Add'>
      </div>
    </td>
  </tr>
<%else%>
  <tr>
      <td width="7%" nowrap> 
        <div align="right">发货备注</div>
    </td>
      <td width="93%"><%=sql("treatedRemark")%></td>
  </tr>
  <tr>
      <td width="7%" nowrap> 
        <div align="right">发货日期</div>
    </td>
      <td width="93%"><%=sql("treatedDate")%></td>
  </tr>
<%end if%>
</form>
</table>
</td>
</tr>
</table>
<%
 HtmlEnd
end sub

%>