📄 payinfo.asp
字号:
<%ds="../../"%>
<!--#include file="../../conn/adminconn.asp"-->
<!--#include file="../checkvalid.asp" -->
<!--#include file="../../inc/safe.asp"-->
<!--#include file="../../inc/memberpagelist.asp" -->
<!--#include file="../../inc/replace.asp" -->
<%
If Not FRAdminLevel(85) Then
Call ErrorMsg()
End If
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="../css/style.css" rel=stylesheet type=text/css>
<title>交易记录查看</title>
</head>
<script type="text/javascript" src="../inc/hzcalendar.js"></script><body bgcolor="#FFFFFF">
<%
action=trim(request("action"))
if action="del" then
call del()
elseif action="confirm" then
call confirm()
end if
%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" class="tableBorder">
<tr>
<th height=25 class="tableHeaderText">支付记录管理</th>
</tr>
<form action="payinfo.asp" method="post">
<tr>
<td height="28" class=forumRowHighlight> <div align="left">
关键字：
<input name="keyword" type="text" id="keyword" size="10">
<select name="segment" size="1" id="segment">
<option value="member">支付账号</option>
<option value="money">金额</option>
</select>
<select name="paymode" size="1" id="paymode">
<option value="0000">支付方式</option>
<%set rs=server.CreateObject("adodb.recordset")
sql="select payflag,pay_name from Job_pay_online where chk=1"
rs.open sql,conn,1,1
do while not rs.eof%>
<option value="<%=rs("pay_name")%>"><%=rs("pay_name")%></option>
<%rs.movenext
loop
rs.close
set rs=nothing
%>
</select>
<input name="paydate" type="text" size="10" id=funddate value=""><img src="../images/calendar_bnt.gif" style="cursor:pointer;" align="absmiddle" onClick="fPopUpCalendarDlg(paydate);return false" WIDTH="34" HEIGHT="21">
<input type="submit" name="Submit" value="搜索">
</div></td>
</tr>
</form>
</table>
<br>
<table border="0" width="98%" align="center" cellpadding="2" cellspacing="1" class="tableBorder">
<tr>
<th colspan="9" valign="top" class="tableHeaderText" height="25">
<b>支付记录</b></th>
</tr>
<tr>
<td width="6%" class=bodytitle><font color="ff6600"><b class="style1">订单号</b></font></td>
<td width="10%" align="center" class=bodytitle><font color="ff6600"><b class="style1">支付账号</b></font></td>
<td width="12%" align="center" class=bodytitle><font color="ff6600"><b class="style1">账号类型</b></font></td>
<td width="17%" align="center" class=bodytitle><font color="ff6600"><b class="style1">时间</b></font></td>
<td width="16%" align="center" class=bodytitle><font color="ff6600"><b class="style1">支付ip</b></font></td>
<td width="11%" align="center" class=bodytitle><font color="ff6600"><b class="style1">支付方式</b></font></td>
<td width="11%" align="center" class=bodytitle><font color="ff6600"><b class="style1">金额</b></font></td>
<td width="11%" class=bodytitle><font color="ff6600"><b class="style1">支付结果</b></font></td>
<td width="6%" class=bodytitle><font color="ff6600"><b class="style1">删除</b></font></td>
</tr>
<%
keyword=CheckStr(request("keyword"))
segment=CheckStr(request("segment"))
paymode=request("paymode")
paydate=request("paydate")
sql="select * from job_pay_back where pay_mid<>'' "
if not isnull(keyword) And keyword<>"" then
if segment="member" then
sql=sql&" and pay_member like '%"&keyword&"%'"
elseif segment="money" then
sql=sql&" and pay_amount like '%"&keyword&"%'"
end if
end if
if paymode<>"0000" and paymode<>"" then
sql=sql&" and pay_type='"&paymode&"'"
end if
if IsDate(paydate) then
sql=sql&" and pay_date>=#"&paydate&" 0:0:1# and pay_date<=#"&paydate&" 23:59:59#"
end if
sql=sql&" order by pay_date desc"
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("currentpage")
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
ii=1
while not rs.eof and ii<=rs.pagesize
%>
<tr>
<td width="6%" height="25" class="forumRow"><span style="font-size: 12px"><%=rs("pay_oid")%></span></td>
<td width="10%" align="center" class="forumRow" ><span style="font-size: 12px"><%=rs("pay_member")%></span></td>
<td width="12%" align="center" class="forumRow"><span style="font-size: 12px">
<%
if rs("pay_class")="cmember" then
response.Write "企业帐号"
elseif rs("pay_class")="pmember" then
response.Write "个人帐号"
elseif rs("pay_class")="smember" then
response.Write "院校帐号"
elseif rs("pay_class")="tmember" then
response.Write "培训帐号"
end if
%></span></td>
<td width="17%" align="center" class="forumRow" ><span style="font-size: 12px"><%=rs("pay_date")%></span></td>
<td width="16%" align="center" class="forumRow" ><span style="font-size: 12px"><%=rs("pay_userip")%></span></td>
<td width="11%" align="center" class="forumRow" ><span style="font-size: 12px"><%=rs("pay_type")%></span></td>
<td width="11%" align="center" class="forumRow" ><span style="font-size: 12px"><%=rs("pay_amount")%></span></td>
<td width="11%" class="forumRow" ><span style="font-size: 12px">
<%
if rs("pay_isucceed")=0 then
response.Write "<a href='#' onclick=""if (confirm('你确认此帐户已支付成功了吗？')){window.location='payinfo.asp?id="&rs("id")&"&action=confirm'}"" >未支付</a>"
elseif rs("pay_isucceed")=1 then
response.Write "<font color=green>支付成功</font>"
elseif rs("pay_isucceed")=2 then
response.Write "<font color=red>支付失败</font>"
else response.Write "<strong>未知状态</strong>"
end if
%></span></td>
<td width="6%" class="forumRow" ><a href="payinfo.asp?id=<%=rs("id")%>&action=del">
<span style="font-size: 12px">删除</span></a></td>
</tr>
<%
rs.movenext
ii=ii+1
wend
end if
%>
<tr>
<td colspan="8" >
<%call pagelist("payinfo.asp","keyword="&keyword&"&segment="&segment&"&paymode="&paymode&"",rs.pagecount,Page,rs.recordcount)%>
</td>
</tr>
</table>
<%
sub del()
id=cint(trim(request("id")))
conn.execute ("delete from job_pay_back where id="&id)
end sub
sub confirm()
id=cint(trim(request("id")))
Set rss=Server.CreateObject("ADODB.RecordSet")
sqls="Select * From job_pay_back where id="&id
rss.Open sqls,conn,1,3
If Not(rss.Eof) Then
rss("pay_isucceed")=1
membertype=rss("pay_class")
membername=rss("pay_member")
GetPoint=fix(CSng(rss("pay_amount"))*point)
rss.Update
End If
rss.Close
Set rss=Nothing
Select Case membertype
Case "pmember":conn.execute ("update JOB_P_pmember set pmember_consumenums=pmember_consumenums+"&GetPoint&" where pmember_login='"&membername&"'")
Case "cmember":conn.execute ("update JOB_C_cmember set cmember_consumenums=cmember_consumenums+"&GetPoint&" where cmember_login='"&membername&"'")
Case "tmember":conn.execute ("update JOB_T_tmember set tmember_consumenums=tmember_consumenums+"&GetPoint&" where tmember_login='"&membername&"'")
Case "smember":conn.execute ("update JOB_S_smember set smember_consumenums=smember_consumenums+"&GetPoint&" where smember_login='"&membername&"'")
End Select
end sub
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -