ordermanagement.asp

1. 硬件环境：MS WINDOWS NT PACK 4 OR LATER /WIN2000 WITH IIS 4.0 OR LATER /WIN9X+PWS 2. 数 据 库：Access2000

<!-- #include file="setup.asp" -->
<%
validate "Login.asp",4

if Request.ServerVariables("request_method")="POST" then
	Select case Request.Form("B1")
	Case "删 除"
	if Request.Cookies("Product") < 5 Then Error 2,"无权限删除定单！",""
	for each nums in request.form("DelID")
	 conn.execute("update OrderList set DelThis=true where Ordersingle="&nums)
	next
	 Response.redirect "Ordermanagement.asp"
	 Response.end
	Case "状态恢复"
	if Request.Cookies("Product") < 5 Then Error 2,"您无权限修改定单状态！",""
	for each nums in request.form("DelID")
	 conn.execute("update OrderList set OrderAppearance=0 where Ordersingle="&nums)
	next
	 Response.redirect "Ordermanagement.asp"
	 Response.end
	Case "定单确认"
	Set Rs = Server.CreateObject("ADODB.Recordset")
	for each nums in request.form("DelID")
	  Name_1=trim(conn.execute("Select UserName_1 from UserInfo where UserID="&Request.Cookies("User"))(0))
	  Name_2=trim(conn.execute("Select OrderPerson from OrderList where Ordersingle="&nums)(0))
	  UsID=conn.execute("Select OrderUserID from OrderList where Ordersingle="&nums)(0)
	  if Name_1<>Name_2 and Name_2<>"" and Request.Cookies("Product") < 5 Then Error 2,"此定单已由"&Name_2&"接手处理，其它人不得再行处理，以免造成管理混乱！",""
	  conn.execute("update OrderList set OrderAppearance=2 where Ordersingle="&nums)
	  conn.execute("update OrderList set OrderPerson='"&Name_1&"' where Ordersingle="&nums)
		  if conn.execute("Select Count(FinanceID)from Finance where FinanceID="&UsID&" and FinanceOrder="&nums)(0)=0 Then
		  YFK=conn.execute("Select UserMoney from UserInfo where UserID="&UsID)(0)
		  OrderMoney=conn.execute("Select OrderAllMoney from OrderList where Ordersingle="&nums)(0)
		
		  Rs.Open "Finance",Conn,1,3
		  Rs.addnew
		  Rs("FinanceID")=UsID
		  Rs("FinanceOperation")="支出"
		  Rs("FinanceMoney")=conn.execute("Select OrderAllMoney from OrderList where Ordersingle="&nums)(0)
		  Rs("FinanceReason")="定购产品"
			  if YFK >= OrderMoney Then
			  conn.execute("update UserInfo set UserMoney=UserMoney-"&OrderMoney&" where UserID="&UsID)
			    Rs("FinanceRemarks")="从预付款扣除相应金额"
			  elseif YFK <= 0 Then
			    Rs("FinanceRemarks")="汇款"
			  else
			  	conn.execute("update UserInfo set UserMoney=0 where UserID="&UsID)
			    Rs("FinanceRemarks")="预付款: "&YFK&" 汇款金额:"&OrderMoney-YFK
			  end if
		  Rs("FinanceOrder")=nums	
		  Rs("FinanceOrder")=nums
		  Rs.update
		  Rs.Close
		  
		  end if		  
	next
	Set Rs = Nothing
	response.redirect "Ordermanagement.asp"
	Response.end
	Case "定单完成"
	for each nums in request.form("DelID")
	  Name_1=trim(conn.execute("Select UserName_1 from UserInfo where UserID="&Request.Cookies("User"))(0))
	  Name_2=trim(conn.execute("Select OrderPerson from OrderList where Ordersingle="&nums)(0))
	  if Name_1<>Name_2 and Name_2<>"" and Request.Cookies("Product") < 5 Then
	  Error 2,"此定单已由"&Name_2&"接手处理，其它人不得再行处理，以免管理混乱！",""
	  end if
	  conn.execute("update OrderList set OrderAppearance=3 where Ordersingle="&nums)
	  conn.execute("update OrderList set OrderPerson='"&Name_1&"' where Ordersingle="&nums)
	next
	  response.redirect "Ordermanagement.asp"
	  Response.end
	Case Else
	Error 2,"非法信息！",""
	End Select
End if


Call Top
Call table()%>
	<style>
	<!--
	TABLE{BORDER-TOP:0px;BORDER-LEFT:0px;BORDER-BOTTOM:1px}TD{BORDER-RIGHT:0px;BORDER-TOP:0px}
	-->
	</style>
	<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> &nbsp;■ </b><%=Community%>订单管理中心。</td>
	</tr>
	</table>
	<TABLE borderColor=#a4b6d7 cellSpacing=0 cellPadding=3 width=100% border=1 style="border-collapse: collapse">
	<form method="POST">
	<TR>
	<TD  height=25 width="60%" >&nbsp;<img src="images/2.gif" width="60" height="9">操作选项：<a href=?Stime=1>查看今天的定单</a> ; <a href=?Stime=2>查看10天的定单</a> ;  <a href=?Stime=6>所有定单</a> </TD>
	<TD  height=25 width="40%" >
   	<p align="center">查看 <input type="text" name="pagel" size="2" maxlength=3 value=1> 天的定单 <input name="go" type="button"  value="LOOK!" Onclick=javascript:location.href='?Stime=3&datel='+form.pagel.value;> </TD>
	</TR>
	</form>
	</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=6%> 
      <input type=checkbox name=chkall value=on onclick=CheckAll(this.form)></TD>
	<TD width=10%> 
      <p align="center">订单号</TD>
	<TD  align=left  width="16%"> 
      <p align="center">订单状态</TD>
	<TD align=middle width=16%>产品总金额</TD>
	<TD align=middle width=16%>汇款单</TD>
	<TD align=left width=16%> 
      <p align="center">定单人</TD>
	<TD align=left width=20%> 
      <p align="center">定购时间</TD></TR>
	</TABLE>
	<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('OrderList.asp?Menu=ShowList&ID='+form.elements[i].value)
			}
		}
	}
	

function loadThreadFollow(ino){
	var targetDiv =eval("follow" + ino);
	if (targetDiv.style.display!='block'){
	targetDiv.style.display="block";
	}else{
	targetDiv.style.display="none";
	}
}

	</script>
<%

	page=Request.QueryString("page")
	Stime=Request.QueryString("Stime")
	Select case Stime
	case "",1
	Sel="DateDiff('d',OrderTime,Now) = 0 and "
	case 2
	Sel="DateDiff('d',OrderTime,Now) <= 10 and "
	case 3
	if IsNumEric(Request("datel"))=False Then Error 2,"请输入数字！",""
	Sel="DateDiff('d',OrderTime,Now) <= "&Request("datel")&" and "
	End Select
	Set rs = Server.CreateObject("ADODB.Recordset")
	sql="Select Ordersingle,OrderPerson,OrderAppearance,OrderTime,OrderRemittance,OrderAllMoney,OrderUserID From OrderList where "&Sel&" DelThis=false and OrderAppearance<>'1' order by OrderTime desc"
	rs.open sql,conn,1
	rs.pagesize=20
	if page = "" Then page = 1
	if page<1 then page=1
	if int(page)>rs.pagecount then page=rs.pagecount
	num=rs.recordcount
	maxpage=rs.pagecount
	if not rs.eof then
	showonepage rs,page
	end if
	rs.close
	Set Rs = Nothing
	if Stime<>"" Then if cstr(Stime)=3 Then ABC="&datel="&Request("datel")&""
	%>

	<table borderColor="#a4b6d7" cellSpacing="0" cellPadding="6" width="100%" border="1" style="border-collapse: collapse" height="7">
	<tr height="25">
	<td  height="1" width="100%" colspan="2">
	<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=您如果确认了该定单并且准备开始处理该定单，请勾选并点击！>
	<input type="submit" value="定单完成" name="B1" title=如果定单已完成，请勾选并点击！>
	<input type="submit" value="状态恢复" name="B1" title=将定单状态恢复成未处理状态，只有社区区长有此权限！>
    	</td>
	</tr>
	<tr height="25">
	<td  height="1" width="65%">页码:此类共有<%=num%>个产品,共有<%=maxpage%>页, 当前在<%=page%>页 &nbsp;跳转到第 <input type="text" name="pageln" size="2" maxlength=3 value=<%=page%>> 页 <input name="go" type="button"  value="GO!" Onclick=javascript:location.href='?Stime=<%=Stime&ABC%>&page='+form.pageln.value;>
    	</td>
	<td  height="1" width="35%">  <p align="right">
	<%

	if page <> 1 then
	response.write "<a href=?Stime="&Stime&ABC&"&page=1>第一页</a>&nbsp;"&_
	               "<a href=?Stime="&Stime&ABC&"&page="&(page-1)&">上一页</a>&nbsp;"
	end if
	if page<>maxpage then
		response.write "<a href=?Stime="&Stime&ABC&"&page="&(page+1)&">下一页</a>&nbsp;"&_
				"<a href=?Stime="&Stime&ABC&"&page="&maxpage&">最后一页</a>"
	end if
	%></td>
	</tr></form>
	</table>
	<br>
<%Online
HtmlEnd	 '---------------------------------分页--
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>"
	else
	Remittance="未上传"
	end if
	
	Select Case Rs("OrderAppearance")
	Case 0
	Appearance="订单待审"
	Case 1
	Appearance="草稿"
	Case 2
	Appearance="处理中"
	Case 3
	Appearance="已完成"
	End Select
	
	if trim(rs("OrderPerson"))<>"" Then
	TT=rs("Ordersingle")&"号定单由"&rs("OrderPerson")&"接手处理！"
	else
	TT="此定单尚未处理！"
	end if
	%>
	
	<TABLE borderColor=a4b6d7 cellSpacing=0 cellPadding=0 width="100%" border=1 style="border-collapse: collapse" height="24" title=<%=TT%>>
	<TR  height=25>
	<TD align=middle width=6%> 
      <input type="checkbox" name="DelID" value="<%=rs("Ordersingle")%>"></TD>
	<TD width=10%> 
      <p align="center"><a target=_blank href=OrderList.asp?Menu=ShowList&ID=<%=rs("Ordersingle")%>><%=rs("Ordersingle")%></a></TD>
	<TD  align=left  width="16%"> 
      <p align="center"><a title="点击上传发货单" href="Other.asp?menu=Hair&OrID=<%=rs("Ordersingle")%>"><%=Appearance%></a></TD>
	<TD align=middle width=16%><%=FormatCurrency(Rs("OrderAllMoney"))%></TD>
	<TD align=middle width=16%><%=Remittance%></TD>
	<TD align=left width=16%> 
      <p align="center"><a href=ShowUserInfo.asp?UsId=<%=rs("OrderUserID")%>><%=conn.execute("Select UserName_1 from UserInfo where UserID="&Rs("OrderUserID"))(0)%></a></TD>
	<TD align=left width=20%> 
      <p align="center"><%=rs("OrderTime")%></TD></TR>
	</TABLE>
<%end sub%>