📄 adminalipay.asp

📁 一个不错的个人商务网站的源码
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%dim nowplace
nowplace="pay"
dim dbpath
dbpath="../"
%>
<!--#include file="chk.asp"-->
<!--#include file="../db_conn.asp" -->
<!--#include file="../comm/my_request.asp" -->
<!--#include file="../comm/pages.asp" -->
<html>

<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href=AdminStyle.css rel=stylesheet type=text/css>
<title>支付宝交易查看</title>
</head>

<body bgcolor="#FFFFFF">
<%
action=trim(request("action"))
if action="del" then
call del()
end if
%>
<table border="0" width="100%" id="table1" cellspacing="1" cellpadding="4" bordercolor="#FFFFFF" style="border: 1px solid #183789; padding-left: 4px; padding-right: 4px; padding-top: 1px; padding-bottom: 1px">
	<tr>
		<td colspan="5" bgcolor="#F7F7F7" background="Image/admin_bg_1.gif" height="25">
		<font color="#FFFFFF"><b>支付宝交易记录</b></font></td>
	</tr>
	<tr>
		<td width="64"><span style="font-size: 12px">ID</span></td>
		<td width="179"><span style="font-size: 12px">订单号</span></td>
		<td><span style="font-size: 12px">交易状态追踪</span></td>
		<td width="188"><span style="font-size: 12px">时间</span></td>
		<td width="63"><span style="font-size: 12px">删除</span></td>
	</tr>
	<%sql="select * from pay_back"
	set rs=server.CreateObject("adodb.recordset")
	rs.open sql,conn,1,1
	if (rs.eof and rs.bof) then
	response.write "<tr>"
    response.write "<td class=12px width=760 colspan=11><font color=#FF0000>暂时还没有任何数据</font></td>"
    response.write "</tr>"
    else
    rs.PageSize =20 '每页记录条数
			iCount=rs.RecordCount '记录总数
			iPageSize=rs.PageSize
    		maxpage=rs.PageCount 
    		page=request("page")
    
    if Not IsNumeric(page) or page="" then
        page=1
    else
        page=cint(page)
    end if
    
    if page<1 then
        page=1
    elseif  page>maxpage then
        page=maxpage
    end if
    
    rs.AbsolutePage=Page

	if page=maxpage then
		x=iCount-(maxpage-1)*iPageSize
	else
		x=iPageSize
	end if

end if
						  ii=1
						  while not rs.eof and ii<=rs.pagesize
%>
	<tr>
		<td width="64"><span style="font-size: 12px"><%=rs("p_id")%></span></td>
		<td width="179"><span style="font-size: 12px"><%=rs("order_no")%></span></td>
		<td><span style="font-size: 12px"><%=rs("pay_value")%></span></td>
		<td width="188"><span style="font-size: 12px"><%=rs("gettime")%></span></td>
		<td width="63"><a href="Adminalipay.asp?id=<%=rs("p_id")%>&action=del">
		<span style="font-size: 12px">删除</span></a></td>
	</tr>
<%
rs.movenext
ii=ii+1
wend
%>
	<tr>
		<td colspan="5">
		<p align="right"><span style="font-size: 12px"><%call PageControl(iCount,maxpage,page,"border=0 align=right","<p align=right>")%></span></td>
	</tr>
</table>
	<%
sub del()
id=cint(trim(request("id")))
conn.execute ("delete from pay_back where p_id="&id)
end sub

rs.close
set rs=nothing%>
</body>

</html>
⌨️ 快捷键说明

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