工程量详细.asp

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

<%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")
rs.open "select Distinct 子工程名称 from 工程量 where 项目名称='"&value2&"' and 所属工程='"&value1&"'",conn,1,1%>
<style type="text/css">
<!--
.STYLE1 {font-family: "华文楷体"}
a:link {
	text-decoration: none;
}
a:visited {
	text-decoration: none;
}
a:hover {
	text-decoration: none;
}
a:active {
	text-decoration: none;
}
-->
</style><table width="100%" height="100%" border="1" cellpadding="10" cellspacing="0">
  <tr>
    <td width="13%" valign="top"><p class="STYLE1"><a href="详细总表.asp?value1=<%=value1%>&value2=<%=value2%>" target="detailshow">详细总表</a></p>
    <p class="STYLE1">子工程名称</p>
    <table width="100%" border="0" cellspacing="0" cellpadding="0">
	<%while not rs.eof%>
      <tr>
        <td align="left"><span class="STYLE1"> 　　<a href="detailshow.asp?value1=<%=value1%>&value2=<%=value2%>&detailname=<%=rs("子工程名称")%>" target="detailshow">|<%=rs("子工程名称")%></a></span></td>
      </tr>
	  <%rs.movenext
  wend%>
    </table>  
	<%rs.close
conn.close
set rs=nothing
set conn=nothing%>
    <p class="STYLE1">&nbsp;</p></td>
    <td width="87%"><iframe src="详细总表.asp?value1=<%=value1%>&value2=<%=value2%>" name="detailshow" height="100%" width="100%" frameborder="0" vspace="0">
</iframe></td>
  </tr>
</table>