shopa_displayorders.asp

本软件可以实现的功能如下： 用户管理

<%option explicit%>
<!-- #include file="shop$db.asp" -->
<!-- #include file="shopa_Tools.asp" -->
<%
ShopCheckAdmin

dim mysql
Dim Fieldcount
Dim Headnames(6)
Dim Fieldnames(6)
Dim ProcType
Dim SortType
Dim Sortfield
Dim SortUpDown
Dim Sortupdownnames(2)
Dim Sortupdownvalues(2)
Dim Procnames(3)
dim Procvalues(3)
Dim Idfield
Dim i 
Dim item
dim dbtable
Dim scriptresponder
Dim dbc
dim fieldname
AdminPageHeader            ' Admin page headers are different
SetFieldNames              ' field names for table
ShopOpenDatabase dbc           ' open database
GetInput                    ' get all form fields
If Request("Delete")<>"" Then
	For each item in Request("DeleteUser")
            DeleteRecord Item
	Next
End if
If Request("Process")<>"" Then
	For each item in Request("Processed")
            MarkProcessed Item
	Next
End if
GenerateDisplayHeader       ' Generate sort button etc 
scriptresponder="shopa_formatorder.asp"
'response.write "sql="  & mysql
ShopopenRecordSet mysql, rsorder, mypagesize, mypage
GenerateTable                ' write the tabe
Call PageNavBar (Mysql)      ' put bottom navigation bar
rsOrder.close                ' close database
shopCloseDatabase dbc
AdminPageTrailer            ' Write admin trailer 
'
Sub GetInput
Idfield="订单id"
mypage = Request.querystring("page")
'first time we need everything, othertimes sql is set up
sortfield=request("Sortfield")
' See how we are sorting
If Sortfield="" then
   sortfield="订单ID"
end if
'response.write "sortfield="& sortfield
' see which types processed or unprocessed
Proctype=request("Proctype")
If Proctype="" then 
   Proctype="0"
end if
'response.write "Proctype=" & proctype
SortUpdown=request("SortUpdown")
If SortUpdown=""  then 
   sortupdown="ASC"
end if
if mypage="" then
   mypage=1
   GenerateSQL 
else
   Mysql=Session("sqlquery")
   Proctype=Session("Proctype")
   sortfield=Session("sortfield")
   sortupdown=Session("sortupdown")
end if
maxrecs=10
mypagesize=maxrecs
end sub
'
' SQL is generate by using fields on form

Sub GenerateSQL
dim sqlproc
dim dbtable
dbtable="orders"
MySql = "SELECT * from " & dbtable 
'response.write "generated sql=" & mysql
if Proctype="" then 
   sqlproc =" WHERE 处理=0"
else
   if Proctype="All" then
       sqlproc=""
   else
     sqlproc =" WHERE 处理=" & Proctype
   end if
end if
Mysql = mysql & sqlproc
If sortfield<>"" then
   mysql=mysql & " order by " & sortfield & " " & sortupdown
end if
Session("sqlquery")=MySQL
Session("Proctype")=Proctype
Session("sortfield")=sortfield
Session("sortupdown")=sortupdown
'Response.write "<br>" & mysql
End sub
'
Sub GenerateTable
dim howmanyfields
dim howmanyrecs
dim my_link
howmanyfields=fieldcount
response.write "<center>Page " & mypage & " of " & maxpages & "<br>"
%>
<table border="1" bordercolordark="#006699" bordercolorlight="#339999" cellspacing="0" cellpadding="0">
  <tr>
    <td >----</td>
      <td><b>订单处理</b></td>
     <% 'Put Headings On The Table of Field Names
      for i=0 to howmanyfields%>
        <td><b><%=Headnames(i) %></b></td>
      <% next %>
      <td><b>删除</b></td>
      </tr>
 <% ' Now lets grab all the records
        howmanyrecs=0
        DO  UNTIL rsorder.eof OR howmanyrecs=maxrecs
        if rsorder("处理")<>0 then
           response.write "<TR bgColor=#666666>"
        else
           response.write "<tr>"
        end if 
%>
        <td >
         <%my_link=scriptresponder & "?oid=" & rsorder(idfield) & "&idfield=" & idfield  %>
          <a HREF="<%=my_link%>">查看</a></td>
<%
if rsorder("处理")<>0 then
%>
          <td><center>处理</center></td>
<%
else
%>
     <td><center><input type=checkbox name="Processed" value="<%=rsorder(idfield)%>"></center></td>
<%
end if
          for i = 0 to howmanyfields
          fieldname=fieldnames(i) 
          if ucase(fieldname)="客户ID" then
             response.write  "<td><a href=shopa_editrecord.asp?table=customers&idfield=客户ID&which=" & RSorder("客户id") & ">" & rsorder(fieldname) & "</a></td>"
          else
             response.write("<td>" & rsorder(fieldname) & "</td>")
          end if
          next
%>
          <td><center><input type=checkbox name="DeleteUser" value="<%=rsorder(idfield)%>"></center></td>
          </tr>
<%
          howmanyrecs=howmanyrecs+1
           if howmanyrecs < maxrecs then
             rsorder.movenext
           end if 
        loop
        response.write("</table></font>")
%>
          <input type="hidden" name="database" value="<%=database%>">
          <input type="hidden" name="table" value="<%=dbtable%>">
          <input type="hidden" name="idfield" value="<%=idfield%>">

        <center><br><input type="submit" name="Delete" value="删除订单"><input type="submit" name="Process" value="处理订单"></center></font>
<%
        response.write("</form>")
end sub
Sub SetFieldNames
Fieldcount=5
Fieldnames(0)="订单ID"
Fieldnames(1)="客户id"
fieldnames(2)="日期"
fieldnames(3)="总金额"
fieldnames(4)="姓名"
Fieldnames(5)="国家"
Headnames(0)="订单ID"
Headnames(1)="客户ID"
Headnames(2)="订单日期"
Headnames(3)="订单总价"
Headnames(4)="客户名"
HeadNames(5)="国家"
Sortupdownnames(0)="升序"
Sortupdownnames(1)="降序"
Sortupdownvalues(0)="ASC"
Sortupdownvalues(1)="DESC"
Procnames(0)="所有的订单"
Procnames(1)="已处理订单"
Procnames(2)="未处理订单"
ProcValues(0)="All"
ProcValues(1)="1"
ProcValues(2)="0"
end sub
Sub DeleteRecord(Item)
dim Rowsaffected
dbc.Execute "delete from OItems where 订单ID = " & Item
dbc.Execute "delete from Orders where 订单ID = " & Item, RowsAffected, 1
end sub
Sub MarkProcessed (Item)
'Response.write "item=" & item
sql= "update Orders set 处理 = 1 where 订单id =" & item
dbc.Execute sql
End sub
Sub GenerateDisplayHeader
%>
<form action="shopa_displayorders.asp" method="post">
<table align="center" border="0"<tr>
<td align="left">排列订单：
<%
GenerateSelect Headnames,fieldnames,sortfield,"sortfield"
response.write "<td align=""left"">"
GenerateSelect Sortupdownnames,Sortupdownvalues,sortupdown,"sortupdown"
response.write "</td>"
response.write "<td align=""left"">"
GenerateSelect Procnames,ProcValues,Proctype,"Proctype"
%>
</td>
<td><input type="submit" name="Sort" value="排列"></center></font></td>
</tr></table>  
<%
end sub
Sub GenerateRadio (Fieldname,fieldvalue,radiotype, currentvalue)
if currentvalue=Fieldvalue then
%>
  <input type="radio" name="<%=RadioType%>" value="<%=fieldvalue%>" CHECKED><%=fieldname%><br>
<%
else
%>
  <input type="radio" name="<%=RadioType%>" value="<%=fieldvalue%>"><%=fieldname%><br>
<%
end if
end sub
Sub GenerateSelect (iFieldnames,ifieldvalues,currentvalue,selectname)
%>
<select size=1 name="<%=selectname%>">
<%
for i = 0 to ubound(ifieldnames)-1
   If currentvalue= ifieldvalues(i) then
      response.write "<option value=" & ifieldvalues(i) & " selected>" &  iFieldnames(i) & "</option>"
   else
      response.write "<option value=" & ifieldvalues(i) & ">" &  ifieldnames(i) & "</option>"
   end if
next
%>
</select></td>
<%
end sub
%>