admin_payonline.asp

依蓝旅游网站管理系统Elan2008.SP2

Set rsPayonline = Nothing
Set PayOnlineCmd = Nothing
EL_Common.ShowScriptError()
End Sub

Sub ManagePayOnline()
On Error Resume Next
Dim PayOnlineCmd, rsPayOnline, RowCount, i, StrFields, StrCondition
Dim PageCounts, TotalRowCount, PageTotal, AllTotal
PageTotal = 0
AllTotal = 0

StrFields = "PayOnlineID,UserName,BookNumber,PayOnlineProvider,PayMoney,PayDateTime,IsConfirm,Editor"
StrCondition = "1=1"

If IsConfirm <> -1 Then
   StrCondition = StrCondition &" And IsConfirm="& IsConfirm &" "
End If

If Search_Keywords<>"" And Search_Field<>"" Then 
   If lCase(Search_Field) = "username" Then
      StrCondition = StrCondition &"And "& Search_Field &"='"& Search_Keywords &"' "
   Else
      StrCondition = StrCondition &"And "& Search_Field &" Like '%"& Search_Keywords &"%' "
   End if
End If

Call EL_Common.InitCommand(PayOnlineCmd, "EL_SP_SplitPage")
With PayOnlineCmd
  .Parameters.Append .CreateParameter("RETURN", 3, 4, 4)
  .Parameters.Append .CreateParameter("@Tables", 200, 1, 50, "EL_PayOnline")
  .Parameters.Append .CreateParameter("@PrimaryKey", 200, 1, 20, "PayOnlineID")
  .Parameters.Append .CreateParameter("@Sort", 200, 1, 200, "PayOnlineID DESC")
  .Parameters.Append .CreateParameter("@CurrentPage", 3, 1, 4, CurrentPage)
  .Parameters.Append .CreateParameter("@PageSize", 3, 1, 4, PageSizes)
  .Parameters.Append .CreateParameter("@Fields", 200, 1, 1000, StrFields)
  .Parameters.Append .CreateParameter("@Filter", 200, 1, 1000, StrCondition)
  .Parameters.Append .CreateParameter("@Group", 200, 1, 1, "")
  .Parameters.Append .CreateParameter("@TotalRowCount", 3, 2, 4)
  .Parameters.Append .CreateParameter("@PageCount", 3, 2, 4)
  Set rsPayOnline = .Execute()
End With
rsPayOnline.Close()
RowCount = PayOnlineCmd(0)
TotalRowCount = PayOnlineCmd(9)
PageCounts = PayOnlineCmd(10)

AllTotal = EL_Common.GetFieldValue("SUM(PayMoney)", "EL_PayOnline", StrCondition)

If Search_Keywords<>"" And Search_Field<>"" Then
   If lCase(Search_Field) <> "username" Then
      CurrentPath = CurrentPath &">> 记录搜索 >> "
   End If
   Select Case LCase(Search_Field)
     Case "booknumber":  CurrentPath = CurrentPath &"关联订单号："
	 Case "username":  CurrentPath = CurrentPath &" >> 会员 <span class=redtext>"& Search_Keywords &"</span> 的所有记录"
	 Case "editor":  CurrentPath = CurrentPath &"操作员："
  End Select
  If lCase(Search_Field) <> "username" Then CurrentPath = CurrentPath &"<span class=redtext>"& Search_Keywords &"</span>"
Else
   CurrentPath = CurrentPath &" >> 所有"
   Select Case IsConfirm
	  Case 1: CurrentPath = CurrentPath &"<span class='bluetext'>已确认</span>"
	  Case 0: CurrentPath = CurrentPath &"<span class='redtext'>未确认</span>"
   End Select 
   CurrentPath = CurrentPath &"记录"
End If
%>
<script language="javascript">
function CheckedAll(){
  for (var i=0;i<document.myform.elements.length;i++){
    var e = document.myform.elements[i];
    if (e.type == 'checkbox' && e.name=='CheckObject' && e.disabled == false){
       e.checked = true;
    }
  }
  getObject("myselect").innerHTML = "[<a href='javascript:CancelAll()'>取消</a>]";
}
function CancelAll(){
  for (var i=0;i<document.myform.elements.length;i++){
    var e = document.myform.elements[i];
    if (e.type == 'checkbox' && e.name=='CheckObject' && e.disabled == false){
       e.checked = false;
    }
  }
  getObject("myselect").innerHTML = "[<a href='javascript:CheckedAll()'>全选</a>]";
}
function CheckObject(){
   var frm = getObject("myform");
   for (var i=0;i<frm.elements.length;i++){
    var e = frm.elements[i];
    if (e.type == 'checkbox' && e.name=='CheckObject' && e.disabled == false && e.checked == true ){
       return true
    }
  }
  return false;
}
function Check(frm){
  SubmitOnce(frm);
  return true;
}
function doDelete(){
  var frm = getObject("myform");
  if(!CheckObject()){
     alert("请至少选定1条记录");
	 return false;
  }
  frm.action = "Admin_ShopBook.asp?Action=Delete";
  if(confirm("确认要执行选定删除吗？")){
     frm.submit();
	 return;
  }
  return false;
}
</script>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
  <tr>
    <td><%=CurrentPath%></td>
  </tr>
</table>
<form name="myform" action="Admin_PayOnline.asp" method="post">
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
  <tr>
    <td width="3%" align="center" nowrap class="top_item"><strong>选择</strong></td>
    <td width="21%" align="center" nowrap class="top_item"><strong>关联订单号</strong></td>
    <td width="9%" align="center" nowrap class="top_item"><strong>会员</strong></td>
    <td width="11%" align="center" nowrap class="top_item"><strong>支付平台</strong></td>
    <td width="11%" align="center" nowrap class="top_item"><strong>支付金额</strong></td>
    <td width="18%" align="center" nowrap class="top_item"><strong>支付时间</strong></td>
    <td width="6%" align="center" nowrap class="top_item"><strong>状态</strong></td>
    <td width="10%" align="center" nowrap class="top_item"><strong>操作员</strong></td>
    <td width="11%" align="center" nowrap class="top_item"><strong>操作</strong></td>
  </tr>
  <%
   If RowCount = 0 Then
      Response.Write "<tr><td colspan=8 class=td_50 align=center>没有任何付款记录</td></tr>"
   Else
      rsPayOnline.Open()
	  For i = 1 To RowCount
  %>
  <tr class="td_25" onMouseOver="this.className='MouseOver_25'" onMouseOut="this.className='td_25'">
    <td align="center">
	<% 
	  If rsPayOnline("IsConfirm") = False Then 
	     Response.Write "<input name=""CheckObject"" type=""checkbox"" id=""CheckObject"" value="""& rsPayOnline("PayOnlineID") &""">"
	  Else
	     Response.Write "<input name=""CheckObject"" type=""checkbox"" id=""CheckObject"" value=""0"" disabled>"
	  End If
	%>	</td>
    <td align="center"><%=EL_Common.ServerHTMLEncode(rsPayOnline("BookNumber"))%></td>
    <td align="center"><%=EL_Common.ServerHTMLEncode(rsPayOnline("UserName"))%></td>
    <td align="center"><%=EL_Common.ServerHTMLEncode(PayOnlineProvider(rsPayOnline("PayOnlineProvider")))%></td>
    <td align="right" style="padding-right:5px;"><strong class="redText"><%=EL_Common.ELFormatCurrency(rsPayOnline("PayMoney"))%></strong></td>
    <td align="center"><%=rsPayOnline("PayDateTime")%></td>
    <td align="center"><%=EL_Common.ShowBoolean(rsPayOnline("IsConfirm").value, "<b class=greetext>√</b>", "<b class=redtext>×</b>")%></td>
    <td align="center">
	<%
	 If Trim(rsPayOnline("Editor")) <> "" Then Response.Write EL_Common.ServerHTMLEncode(rsPayOnline("Editor"))
	%>	</td>
    <td align="center">
	<a href="Admin_PayOnline.asp?Action=Show&PayOnlineID=<%=rsPayOnline("PayOnlineID")%>">查看</a> | 
	<% If rsPayOnline("IsConfirm") = False Then %>
	<a href="Admin_PayOnline.asp?Action=Delete&PayOnlineID=<%=rsPayOnline("PayOnlineID")%>" onClick="return confirm('确认要彻底删除此在线支付记录吗？')">删除</a>
	<% Else %>
	<span class="GrayText">删除</span>
	<% End If%>	</td>
  </tr>  
  <%
         PageTotal = PageTotal + rsPayOnline("PayMoney")
		 If i<RowCount Then rsPayOnline.MoveNext
	  Next
	  rsPayOnline.Close()
   End If
  %>
  <tr class="td_25">
    <td colspan="4" align="right"><strong>本页金额合计：</strong></td>
    <td colspan="5" style="padding-left:5px;"><b class="greenText"><%=EL_Common.ELFormatCurrency(PageTotal)%></b></td>
  </tr>
  <tr class="td_25">
    <td colspan="4" align="right"><strong>总金额合计：</strong></td>
    <td colspan="5" style="padding-left:5px;"><b class="blueText"><%=EL_Common.ELFormatCurrency(AllTotal)%></b></td>
  </tr>
</table>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
  <tr>
    <td width="12%">[<a href="javascript:CheckedAll()">全选</a>]</td>
    <td width="88%" align="right" nowrap><%Call EL_Common.ShowPage(URLParameters, CurrentPage, PageSizes, PageCounts, TotalRowCount, "记录", "条")%></td>
  </tr>
</table>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
  <tr>
    <td height="50" align="center">
	<%
	  Dim Disabled
	  If RowCount = 0 Then Disabled = "disabled"
	%>
      <input type="button" name="Submit2" value="删除选定记录" onClick="doDelete()" <%=Disabled%>>
    </td>
  </tr>
</table>
</form>

<%
Set rsPayOnline = Nothing
Set PayOnlineCmd = Nothing
EL_Common.ShowScriptError()
End Sub
%>
</body>
</html>