user_gift_order.asp

网人分类信息5.0商业版。非常优秀的分类信息系统。比较少见。

<!--#include file="Cook.asp" -->
<%
Content = Content & PageTop()
Content = Content & UserPath(",<a href=User_EditInfo.asp>资料修改</a>")

    Content = Content & "<table width='100%' cellpadding=3 cellspacing=1 class=td1>" & vbCrLf
    Content = Content & "<tr class=td2><td colspan=2>&nbsp;<a href=?SearchID=0>已处理的订单</a> | <a href=?SearchID=1>未处理的订单</a> | <a href=?SearchID=2>已退单的订单</a></td></tr>" & vbCrLf
    Content = Content & "</Table>" & vbCrLf
	
	Dim CountOut,i,SearchID,Msg,Numbe,User
 
    Call DBConnBegin()
    Page = WRMPS.CheckStr(Request("Page"), 1)
    ID = WRMPS.CheckStr(Request("ID"), 0)
	SearchID = WRMPS.CheckStr(Request("SearchID"), 1)
	If SearchID = "" Then SearchID = 0
	Set Rs = server.createobject("adodb.recordset")
    
	Select Case WRMPS.CheckStr(Request("Action"), 0)
	  Case "Edit"
	     Rs.Open "Select * From WM_GiftOrder Where WM_ID="&ID,conn,1,1
		 If Not Rs.Eof Then
         Content = Content & "<table width='100%' cellpadding=3 cellspacing=1 class=td1>" & vbCrLf
         Content = Content & "<tr class=td4><td Colspan=2><strong>处理订单</strong></td></tr>" & vbCrLf
         Content = Content & "<form name='myform' method='post' Action='?Action=EditSave'>" & vbCrLf
	     Content = Content & "<input type=hidden name=ID value="&ID&">" & vbCrLf
	     Content = Content & "<input type=hidden name=Page value="&Page&">" & vbCrLf
	     Content = Content & "<input type=hidden name=SearchID value="&SearchID&">" & vbCrLf
	     Content = Content & "<input type=hidden name=User value="&Rs("WM_User")&">" & vbCrLf
	     Content = Content & "<input type=hidden name=Number value="&Rs("WM_Number")&">" & vbCrLf
		 Content = Content & "<tr class=td2><td Width='20%'><strong>订单单号</strong></td>" & vbCrLf
		 Content = Content & "<td Width='80%'>"&Rs("WM_Order")&"</td></tr>" & vbCrLf
		 Content = Content & "<tr class=td2><td><strong>礼品编号</strong></td>" & vbCrLf
		 Content = Content & "<td>"&Rs("WM_Number")&"</td></tr>" & vbCrLf
		 Content = Content & "<tr class=td2><td><strong>兑换用户</strong></td>" & vbCrLf
		 Content = Content & "<td>"&Rs("WM_User")&"</td></tr>" & vbCrLf
		 Content = Content & "<tr class=td2><td><strong>联系人</strong></td>" & vbCrLf
		 Content = Content & "<td>"&Rs("WM_Contact")&"</td></tr>" & vbCrLf
		 Content = Content & "<tr class=td2><td><strong>TEL</strong></td>" & vbCrLf
		 Content = Content & "<td>"&Rs("WM_Tel")&"</td></tr>" & vbCrLf
		 Content = Content & "<tr class=td2><td><strong>QQ</strong></td>" & vbCrLf
		 Content = Content & "<td>"&Rs("WM_QQ")&"</td></tr>" & vbCrLf
		 Content = Content & "<tr class=td2><td><strong>Email</strong></td>" & vbCrLf
		 Content = Content & "<td>"&Rs("WM_Email")&"</td></tr>" & vbCrLf
		 Content = Content & "<tr class=td2><td><strong>下单时间</strong></td>" & vbCrLf
		 Content = Content & "<td>"&Rs("WM_Time")&"</td></tr>" & vbCrLf
		 Msg = Rs("WM_Msg")
         Select Case Rs("WM_Key")
		   Case 0
		     Content = Content & "<tr class=td2 id=msg1><td><strong>订单状态</strong></td>" & vbCrLf
             Content = Content & "<td><span class=Font3>未处理</span></td></tr>" & vbCrLf
		   Case 1
		     Content = Content & "<tr class=td2 id=msg1><td><strong>订单状态</strong></td>" & vbCrLf
             Content = Content & "<td><span class=Font1>已处理</span></td></tr>" & vbCrLf
		     Content = Content & "<tr class=td2 id=msg1><td><strong>处理备注</strong></td>" & vbCrLf
             Content = Content & "<td>"&Msg&"</td></tr>" & vbCrLf
		   Case 2
		     Content = Content & "<tr class=td2 id=msg1><td><strong>订单状态</strong></td>" & vbCrLf
             Content = Content & "<td><span class=Font2>已退单</span></td></tr>" & vbCrLf
		     Content = Content & "<tr class=td2 id=msg1><td><strong>退单原因</strong></td>" & vbCrLf
             Content = Content & "<td>"&Msg&"</td></tr>" & vbCrLf
		 End Select
		 Content = Content & "</form></table><script>document.myform.Title.focus()</script>" & vbCrLf
		 End If
		 Rs.Close

      Case Else
        Content = Content & "<table width=""100%"" border=""0"" cellspacing=""1"" cellpadding=""0"" class=td1 align=center>" & vbCrlf
        Content = Content & "<tr><td class=td4 colspan=7><strong>礼品订单管理</strong></td></tr>" & vbCrLf
        Content = Content & "<tr class=td3 align=center>" & vbCrLf
	    Content = Content & "<td>订单号</td>" & vbCrLf
        Content = Content & "<td width='20%'>礼品编号</td>" & vbCrLf
        Content = Content & "<td width='12%'>联系人</td>" & vbCrLf
        Content = Content & "<td width='15%'>电话</td>" & vbCrLf
        Content = Content & "<td width='15%'>状态</td></tr>" & vbCrLf
        Select Case SearchID
		  Case 0
		    SQL = "WM_Key=1"
		  Case 1
		    SQL = "WM_Key=0"
		  Case 2
		    SQL = "WM_Key=2"
		End Select
        Set ClsPageList = New Cls_PageView  
        ClsPageList.strTableName = "WM_GiftOrder"  
        ClsPageList.strPageUrl = ""  
        ClsPageList.strFieldsList = "WM_ID,WM_Number,WM_Order,WM_User,WM_Contact,WM_Tel,WM_Key"  
        ClsPageList.strCondiction = SQL&" and WM_User='"&MemName&"'"
        ClsPageList.strOrderList = "WM_ID desc"  
        ClsPageList.strPrimaryKey = "WM_ID"  
        ClsPageList.intPageSize = 15
        ClsPageList.intPageNow = Page
        ClsPageList.strCookiesName = "RecordCount"  
        ClsPageList.strPageVar = "Page"  
        ClsPageList.intRefresh = 1
	    ClsPageList.inAdmin = 1
        ClsPageList.objConn = Conn  
        ClsPageList.InitClass  
        arrPage = ClsPageList.arrPage  
        strPageList = ClsPageList.strPageList  
        Set ClsPageList = nothing  
	    If IsArray(arrPage) Then
         For i = 0 to UBound(arrPage, 2)  
            Content = Content & "<tr class=td2 align=center>" & vbCrLf
            Content = Content & "<td>"&arrPage(2,i)&"</td>" & vbCrLf
            Content = Content & "<td><a href="&WRMPS.GetGiftUrl(arrPage(1,i))&" target=_blank>"&arrPage(1,i)&"</a></td>" & vbCrLf
            Content = Content & "<td>"&arrPage(4,i)&"</td>" & vbCrLf
            Content = Content & "<td>"&arrPage(5,i)&"</td>" & vbCrLf
            Content = Content & "<td>"&WRMPS.GetReplace(WRMPS.GetReplace(WRMPS.GetReplace(arrPage(6,i),0,"<span Class=Font3>未处理</span>"),1,"已处理"),2,"<span Class=Font2>已退单</span>")&"</td>" & vbCrLf

			Content = Content & "</tr>" & vbCrLf
         Next  
         End If
        'Content = Content & "<tr class=td3><td colspan=7 align=right>"&strPageList&"</td></tr>" & vbCrLf
        Content = Content & "</table>" & vbCrLf
        
		Content = Content & "<table width='100%' cellpadding=3 cellspacing=1 align=center class=td5><tr><td height=30></td><td align=right>" &strPageList& "</td></tr></Form></table>" & vbCrLf

    End Select
    Set Rs = Nothing
    Call DBConnEnd()
    Response.Write Content
    Call GetBottom()
    Call ClassEnd()
%>