?? reports_jd.asp
字號(hào):
<%@language=vbscript codepage=936 %>
<%
Option Explicit
%>
<!--#include file="sysconfig.asp"-->
<!--#include file="Inc/Function_1.asp"-->
<%
dim id,sql,sql_jh,sql_detail,sql_detail1,sqlguikou,rs,rsguikou,rs_jh,rs_detail,rs_detail1,guikou_id,totalput,sum_y,sum_j,sum_r
dim count_sum_y,count_sum_j,count_sum_r
dim r1,r2,r3,r4,r5,r6,r7,r8,r9,r10,r11,r12,updatetime_r
guikou_id=Trim(request("guikou_id"))
totalput=0
dim strFileName
strFileName="reports_jd.asp?guikou_id=" & guikou_id
sql="select * from danwei where cost_delete=0"
if guikou_id<>"" then
sql=sql & " and guikou_id='" & guikou_id & "'"
end if
sql=sql & " order by id "
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
totalPut=rs.recordcount
%>
<!-- #include file="Inc/Head.asp" -->
<table cellpadding="2" cellspacing="1" border="0" align="center" class="a2">
<tr>
<td width="1000" height="25" align="center" class="a1"><strong>報(bào) 表 管 理 </strong></td>
</tr>
<tr class="a4">
<td align="center">
<table width="100%" border="0" align="center" cellpadding="5" cellspacing="2" class="border">
<tr class="title">
<td height="25" bgcolor="#C0C0C0" class="t1"><a href="reports_jd.asp">所有單位</a>
|
<%
'分類選擇
sqlguikou="select * from guikou where cost_delete=0"
Set rsguikou= Server.CreateObject("ADODB.Recordset")
rsguikou.open sqlguikou,conn,1,1
if rsguikou.eof then
response.Write("還沒有任何歸口，請(qǐng)首先添加歸口。")
end if
do while not rsguikou.eof
if rsguikou("id")=guikou_id then
response.Write("<a href='reports_jd.asp?guikou_id=" & rsguikou("id") & "'><font color='#FF0000'>" & rsguikou("guikou_name") & "</font></a> | ")
else
response.Write("<a href='reports_jd.asp?guikou_id=" & rsguikou("id") & "'>" & rsguikou("guikou_name") & "</a> | ")
end if
rsguikou.movenext
loop
rsguikou.close
set rsguikou=nothing
%>
</td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="2">
<tr>
<td height="25" bgcolor="#CCCCCC" class="t1"><a href="reports_jd.asp"> 所有單位</a>
>>
<%
if guikou_id<>"" then
set rsguikou=conn.execute("select * from guikou where cost_delete=0 and id="&guikou_id&"")
response.write "<a href='reports_jd.asp?guikou_id=" & guikou_id & "'>" &rsguikou("guikou_name")& "</a> "
else
response.write "所有單位"
end if
%>
</td>
<td width="150" bgcolor="#CCCCCC" class="t1">
<%
if rs.eof and rs.bof then
response.write "共有 0 個(gè)單位</td></tr></table>"
else
response.Write "共找到 " & totalPut & " 個(gè)單位"
%>
</td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="border">
<tr bgcolor="#C0C0C0" class="title">
<td height="25" colspan="5" align="center" bgcolor="#C0C0C0" class="t1" ><strong>荊州市政府采購(gòu)預(yù)算分月執(zhí)行進(jìn)度表
<input type="hidden" name="out_word3" onclick="vbscript:buildDoc" value="導(dǎo)出到word" class="notPrint">
<input type="hidden" name="out_excel2" onclick="AutomateExcel();" value="導(dǎo)出到excel" class="notPrint">
<input name="out_excel12" type="button" class="notPrint" id="out_excel12" onclick="javascript:AutomateExcel() " value="打印到excel">
<input type="button" name="out_word22" onclick="vbscript:buildDoc" value="打印到word" class="notPrint">
</strong></td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="2" class="border" id="reports" >
<tr bgcolor="#C0C0C0" class="t1">
<td width="10%" height="24" align="center" bgcolor="#C0C0C0" ><strong>單位名稱</strong></td>
<td width="10%" align="center" bgcolor="#C0C0C0" ><strong>年初采購(gòu)<br>
預(yù)算</strong></td>
<td width="10%" align="center" bgcolor="#C0C0C0" ><strong>申報(bào)采購(gòu)<br>
計(jì)劃金額</strong></td>
<td width="5%" align="center" bgcolor="#C0C0C0" ><strong>元月</strong></td>
<td width="5%" align="center" bgcolor="#C0C0C0" ><strong>二月</strong></td>
<td width="5%" align="center" bgcolor="#C0C0C0" ><strong>三月</strong></td>
<td width="5%" align="center" ><strong>四月</strong></td>
<td width="5%" align="center" ><strong>五月</strong></td>
<td width="5%" align="center" ><strong>六月</strong></td>
<td width="5%" align="center" ><strong>七月</strong></td>
<td width="5%" align="center" ><strong>八月</strong></td>
<td width="5%" align="center" ><strong>九月</strong></td>
<td width="5%" align="center" ><strong>十月</strong></td>
<td width="5%" align="center" ><strong>十一月</strong></td>
<td width="5%" align="center" ><strong>十二月</strong></td>
<td width="10%" align="center" ><strong>政府采購(gòu)<br>
預(yù)算余額</strong></td>
</tr>
<%
count_sum_y=0
count_sum_j=0
count_sum_r=0
do while not rs.eof%>
<% sum_y=0
id=rs("id")
sql_jh="select * from cost_jh where cost_delete=0 and danwei_id="&id
Set rs_jh= Server.CreateObject("ADODB.Recordset")
rs_jh.open sql_jh,conn,1,1
if not(rs_jh.bof and rs_jh.eof) then
do while not rs_jh.eof
sum_y=sum_y+rs_jh("cost_number")
rs_jh.movenext
loop
else
end if
rs_jh.close
set rs_jh=nothing
r1=0
r2=0
r3=0
r4=0
r5=0
r6=0
r7=0
r8=0
r9=0
r10=0
r11=0
r12=0
sum_j=0
sum_r=0
sql_detail="select * from cost_detail where cost_delete=0 and danwei_id="&id
Set rs_detail= Server.CreateObject("ADODB.Recordset")
rs_detail.open sql_detail,conn,1,1
if not(rs_detail.bof and rs_detail.eof) then
do while not rs_detail.eof
updatetime_r=rs_detail("updatetime_r")
sum_j=sum_j+rs_detail("cost_number_j")
sum_r=sum_r+rs_detail("cost_number_r")
if month(updatetime_r)=1 then
r1=r1+rs_detail("cost_number_r")
else
if month(updatetime_r)=2 then
r2=r2+rs_detail("cost_number_r")
else
if month(updatetime_r)=3 then
r3=r3+rs_detail("cost_number_r")
else
if month(updatetime_r)=4 then
r4=r4+rs_detail("cost_number_r")
else
if month(updatetime_r)=5 then
r5=r5+rs_detail("cost_number_r")
else
if month(updatetime_r)=6 then
r6=r6+rs_detail("cost_number_r")
else
if month(updatetime_r)=7 then
r7=r7+rs_detail("cost_number_r")
else
if month(updatetime_r)=8 then
r8=r8+rs_detail("cost_number_r")
else
if month(updatetime_r)=9 then
r9=r9+rs_detail("cost_number_r")
else
if month(updatetime_r)=10 then
r10=r10+rs_detail("cost_number_r")
else
if month(updatetime_r)=11 then
r11=r11+rs_detail("cost_number_r")
else
if month(updatetime_r)=12 then
r12=r12+rs_detail("cost_number_r")
else
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
rs_detail.movenext
loop
else
end if
rs_detail.close
set rs_detail=nothing
%>
<tr class="t1">
<td width="10%" height="22" align="center" bgcolor="#E3E3E3"><%=rs("danwei_name")%> </td>
<td width="10%" align="center" bgcolor="#E3E3E3"> <%=(sum_y/10000)%>萬</td>
<td width="10%" align="center" bgcolor="#E3E3E3"> <%=(sum_j/10000)%>萬 </td>
<td width="5%" align="center" bgcolor="#E3E3E3"><%=r1/10000%></td>
<td width="5%" align="center" bgcolor="#E3E3E3"><%=r2/10000%></td>
<td width="5%" align="center" bgcolor="#E3E3E3"><%=r3/10000%><%'select * from cost_detail where updatetime_r>='2008-3-1' and updatetime_r<='2008-3-31' %></td>
<td width="5%" align="center" bgcolor="#E3E3E3"><%=r4/10000%></td>
<td width="5%" align="center" bgcolor="#E3E3E3"><%=r5/10000%></td>
<td width="5%" align="center" bgcolor="#E3E3E3"><%=r6/10000%></td>
<td width="5%" align="center" bgcolor="#E3E3E3"><%=r7/10000%></td>
<td width="5%" align="center" bgcolor="#E3E3E3"><%=r8/10000%></td>
<td width="5%" align="center" bgcolor="#E3E3E3"><%=r9/10000%></td>
<td width="5%" align="center" bgcolor="#E3E3E3"><%=r10/10000%></td>
<td width="5%" align="center" bgcolor="#E3E3E3"><%=r11/10000%></td>
<td width="5%" align="center" bgcolor="#E3E3E3"><%=r12/10000%></td>
<td width="10%" align="center" bgcolor="#E3E3E3"><%=(sum_y-sum_j)/10000%>萬</td>
</tr>
<%
count_sum_y=count_sum_y+sum_y
count_sum_j=count_sum_j+sum_j
count_sum_r=count_sum_r+sum_r
rs.movenext
loop
%>
<tr bgcolor="#E3E3E3" class="t1">
<td width="10%">
<div align="center"><strong>合計(jì)</strong></div></td>
<td width="10%">
<div align="center"><strong><%=count_sum_y/10000%>萬</strong></div></td>
<td width="10%" bgcolor="#E3E3E3"> <div align="center"><strong><%=count_sum_j/10000%>萬</strong></div></td>
<td width="5%"> </td>
<td width="5%"> </td>
<td width="5%"> </td>
<td width="5%">
<div align="center"></div></td>
<td width="5%"> </td>
<td width="5%"> </td>
<td width="5%"> </td>
<td width="5%"> </td>
<td width="5%"> </td>
<td width="5%"> </td>
<td width="5%"> </td>
<td width="5%"> </td>
<td width="10%"><div align="center"><strong><%=(count_sum_y-count_sum_j)/10000%>萬</strong></div></td>
</tr>
<tr bgcolor="#E3E3E3" class="t1" >
<td width="10%" height="25" align="center" >內(nèi)容： </td>
<td width="10%" height="25" align="center" >
<%if guikou_id<>"" then
set rsguikou=conn.execute("select * from guikou where cost_delete=0 and id="&guikou_id&"")
response.write rsguikou("guikou_name")
else
response.write "所有單位"
end if
%>
</td>
<td width="10%" height="25" align="center" >制表人：<%=Session("username")%></td>
<td width="5%" align="center" > </td>
<td width="5%" align="center" > </td>
<td width="5%" height="25" align="center" > </td>
<td width="5%" height="25" align="center" > </td>
<td width="5%" align="center" > </td>
<td width="5%" align="center" > </td>
<td width="5%" align="center" > </td>
<td width="5%" align="center" > </td>
<td width="5%" align="center" > </td>
<td width="5%" align="center" > </td>
<td width="5%" align="center" > </td>
<td width="5%" align="center" > </td>
<td width="10%" align="center" >時(shí)間<%=month(now())%>月<%=day(now())%>日</td>
</tr>
</table>
<%
end if
%>
<br>
<BR>
</td>
</tr>
</table>
<!--#include file="print.asp"-->
<BR>
<%
call htmlend
rs.close
set rs=nothing
call CloseConn()
%>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -