detailshow.asp

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

<%value1=request.QueryString("value1")
value2=request.QueryString("value2")
detailname=request.QueryString("detailname")%>
<%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")
rs.open "select * from 工程量 where 项目名称='"&value2&"' and 所属工程='"&value1&"' and 子工程名称='"&detailname&"'",conn,1,1%>
<style type="text/css">
<!--
.STYLE1 {font-family: "华文楷体"}
-->
</style>

<table width="100%" height="60" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="145" align="left" bgcolor="#FFFFCC"><span class="STYLE1">子工程名称</span></td>
    <td width="143" align="left" bgcolor="#FFFFCC"><span class="STYLE1">桩号及部位</span></td>
    <td width="153" align="left" bgcolor="#FFFFCC"><span class="STYLE1">材料</span></td>
    <td width="113" align="left" bgcolor="#FFFFCC"><span class="STYLE1">单价</span></td>
    <td width="126" align="left" bgcolor="#FFFFCC"><span class="STYLE1">工程量</span></td>
    <td width="128" align="left" bgcolor="#FFFFCC"><span class="STYLE1">日期</span></td>
  </tr>
<%while not rs.eof%>
  <tr>
    <td align="left" bgcolor="#CCFFCC"><span class="STYLE1"><%=rs("子工程名称")%></span></td>
    <td align="left" bgcolor="#CCFFCC"><span class="STYLE1"><%=rs("桩号及部位")%></span></td>
    <td align="left" bgcolor="#CCFFCC"><span class="STYLE1"><%=rs("材料")%></span></td>
    <td align="left" bgcolor="#CCFFCC"><span class="STYLE1"><%=rs("单价")%></span></td>
    <td align="left" bgcolor="#CCFFCC"><span class="STYLE1"><%=rs("工程量")%></span></td>
    <td align="left" bgcolor="#CCFFCC"><span class="STYLE1"><%=rs("日期")%></span></td>
  </tr>
  <%rs.movenext
  wend%>
</table>
<%rs.close
conn.close
set rs=nothing
set conn=nothing%>