工程量汇总.asp

来自「ASP和ACCESS编写的工程管理系统.rar」· ASP 代码 · 共 34 行

<%value1=request.QueryString("value1")
value2=request.QueryString("value2")%>
<%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")
tempsql="select 材料,sum(工程量) as 总工程量,sum(单价*工程量) as 总价 from 工程量 where 项目名称='"&value2&"' and 所属工程='"&value1&"' group by 材料"
rs.open tempsql,conn,1,1%>
<style type="text/css">
<!--
.STYLE1 {font-family: "华文楷体"}
-->
</style>
<table width="1179" height="60" border="0" cellpadding="0" cellspacing="0" bordercolor="#000000">
  <tr>
    <td width="336" align="center" bgcolor="#FFFFCC"><span class="STYLE1">材料</span></td>
    <td width="505" align="center" bgcolor="#FFFFCC"><span class="STYLE1">工程量</span></td>
    <td width="338" align="center" bgcolor="#FFFFCC"><span class="STYLE1">总价</span></td>
  </tr>
  <%while not rs.eof%>
  <tr>
    <td align="center" bgcolor="#CCFFCC"><span class="STYLE1"><%=rs("材料")%></span></td>
    <td align="center" bgcolor="#CCFFCC"><span class="STYLE1"><%=rs("总工程量")%></span></td>
    <td align="center" bgcolor="#CCFFCC"><span class="STYLE1"><%=rs("总价")%></span></td>
  </tr>
  <%rs.movenext
  wend%>
</table>
<%rs.close
conn.close
set rs=nothing
set conn=nothing%>