index.asp

ASP和ACCESS编写的工程管理系统.rar

<%dim strConn
dim conn
set conn = Server.CreateObject("ADODB.Connection")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+Server.mappath("db.mdb")+";Persist Security Info=False"
set rs=server.createobject("adodb.recordset")
set rs1=server.CreateObject("adodb.recordset")
set rs2=server.CreateObject("adodb.recordset")
set rs3=server.CreateObject("adodb.recordset")
 rs.open "select * from 内部项目",conn,1,1
 rs1.open "select * from 分包项目",conn,1,1
 rs2.open "select * from 承包项目",conn,1,1
 rs3.open "select * from 其他项目",conn,1,1%>
 <%while not rs.eof
 nbcz=rs("产值")
 nbsr=rs("实际收入")
 nbzf=rs("实际支付")
 nblr=rs("利润")
 if nbcz="" then nbcz=0 end if
 if nbsr="" then nbsr=0 end if
 if nbzf="" then nbzf=0 end if
 if nblr="" then nblr=0 end if
 sumnbcz=int(nbcz)+sumnbcz
 sumnbsr=int(nbsr)+sumnbsr
 sumnbzf=int(nbzf)+sumnbzf
 sumnblr=int(nblr)+sumnblr
 rs.movenext
 wend
 rs.close
 set rs=nothing%>
  <%while not rs1.eof
 fbcz=rs1("产值")
 fbsr=rs1("实际收入")
 fbzf=rs1("实际支付")
 fblr=rs1("利润")
 if fbcz="" then fbcz=0 end if
 if fbsr="" then fbsr=0 end if
 if fbzf="" then fbzf=0 end if
 if fblr="" then fblr=0 end if
 sumfbcz=int(fbcz)+sumfbcz
 sumfbsr=int(fbsr)+sumfbsr
 sumfbzf=int(fbzf)+sumfbzf
 sumfblr=int(fblr)+sumfblr
 rs1.movenext
 wend
 rs1.close
 set rs1=nothing%>
 <%while not rs2.eof
 cbcz=rs2("产值")
 cbsr=rs2("实际收入")
 cbzf=rs2("实际支付")
 cblr=rs2("利润")
 if cbcz="" then cbcz=0 end if
 if cbsr="" then cbsr=0 end if
 if cbzf="" then cbzf=0 end if
 if cblr="" then cblr=0 end if
 sumcbcz=int(cbcz)+sumcbcz
 sumcbsr=int(cbsr)+sumcbsr
 sumcbzf=int(cbzf)+sumcbzf
 sumcblr=int(cblr)+sumcblr
 rs2.movenext
 wend
 rs2.close
 set rs2=nothing%>
 <%while not rs3.eof
 qtcz=rs3("产值")
 qtsr=rs3("实际收入")
 qtzf=rs3("实际支付")
 qtlr=rs3("利润")
 if qtcz="" then qtcz=0 end if
 if qtsr="" then qtsr=0 end if
 if qtzf="" then qtzf=0 end if
 if qtlr="" then qtlr=0 end if
 sumqtcz=int(qtcz)+sumqtcz
 sumqtsr=int(qtsr)+sumqtsr
 sumqtzf=int(qtzf)+sumqtzf
 sumqtlr=int(qtlr)+sumqtlr
 rs3.movenext
 wend
 rs3.close
 conn.close
 set rs3=nothing
 set conn=nothing%>
  <%hjcz=sumnbcz+sumcbcz+sumfbcz+sumqtcz
  hjsr=sumnbsr+sumcbsr+sumfbsr+sumqtsr
  hjzf=sumnbzf+sumcbzf+sumfbzf+sumqtzf
  hjlr=sumnblr+sumcblr+sumfblr+sumqtlr%>
<style type="text/css">
<!--
body,td,th {
	font-family: 华文楷体;
	font-weight: bold;
}
body {
	margin-left: 20px;
	margin-right: 20px;
}
.STYLE1 {font-size: x-large}
.STYLE3 {font-family: "楷体_GB2312"}
.STYLE4 {font-size: medium; font-family: "楷体_GB2312"; }
a:link {
	color: #FF0000;
}
a:visited {
	color: #FF0000;
}
-->
</style>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="50%">

<p align="left" class="STYLE1 STYLE3">工程总项目概况一览表</td><td width="50%">　　
  <div align="right"><img src="log.jpg" width="150" height="70" /></div></td></tr></table>
</p>
<hr size="10" noshade="noshade" />
<table width="100%" height="320" border="1" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="19%" align="center" valign="middle" bgcolor="#666666"><span class="STYLE4">项目分类</span></td>
    <td width="19%" align="center" valign="middle" bgcolor="#CCFF66"><span class="STYLE4">产值</span></td>
    <td width="19%" align="center" valign="middle" bgcolor="#99CCFF"><span class="STYLE4">实际收入</span></td>
    <td width="19%" align="center" valign="middle" bgcolor="#CCFFFF"><span class="STYLE4">实际支付</span></td>
    <td width="24%" align="center" valign="middle" bgcolor="#FF6600"><span class="STYLE4">利润</span></td>
  </tr>
  <tr>
    <td align="center" valign="middle" bgcolor="#666666"><span class="STYLE4"><a href="分项目.asp?value=内部项目">内部项目</a></span></td>
    <td align="center" valign="middle" bgcolor="#CCFF66"><span class="STYLE4"><%=sumnbcz%></span></td>
    <td align="center" valign="middle" bgcolor="#99CCFF"><span class="STYLE4"><%=sumnbsr%></span></td>
    <td align="center" valign="middle" bgcolor="#CCFFFF"><span class="STYLE4"><%=sumnbzf%></span></td>
    <td align="center" valign="middle" bgcolor="#FF6600"><span class="STYLE4"><%=sumnblr%></span></td>
  </tr>
  <tr>
    <td align="center" valign="middle" bgcolor="#666666"><span class="STYLE4"><a href="分项目.asp?value=分包项目">分包项目</a></span></td>
    <td align="center" valign="middle" bgcolor="#CCFF66"><span class="STYLE4"><%=sumfbcz%></span></td>
    <td align="center" valign="middle" bgcolor="#99CCFF"><span class="STYLE4"><%=sumfbsr%></span></td>
    <td align="center" valign="middle" bgcolor="#CCFFFF"><span class="STYLE4"><%=sumfbzf%></span></td>
    <td align="center" valign="middle" bgcolor="#FF6600"><span class="STYLE4"><%=sumfblr%></span></td>
  </tr>
  <tr>
    <td align="center" valign="middle" bgcolor="#666666"><span class="STYLE4"><a href="分项目.asp?value=承包项目">承包项目</a></span></td>
    <td align="center" valign="middle" bgcolor="#CCFF66"><span class="STYLE4"><%=sumcbcz%></span></td>
    <td align="center" valign="middle" bgcolor="#99CCFF"><span class="STYLE4"><%=sumcbsr%></span></td>
    <td align="center" valign="middle" bgcolor="#CCFFFF"><span class="STYLE4"><%=sumcbzf%></span></td>
    <td align="center" valign="middle" bgcolor="#FF6600"><span class="STYLE4"><%=sumcblr%></span></td>
  </tr>
  <tr>
    <td height="52" align="center" valign="middle" bgcolor="#666666"><span class="STYLE4"><a href="分项目.asp?value=其他项目">其他项目</a></span></td>
    <td align="center" valign="middle" bgcolor="#CCFF66"><span class="STYLE4"><%=sumqtcz%></span></td>
    <td align="center" valign="middle" bgcolor="#99CCFF"><span class="STYLE4"><%=sumqtsr%></span></td>
    <td align="center" valign="middle" bgcolor="#CCFFFF"><span class="STYLE4"><%=sumqtzf%></span></td>
    <td align="center" valign="middle" bgcolor="#FF6600"><span class="STYLE4"><%=sumqtlr%></span></td>
  </tr>
  <tr>

    <td height="50" align="center" valign="middle" bgcolor="#666666"><span class="STYLE4">合计</span></td>
    <td align="center" valign="middle" bgcolor="#CCFF66"><span class="STYLE4"><%=hjcz%></span></td>
    <td align="center" valign="middle" bgcolor="#99CCFF"><span class="STYLE4"><%=hjsr%></span></td>
    <td align="center" valign="middle" bgcolor="#CCFFFF"><span class="STYLE4"><%=hjzf%></span></td>
    <td align="center" valign="middle" bgcolor="#FF6600"><span class="STYLE4"><%=hjlr%></span></td>
  </tr>
</table>
<p>&nbsp;</p>
<p class="STYLE1">&nbsp;</p>