?? exporthyweekallmoneymanok.asp
字號:
<%response.ContentType ="application/vnd.ms-excel"%>
<% Response.AddHeader "Content-Disposition", "attachment; filename=獎金發放列表"%>
<!-- #include file="include/adovbs.inc" -->
<!-- #include file="include/dataconn.asp" -->
<!-- #include file="include/checksession.asp" -->
<%
Response.Buffer =false
Response.Expires=-1
'thistoday =year(now)&"-"&month(now)&"-"&day(now)
ComputeWeek=trim(Request("ComputeWeek"))
set HyRs=server.CreateObject("adodb.recordset")
sql = "SELECT sum(allmoney) as MyAllMoney FROM HyMoneyLog where ComputeWeek=" & ComputeWeek
HyRs.Open sql,conn
MyAllMoney=0
if HyRs.recordcount>0 then
if len(HyRs("MyAllMoney"))>0 then
MyAllMoney=HyRs("MyAllMoney")
end if
end if
set HyRs=nothing
set HyRs=server.CreateObject("adodb.recordset")
sql = "SELECT HyMoneyLog.*,Hy.HyName,Hy.HyOpenBankNo,Hy.HyOpenBank,HyClub.HyID,HyClub.HyBuyCount FROM HyClub,HyMoneyLog,Hy where HyMoneyLog.HyNumber = HyClub.Hynumber and Hy.ID =HyClub.HyID"
sql =sql & " and HyMoneyLog.ComputeWeek=" & ComputeWeek &" and HyMoneyLog.AllMoney>0"
'Response.Write sql
'Response.End
HyRs.Open sql,conn
j=HyRs.RecordCount
%>
<html>
<head>
<meta NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<META http-equiv=Content-Type content="text/html; charset=gb2312">
</head>
<body leftmargin="10" topmargin="10" marginwidth="0" marginheight="0">
<%
if j>0 then
i=1
%>
<table border="1" cellpadding="0" cellspacing="0" width="98%" bordercolordark="#e0f4ff" bordercolorlight="#162d6b">
<tr bgcolor="#FFFFCC" class="td3">
<td width="4%"> <div align="center"><font color="#000000">序號</font></div></td>
<td width="6%"> <div align="center"><font color="#000000">姓名</font></div></td>
<td width="8%"> <div align="center"><font color="#000000">卡號</font></div></td>
<td width="8%"> <div align="center"><font color="#000000">開戶銀行</font></div></td>
<td width="10%"> <div align="center"><font color="#000000">銀行卡號</font></div></td>
<td width="8%"> <div align="center"><font color="#000000">封頂獎金</font></div></td>
<td width="8%"> <div align="center"><font color="#000000">本次獎金</font></div></td>
<td width="6%"> <div align="center"><font color="#000000">時間</font></div></td>
</tr>
<%
while (not HyRs.eof)
%>
<tr height="25">
<td> <div align="center">
<% =i%>
</div></td>
<td><div align="center"><%=HyRs("HyName")%> </div></td>
<td><div align="center"><%=HyRs("HyNumber")%> </div></td>
<td> <div align="center">
<% =HyRs("HyOpenBank")%>
</div></td>
<td> <div align="center">
<% =HyRs("HyOpenBankNo")%>
</div></td>
<td><div align="center">
<% =HyRs("HyBuyCount")*session("TopMoney")%>
</div></td>
<td> <div align="center">
<% =HyRs("AllMoney")%>
</div></td>
<td> <div align="center">
<% =HyRs("ComputeTime")%>
</div></td>
<%
HyRs.movenext
i=i+1
x=x+1
wend %>
</tr>
<tr height="25">
<td colspan="8"><div align="right">獎金合計:<%=MyAllMoney%> </div></td>
</tr>
<%
else
Response.Write "當前期數沒有拿獎會員或者獎金還沒有計算!<a href='javascript:history.back()'>返回</a>"
end if%>
</table>
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -