📄 czpay.asp

📁 本系统旨在帮助您快速建立自己的WEB短信平台
💻 ASP
字号:
<%dbdns="../"%>
<!--#include file="../inc/conn.asp"-->
<!--#include file="cook.asp"-->
<%cha=request("cha")
if request("Submit")="删 除" then
	SQL = "delete FROM es_smspay where id in("&request("id")&")"
	msg="删除成功"
elseif request("Submit")="开通" then
	SQL = "update es_smspay set es_type=0 where id in("&request("id")&")"
	msg="开通成功"
elseif request("submit")="关闭" Then
	SQL = "update es_smspay set es_type=1 where id in("&request("id")&")"
	msg="关闭成功"
End if
	if request("submit")="删 除" or request("submit")="开通" or request("submit")="关闭" then
	Set RS=Server.CreateObject("Adodb.Recordset")
	rs.open SQL,conn,1,3
	response.write "<Script language=javascript>alert('"&msg&"');location='czpay.asp'</script>"
	rs.close
	set rs=nothing
	end if
%>

<meta http-equiv="Content-Type" content="text/html; charset=GB2312">
<script>
function CheckAll(form)  {
  for (var i=0;i<form.elements.length;i++)    {
    var e = form.elements[i];
    if (e.name != 'chkall')       e.checked = form.chkall.checked; 
   }
  }
</script>
<script>
function oa_tool1(){
window.parent.mm.rows="200,10,*";
}
</script>
<%=citycss%>
<body style="margin:5">
<table width="99%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolorlight="#cccccc" bordercolordark="#FFFFFF">
<form name="form1" method="post" action="czpay.asp">
<tr align=center bgcolor=#efefef><td height=25 align=center>用户:<input type="text" name="user">定单号:<input type="text" name="word">　　<input type="submit" name="Submit" value="搜索"></td></tr>
</form>
</table>
<table width="763" border="1" align="center" cellpadding="0" cellspacing="0" bordercolorlight="#cccccc" bordercolordark="#FFFFFF">
<form name="from1" method="post" action="czpay.asp?word=<%=request("word")%>&user=<%=request("user")%>">
<tr align=center bgcolor=#efefef>
<%if request("word")<>"" then
sql= "select *  from es_smspay where es_trade_no like'%"&request("word")&"%' order by id desc"
elseif request("user")<>"" then
sql= "select *  from es_smspay where es_user like'%"&request("user")&"%' order by id desc"
else
sql="select *  from es_smspay order by id desc"
end if
set rs=server.createobject("adodb.recordset")                     
rs.open sql,conn,1,1                     
if rs.eof and rs.bof then                     
	response.write "暂无内容"
else  
'分页的实现 
listnum=50
Rs.pagesize=listnum
page=Request("page")
if (page-Rs.pagecount) > 0 then
page=Rs.pagecount
elseif page = "" or page < 1 then
page = 1
end if
Rs.absolutepage=page
'编号的实现
j=rs.recordcount
j=j-(page-1)*listnum
i=0
nn=request("page")
if nn="" then
n=0
else
nn=nn-1
n=listnum*nn
end if%>
 <td width="28" height=22>编号</td>
 <td width="107">用户名称</td>
 <td width="40">条数</td>
 <td width="125">订单号</td>
 <td width="45">
	<p>金额</td>
 <td width="87">时间</td>
 <td width="82">支付方式</td>
 <td width="200">系统交易号</td>
 <td width="28">选择</td>
</tr>
<%do while not rs.eof and i<listnum
n=n+1
ksdate=cdate(year(rs("es_date"))&"-"&month(rs("es_date"))&"-"&day(rs("es_date")))
tian=ktdate-date()
ztian=ktdate-ksdate
page=request("page")
if page="" then page=1
%>
<tr align=center height=22>
 <td><%=n%></td>
 <td align=left width="107">&nbsp;<%=rs("es_user")%></td>
 <td align=left width="40"><font color="#FF0000"><%=rs("es_pay")%></font></td>
 <td width="125" align="left"><%=rs("es_out_trade_no")%></td>
 <td width="45" align="left"><%=rs("es_total_fee")%></td>
 <td align="left"><%=ksdate%></td>
  <%
 zhifu=rs("es_zffs")
 select case zhifu
  case 0
    zf="后台冲值"
  case 1
    zf="支付宝"
  case 2
    zf="财付通"
  case 3
    zf="网银在线"
  case 4
    zf="快钱"
end select
%>
 <td align="left" title=<%=rs("es_buyer_email")%>>&nbsp;<%=zf%></td>
 <td align="left">&nbsp;<%=rs("es_trade_no")%></td>
 <td><input type="checkbox" name="ID" value="<%=rs("id")%>" style="border:0"></td>
</tr>
<%rs.movenext 
i=i+1 
j=j-1
loop%>
<tr>
<%filename="czpay.asp?word="&request("word")&""%>
<td colspan=10 height=20 align=right bgcolor=#cccccc><%=Rs.recordcount%> 个订单&nbsp;&nbsp;<%=listnum%> 个订单/页&nbsp;&nbsp;共 <%=Rs.pagecount%> 页 
      <% if page=1 then %>
      <%else%>
      <a href=<%=filename%>><strong>|<<</strong></a>&nbsp; 
      <a href=<%=filename%>&page=<%=page-1%>><strong><<</strong></a>&nbsp; 
      <a href=<%=filename%>&page=<%=page-1%>><b>[<%=page-1%>]</b></a>&nbsp; 
      <%end if%><% if Rs.pagecount=1 then %><%else%><b>[<%=page%>]</b><%end if%>
	  <% if Rs.pagecount-page <> 0 then %>
      <a href=<%=filename%>&page=<%=page+1%>><b>[<%=page+1%>]</b></a>&nbsp; 
      <a href=<%=filename%>&page=<%=page+1%>><strong>>></strong></a>&nbsp; 
      <a href=<%=filename%>&page=<%=Rs.pagecount%>><strong>>>|</strong></a>&nbsp; 
	  <%end if%>　<input name="chkall" type="checkbox" id="chkall" value="select" onclick="CheckAll(this.form)" style="border:0">全选　<input type="submit" name="Submit" value="开通">&nbsp;&nbsp;<input type="submit" name="Submit" value="关闭">　<input type="submit" name="Submit" value="删 除">&nbsp;&nbsp;</td>
<%end if%></tr>
</form>
</table>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -