www.gusucode.com > 艺术签名文章资讯网源代码 > 艺术签名文章资讯网源代码/624/adminhtry/admin_userorder.asp
<!--#include file="setup.asp"-->
<!--#include file="check.asp"-->
<%
Admin_header
'=====================================================================
' 软件名称：新云网站管理系统
' 当前版本：NewAsp Site Management System Version 3.0
' 文件名称：admin_userorder.asp
' 更新日期：2006-12-20
' 官方网站：新云网络(www.newasp.net www.newasp.cn) QQ：94022511
'=====================================================================
' Copyright 2003-2007 newasp.net - All Rights Reserved.
' newasp is a trademark of newasp.net
'=====================================================================
Dim Action
If Not ChkAdmin("9999") Then
Server.Transfer("showerr.asp")
Response.End
End If
Call showpagetop
Action = LCase(Request("action"))
Select Case Trim(Action)
Case "add"
Call AddUserMoney
Case "view"
Call ViewOrder
Case "del"
Call DelOrder
Case "delfinish"
Call DelFinishOrder
Case Else
Call showmain
End Select
If FoundErr = True Then
ReturnError(ErrMsg)
End If
Admin_footer
SaveLogInfo(AdminName)
CloseConn
Private Sub showpagetop()
Response.Write "<table border=0 align=center cellpadding=3 cellspacing=1 class=TableBorder>"
Response.Write " <tr>"
Response.Write " <th>会员充值定单管理</th>"
Response.Write " </tr>"
Response.Write " <tr><form method=Post name=myform action=admin_userorder.asp onSubmit='return JugeQuery(this);'>"
Response.Write " <td class=TableRow1>定单查询："
Response.Write " <input name=keyword type=text size=30>"
Response.Write " 条件："
Response.Write " <select name=field>"
Response.Write " <option value=1 selected>定 单 号</option>"
Response.Write " <option value=2>用 户 名</option>"
Response.Write " <option value=3>不限条件</option>"
Response.Write " </select> <input type=submit name=Submit value='开始查询' class=Button></td>"
Response.Write " </form>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td class=TableRow2><strong>操作选项：</strong> <a href='admin_userorder.asp'>管理首页</a> | "
Response.Write " <a href='admin_userorder.asp?finished=0'>未处理定单</a> | "
Response.Write " <a href='admin_userorder.asp?finished=1'>已处理定单</a> | "
Response.Write " <a href='admin_userorder.asp?action=delfinish' onClick=""return confirm('确定要清除所有已处理定单吗？')"">清除所有已处理定单</a></td>"
Response.Write " </tr>"
Response.Write "</table>"
Response.Write "<br>"
End Sub
Sub showmain()
Dim CurrentPage,page_count,totalnumber,Pcount,maxperpage
Dim keyword,findword,tablebody
maxperpage = 30
CurrentPage = Request("page")
If CurrentPage = "" Or Not IsNumeric(CurrentPage) Then
CurrentPage = 1
Else
CurrentPage = CLng(CurrentPage)
End If
If CLng(CurrentPage) = 0 Then CurrentPage = 1
If Not IsNull(Request("keyword")) And Request("keyword") <> "" Then
keyword = Replace(Replace(Replace(Replace(Replace(Request("keyword"), "'", "''"), "[", ""), "]", ""), "%", ""), "|", "")
If CInt(Request("field")) = 1 Then
findword = "WHERE OrderForm like '%" & keyword & "%'"
ElseIf CInt(Request("field")) = 2 Then
findword = "WHERE username like '%" & keyword & "%'"
Else
findword = "WHERE OrderForm like '%" & keyword & "%' Or username like '%" & keyword & "%'"
End If
Else
If Trim(Request("finished")) <> "" Then
If Request("finished") > 0 Then
findword = "WHERE finished>0"
Else
findword = "WHERE finished=0"
End If
Else
findword = ""
End If
End If
Response.Write "<table cellspacing=1 align=center cellpadding=3 border=0 class=tableborder>"
Response.Write " <tr>"
Response.Write " <th>定 单 号</th>"
Response.Write " <th>用 户 名</th>"
Response.Write " <th>支付金额</th>"
Response.Write " <th>支付标题</th>"
Response.Write " <th>提交日期</th>"
Response.Write " <th>付款方式</th>"
Response.Write " <th>状 态</th>"
Response.Write " <th>操 作</th>"
Response.Write " </tr>"
totalnumber = Newasp.Execute("SELECT COUNT(id) FROM NC_AddMoney " & findword & "")(0)
Pcount = CLng(totalnumber / maxperpage) '得到总页数
If Pcount < totalnumber / maxperpage Then Pcount = Pcount + 1
If CurrentPage < 1 Then CurrentPage = 1
If CurrentPage > Pcount Then CurrentPage = Pcount
Set Rs = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM NC_AddMoney " & findword & " ORDER BY id DESC"
If IsSqlDataBase=1 And Trim(Request("keyword"))="" Then
Set Rs = Newasp.Execute(SQL)
Else
Rs.Open SQL, Conn, 1, 1
End If
If Rs.BOF And Rs.EOF Then
Response.Write "<tr><td align=center colspan=8 class=TableRow1>没有会员充值定单！</td></tr>"
Else
Rs.MoveFirst
If Pcount > 1 then Rs.Move (CurrentPage - 1) * maxperpage
page_count = 0
Do While Not Rs.EOF And page_count < CInt(maxperpage)
If Not Response.IsClientConnected Then Response.End
If (page_count mod 2) = 0 Then
tablebody = "class=TableRow1"
Else
tablebody = "class=TableRow2"
End If
Response.Write " <tr align=center>"
Response.Write " <td " & tablebody & "><a href=""?action=view&id="& Rs("id") &""" title='查看定单信息'><font color=red>" & Rs("OrderForm") & "</font></a></td>"
Response.Write " <td " & tablebody & "><a href=""admin_user.asp?action=edit&userid="& Rs("userid") &""" title='查看会员信息'>" & Rs("username") & "</a></td>"
Response.Write " <td " & tablebody & ">" & FormatCurrency(Rs("addmoney"),2,-1) & " 元</td>"
Response.Write " <td " & tablebody & ">" & Newasp.HTMLEncodes(Rs("title")) & "</td>"
Response.Write " <td " & tablebody & ">" & Newasp.HTMLEncodes(Rs("addtime")) & "</td>"
Response.Write " <td " & tablebody & ">" & Newasp.HTMLEncodes(Rs("paytype")) & "</td>"
Response.Write " <td " & tablebody & ">"
If Rs("finished") > 0 Then
Response.Write "<font color=blue>已处理</font>"
Else
Response.Write "<a href=""?action=add&id="& Rs("id") &""" title='点击处理此定单' onClick=""return confirm('确定要处理此定单吗？')""><font color=red>未处理</font></a>"
End If
Response.Write "</td>"
Response.Write " <td " & tablebody & ">"
Response.Write "<a href=""?action=del&id=" & Rs("id") & """ onClick=""return confirm('确定要删除此定单吗？')"">删 除</a>"
Response.Write "</td>"
Response.Write " </tr>"
Rs.movenext
page_count = page_count + 1
If page_count >= maxperpage Then Exit Do
Loop
End If
Rs.Close:Set Rs = Nothing
Response.Write " <tr align=center>"
Response.Write " <td class=tablerow2 colspan=8>"
Response.Write ShowPages(CurrentPage,Pcount,totalnumber,maxperpage,"&finished="& Request("finished") &"&keyword="& Request("keyword"))
Response.Write "</td>"
Response.Write " </tr>"
Response.Write "</table>"
End Sub
Sub DelFinishOrder()
Newasp.Execute("DELETE FROM NC_AddMoney WHERE finished>0")
Response.Redirect Request.ServerVariables("HTTP_REFERER")
End Sub
Sub DelOrder()
If Not IsNumeric(Request("id")) Then
Founderr = True
ErrMsg = ErrMsg + "<li>请正确输入ID！</li>"
Exit Sub
End If
Newasp.Execute("DELETE FROM NC_AddMoney WHERE id="& CLng(Request("id")))
Response.Redirect Request.ServerVariables("HTTP_REFERER")
End Sub
Sub AddUserMoney()
If Not IsNumeric(Request("id")) Then
Founderr = True
ErrMsg = ErrMsg + "<li>请正确输入ID！</li>"
Exit Sub
End If
Set Rs = Newasp.Execute("SELECT * FROM NC_AddMoney WHERE finished=0 And id="& CLng(Request("id")))
If Rs.BOF And Rs.EOF Then
Founderr = True
ErrMsg = ErrMsg + "<li>错误的系统参数，或者此定单已经处理！</li>"
Set Rs = Nothing
Exit Sub
Else
Newasp.Execute ("UPDATE NC_User SET usermoney=usermoney+"& CCur(Rs("addmoney")) &" WHERE username='"& Rs("username") &"' And userid="& CLng(Rs("userid")))
Newasp.Execute ("UPDATE NC_AddMoney SET finished=1 WHERE id="& CLng(Request("id")))
Dim sqlAccount,rsAccount
Set rsAccount = Server.CreateObject("ADODB.Recordset")
sqlAccount = "SELECT * FROM NC_Account WHERE (AccountID is null)"
rsAccount.Open sqlAccount,Conn,1,3
rsAccount.addnew
rsAccount("payer").Value = Rs("username").Value
rsAccount("payee").Value = Newasp.SiteName
rsAccount("product").Value = Rs("title").Value
rsAccount("Amount").Value = 1
rsAccount("unit").Value = "次"
rsAccount("price").Value = Rs("addmoney").Value
rsAccount("TotalPrices").Value = Rs("addmoney").Value
rsAccount("DateAndTime").Value = Now()
rsAccount("Accountype").Value = 0
rsAccount("Explain").Value = Rs("readme").Value
rsAccount("Reclaim").Value = 0
rsAccount.update
rsAccount.Close:Set rsAccount = Nothing
Succeed("<li>定单处理完成。</li><li>您已成功为用户：<b>" & Rs("username") & "</b> 充值金额" & FormatCurrency(Rs("addmoney"),2,-1) & " 元</li>")
End If
Set Rs = Nothing
End Sub
Public Sub saveaccount()
Dim sqlAccount,rsAccount
Set rsAccount = Server.CreateObject("ADODB.Recordset")
sqlAccount = "SELECT * FROM NC_Account WHERE (AccountID is null)"
rsAccount.Open sqlAccount,Conn,1,3
rsAccount.addnew
rsAccount("payer").Value = Request.Form("payer")
rsAccount("payee").Value = Request.Form("payee")
rsAccount("product").Value = Request.Form("product")
rsAccount("Amount").Value = Request.Form("Amount")
rsAccount("unit").Value = Request.Form("unit")
rsAccount("price").Value = Request.Form("price")
rsAccount("TotalPrices").Value = Request.Form("TotalPrices")
rsAccount("DateAndTime").Value = Now()
rsAccount("Accountype").Value = 0
rsAccount("Explain").Value = Request.Form("Explain")
rsAccount("Reclaim").Value = 0
rsAccount.update
rsAccount.Close:Set rsAccount = Nothing
End Sub
Sub ViewOrder()
Set Rs = Newasp.Execute("SELECT * FROM NC_AddMoney WHERE id="& CLng(Request("id")))
If Rs.BOF And Rs.EOF Then
Founderr = True
ErrMsg = ErrMsg + "<li>错误的系统参数！</li>"
Set Rs = Nothing
Exit Sub
Else
Response.Write "<table cellspacing=1 align=center cellpadding=3 border=0 class=tableborder>"
Response.Write " <tr>"
Response.Write " <th colspan=2>查看定单信息</th>"
Response.Write " </tr>"
Response.Write " <form name=addform method=post action=?action=add>"
Response.Write " <input type=hidden name=id value="""& Rs("id") &""">"
Response.Write " <tr>"
Response.Write " <td class=tablerow1 align=right width=""25%""><b>会员名称：</b></td>"
Response.Write " <td class=tablerow1 width=""75%""><a href=""admin_user.asp?action=edit&userid="& Rs("userid") &""" title='查看会员信息'><font color=blue>" & Rs("username") & "</font></a></td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td class=tablerow2 align=right><b>充值定单号：</b></td>"
Response.Write " <td class=tablerow2><font color=red>" & Newasp.HTMLEncodes(Rs("OrderForm")) & "</font></td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td class=tablerow1 align=right><b>充值的金额：</b></td>"
Response.Write " <td class=tablerow1><font color=red>" & FormatCurrency(Rs("addmoney"),2,-1) & "</font> 元</td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td class=tablerow2 align=right><b>充值类型：</b></td>"
Response.Write " <td class=tablerow2>" & Newasp.HTMLEncodes(Rs("title")) & "</td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td class=tablerow1 align=right><b>支付方式：</b></td>"
Response.Write " <td class=tablerow1>" & Newasp.HTMLEncodes(Rs("paytype")) & "</td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td class=tablerow2 align=right><b>提交日期：</b></td>"
Response.Write " <td class=tablerow2>" & Rs("addtime") & "</td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td class=tablerow1 align=right><b>处理状态：</b></td>"
Response.Write " <td class=tablerow1>"
If Rs("finished") > 0 Then
Response.Write "<font color=blue>已处理</font>"
Else
Response.Write "<font color=red>未处理</font>"
End If
Response.Write "</td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td class=tablerow2 align=right><b>其它说明：</b></td>"
Response.Write " <td class=tablerow2>" & Newasp.HTMLEncodes(Rs("readme")) & "</td>"
Response.Write " </tr>"
Response.Write " <tr align=center>"
Response.Write " <td class=tablerow1 colspan=2><input type=submit value="" 处理定单 "" class=Button> "
Response.Write " <input type=""button"" onclick=""javascript:history.go(-1)"" value=""返回上一页"" name=""B1"" class=Button></td>"
Response.Write " </tr>"
Response.Write " </form>"
Response.Write "</table>"
End If
Set Rs = Nothing
End Sub
%>