订购单管理

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% option explicit response.buffer=true Const PurviewLevel=5 '操作权限 Const CheckChannelID=2 '所属频道，0为不检测所属频道 %> <% const MaxPerPage=20 dim strFileName,FileName dim totalPut,CurrentPage,TotalPages dim sql,rsOrderForm dim Action,FoundErr,ErrMsg FileName="Admin_OrderForm.asp" Action=trim(request("Action")) %> 订购单管理

订购单管理
管理导航：	订购单管理首页

<% if Action="Show" then call ShowOrderForm() elseif Action="Del" then call DelOrderForm() else call main() end if if FoundErr=True then call WriteErrMsg() end if call CloseConn() sub main() sql="select * from OrderForm order by OrderFormID desc" Set rsOrderForm= Server.CreateObject("ADODB.Recordset") rsOrderForm.open sql,conn,1,1 if rsOrderForm.eof and rsOrderForm.bof then totalPut=0 if Child=0 then response.write "

没有任何文章！

" else response.write "

此栏目的下一级子栏目中没有任何文章！

" end if else totalPut=rsOrderForm.recordcount if currentpage<1 then currentpage=1 end if if (currentpage-1)*MaxPerPage>totalput then if (totalPut mod MaxPerPage)=0 then currentpage= totalPut \ MaxPerPage else currentpage= totalPut \ MaxPerPage + 1 end if end if if currentPage=1 then showContent showpage strFileName,totalput,MaxPerPage,true,true,"篇文章" else if (currentPage-1)*MaxPerPage

<%do while not rsOrderForm.eof%> <% FormCount=FormCount+1 if FormCount>=MaxPerPage then exit do rsOrderForm.movenext loop %>

选中	订单编号	订购单位	联系人	联系电话	操作
	<%=rsOrderForm("OrderFormNum")%>	<%response.write "" & rsOrderForm("Company") & "" %>	<%= rsOrderForm("ContactMan") %>	<%= rsOrderForm("Phone") %>	<% response.write "删除" %>

选中本页显示的所有订单

<% end sub sub ShowOrderForm() dim OrderFormID OrderFormID=trim(request("OrderFormID")) if OrderFormID="" then FoundErr=true ErrMsg=ErrMsg & "

请指定订单ID

" exit sub else OrderFormID=Clng(OrderFormID) end if sql="select * from OrderForm where OrderFormID=" & OrderFormID Set rsOrderForm= Server.CreateObject("ADODB.Recordset") rsOrderForm.open sql,conn,1,1 if rsOrderForm.eof and rsOrderForm.bof then FoundErr=True ErrMsg=ErrMsg & "

找不到指定的订单！

" rsOrderForm.close set rsOrderForm=nothing exit sub end if %>

订购单信息

单位名称：

<%=rsOrderForm("Company")%>

联系人：

<%=rsOrderForm("ContactMan")%>

联系电话：

<%=rsOrderForm("Phone")%>

联系地址：

<%=rsOrderForm("Address")%>

邮政编码：

<%=rsOrderForm("PostCode")%>

<% dim rsFormItem,i,j i=0 set rsFormItem=conn.execute("select * from OrderForm_Item where OrderFormID=" & rsOrderForm("OrderFormID")) do while not rsFormItem.eof %> <% rsFormItem.movenext i=i+1 loop set rsFormItem=nothing for j=i+1 to 10 %> <% next %>

订购设备清单
产品名称	规格型号	单位	数量	送货时间	备注
<%=rsFormItem("ProductName")%>	<%=rsFormItem("Standard")%>	<%=rsFormItem("Unit")%>	<%=rsFormItem("Ammount")%>	<%=rsFormItem("SendTime")%>	<%=rsFormItem("Remark")%>

特殊要求：

<%=ubbcode(rsOrderForm("SpecialDemand"))%>

<% rsOrderForm.close set rsOrderForm=nothing end sub %> <% sub DelOrderForm() dim OrderFormID,i OrderFormID=trim(Request("OrderFormID")) if OrderFormID="" then FoundErr=True ErrMsg=ErrMsg & "

请指定订单ID

" Exit sub end if if instr(OrderFormID,",")>0 then dim idarr idArr=split(OrderFormID) for i = 0 to ubound(idArr) conn.execute "delete from OrderForm where OrderFormID=" & Clng(idArr(i)) conn.execute "delete from OrderForm_Item where OrderFormID=" & Clng(idArr(i)) next else conn.execute "delete from OrderForm where OrderFormID=" & Clng(OrderFormID) conn.execute "delete from OrderForm_Item where OrderFormID=" & Clng(OrderFormID) end if call CloseConn() response.redirect "Admin_OrderForm.asp" end sub %>