wm.gift_order.asp

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

<!--#include file="WM.Sys_Cook.asp"-->
<%
If CheckAdminFlag("Gift") = False Then Call WRMPS.ErrView("·您没有权限进行此操作",0)
Call WM_Content
Sub WM_Content()
    Content = Content & "<table width='100%' cellpadding=3 cellspacing=1 class=td1>" & vbCrLf
    Content = Content & "<tr class=td2><td colspan=2>&nbsp;<a href=WM.Gift_Order.asp>管理首页</a> | <a href=?Action=Add>添加</a>　　　<a href=?SearchID=0>已处理的订单</a> | <a href=?SearchID=1>未处理的订单</a> | <a href=?SearchID=2>已退单的订单</a></td></tr>" & vbCrLf
    Content = Content & "</Table>" & vbCrLf
	
	Dim CountOut,Key,i,SearchID,ID,Msg,Numbe,User,Integral

    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 "EditSave"
	     Numbe = WRMPS.CheckStr(Request("Number"), 0)
		 If Numbe = "" Then Call WRMPS.ErrView("·操作错误",0)
         Key = WRMPS.CheckStr(Request("Key"), 1)
		 Select Case Key
		   Case 0'退单
		     Msg = WRMPS.CheckStr(Request("Msg2"),2)
		     If Msg = "" Then Msg = Null
			 User = WRMPS.CheckStr(Request("User"), 0)
			 Integral = WRMPS.CheckStr(Request("Integral"), 1)
		     Conn.Execute("Update WM_Gift Set WM_Num = WM_Num+1 Where WM_Number='"&Numbe&"'")
		     Conn.Execute("Update WM_GiftOrder Set WM_Key = 2,WM_Msg='"&Msg&"' Where WM_ID="&ID)
			 If IsNull(User)=False Then
			   If IsNull(Integral)=False Then Call WRDB.SaveConsume(0,User,0,0,Int(Integral),0,"礼品兑换退单(编号："&Numbe&")")
		       If IsNull(Msg)=False Then Call WRDB.SendMessage(User,Null,"对不起，您的礼品订单（"&Numbe&"）被退回！",WRTemp.SiteLabel(Msg))
			 End If
		   Case 1
		     Msg = WRMPS.CheckStr(Request("Msg1"),2)
		     If Msg = "" Then Msg = Null
		     Conn.Execute("Update WM_Gift Set WM_RedeemNum = WM_RedeemNum+1 Where WM_Number='"&Numbe&"'")
		     Conn.Execute("Update WM_GiftOrder Set WM_Key = 1,WM_Msg='"&Msg&"' Where WM_ID="&ID)
		 End Select
	     Call WRMPS.ErrView("·订单处理成功<br>·<a href=?Page="&Page&"&SearchID="&SearchID&">返回礼品订单管理</a><meta http-equiv=refresh content='3;URL=?Page="&Page&"&SearchID="&SearchID&"'>",1)
     
	  Case "Edit"
	     Rs.Open "Select A.WM_User,A.WM_Number,A.WM_Order,A.WM_Contact,A.WM_Tel,A.WM_QQ,A.WM_Email,A.WM_Time,A.WM_Msg,A.WM_Key,B.WM_Integral from WM_GiftOrder A Inner Join WM_Gift B on A.WM_Number = B.WM_Number Where A.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(0)&">" & vbCrLf
	     Content = Content & "<input type=hidden name=Number value="&Rs(1)&">" & vbCrLf
	     Content = Content & "<input type=hidden name=Integral value="&Rs(10)&">" & vbCrLf
		 Content = Content & "<tr class=td2><td Width='20%'><strong>订单单号</strong></td>" & vbCrLf
		 Content = Content & "<td Width='80%'>"&Rs(2)&"</td></tr>" & vbCrLf
		 Content = Content & "<tr class=td2><td><strong>礼品编号</strong></td>" & vbCrLf
		 Content = Content & "<td>"&Rs(1)&"</td></tr>" & vbCrLf
		 Content = Content & "<tr class=td2><td><strong>积分</strong></td>" & vbCrLf
		 Content = Content & "<td>"&Rs(10)&"</td></tr>" & vbCrLf
		 Content = Content & "<tr class=td2><td><strong>兑换用户</strong></td>" & vbCrLf
		 Content = Content & "<td>"&Rs(0)&"</td></tr>" & vbCrLf
		 Content = Content & "<tr class=td2><td><strong>联系人</strong></td>" & vbCrLf
		 Content = Content & "<td>"&Rs(3)&"</td></tr>" & vbCrLf
		 Content = Content & "<tr class=td2><td><strong>TEL</strong></td>" & vbCrLf
		 Content = Content & "<td>"&Rs(4)&"</td></tr>" & vbCrLf
		 Content = Content & "<tr class=td2><td><strong>QQ</strong></td>" & vbCrLf
		 Content = Content & "<td>"&Rs(5)&"</td></tr>" & vbCrLf
		 Content = Content & "<tr class=td2><td><strong>Email</strong></td>" & vbCrLf
		 Content = Content & "<td>"&Rs(6)&"</td></tr>" & vbCrLf
		 Content = Content & "<tr class=td2><td><strong>下单时间</strong></td>" & vbCrLf
		 Content = Content & "<td>"&Rs(7)&"</td></tr>" & vbCrLf
		 Msg = Rs(8)
         Select Case Rs(9)
		   Case 0
             Content = Content & "<tr class=td2><td><strong>处理</strong></td>" & vbCrLf
             Content = Content & "<td><input type=radio name=Key value=1 Class=radio checked onclick=""msg1.style.display='';msg2.style.display='none';""> 已发礼品 <input type=radio name=Key value=0 Class=radio onclick=""msg1.style.display='none';msg2.style.display='';""> 退单</td></tr>" & vbCrLf
		     Content = Content & "<tr class=td2 id=msg1><td><strong>备注</strong><br>输入礼品领取人的身份证等相关信息</td>" & vbCrLf
             Content = Content & "<td><textarea name=Msg1 cols='100%' rows=8>姓名："&vbCrLf&"身份证件："&vbCrLf&"证件号码："&vbCrLf&"联系方式："&vbCrLf&"备注：</textarea></td></tr>" & vbCrLf
		     Content = Content & "<tr class=td2 id=msg2 style='display:none'><td><strong>退单原因</strong></td>" & vbCrLf
             Content = Content & "<td><textarea name=Msg2 cols='100%' rows=8>尊敬的用户："&vbCrLf&"您的在 "&Rs(7)&" 下的礼品兑换订单，单号为："&Rs(2)&"，由于以下原因将被退单："&vbCrLf&"1，您的账户积分来源不明；"&vbCrLf&"2，您的联系方式不正确，以至于我们联系不到您。"&vbCrLf&vbCrLf&"退单后，您的积分将在稍后退回您的账户"&vbCrLf&"如果问题，可以和我们客服人员联系！</textarea></td></tr>" & vbCrLf
		     Content = Content & "<tr class=td2><td></td><td><input type=submit name='Submit' value=' 提 交 '></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%' cellpadding=2 cellspacing=1 border=0 align=center class=td1>" & vbCrLf
        Content = Content & "<tr class=td4><td colspan=7><strong>礼品订单管理</strong></td></tr>" & vbCrLf
        Content = Content & "<tr class=td3 align=center>" & vbCrLf
	    Content = Content & "<td>订单号</td>" & vbCrLf
        Content = Content & "<td width='15%'>礼品编号</td>" & vbCrLf
        Content = Content & "<td width='8%'>兑换用户</td>" & vbCrLf
        Content = Content & "<td width='8%'>联系人</td>" & vbCrLf
        Content = Content & "<td width='8%'>电话</td>" & vbCrLf
        Content = Content & "<td width='8%'>状态</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
        ClsPageList.strOrderList = "WM_ID desc"  
        ClsPageList.strPrimaryKey = "WM_ID"  
        ClsPageList.intPageSize = 20 
        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><a href=WM.Finance_List.asp?Type=3&User="&arrPage(3,i)&" title='查看此用户账户名细' target=top onclick=parent.TopType()>"&arrPage(3,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 & "<td><a href='?Action=Edit&ID="&arrPage(0,i)&"&Page="&Page&"&SearchID="&SearchID&"'>处理</a></td>"
			Content = Content & "</tr>" & vbCrLf
         Next  
         End If
        Content = Content & "<tr class=td3><td colspan=7 align=right>"&strPageList&"</td></tr>" & vbCrLf
        Content = Content & "<tr class=td2><td colspan=7><strong>注：</strong><br>① 点击兑换用户名查看此用户积分明细<br>② 点击礼品编号查看礼品具体信息</td></tr>" & vbCrLf
        Content = Content & "</table>" & vbCrLf
    End Select
    Set Rs = Nothing
    Call DBConnEnd()
    Call ClassEnd()
    Response.Write Content
    Call GetBottom()
End Sub

%>