incleftmenu.asp

ASP编写的一个公司网站的源程序

 <TABLE width=760 border=0 align="center" cellPadding=0 cellSpacing=0 ID="Table1">
        <TBODY>
          <TR> 
            <TD 
 vAlign=top 
    background=/images/bg4.gif bgcolor="#FFFFFF">
    
     <TABLE  cellSpacing=0 cellPadding=0 width="100%" border=0 ID="Table2">
                <TBODY>
                  <TR> 
                    <TD vAlign=top width="25%"> 
              
       <%Dim rs,StrSQL
		Set rs = Server.CreateObject("Adodb.Recordset")
		Dim rsinfo
		Set rsinfo = Server.CreateObject("Adodb.Recordset") 
		StrSQL = "Select * From ProType where State=1 order by orderline" 
       rs.Open StrSQL,conn,1,3
       If not rs.EOF Then
       Do while not rs.EOF 
       %>             
              
              <TABLE class=b style="LINE-HEIGHT: 145%" cellSpacing=0 cellPadding=5 
            width=100% bgColor=#999999 border=0 ID="Table3">
                        <TBODY>
                          <TR 
              onmouseover="this.style.backgroundColor='#eeeeee';return true;" 
              onmouseout="this.style.backgroundColor='#F9F9F9';" vAlign=top 
              align=left bgColor=#f9f9f9> 
                            <TD width=200 height=2 bgcolor="#5386A4"> <DIV align=center><font color="#FFFFFF"><%=rs("type_name")%></font><br>
                              </DIV></TD>
                          </TR>
                        </TBODY>
                 </TABLE>
                      
                      
                      
                      <TABLE height=0 cellSpacing=0 cellPadding=0 width="100%" border=0 ID="Table4">
                        <TBODY>
                          <TR> 
                            <TD 
                background=/images/point.gif><IMG 
                  height=1 
                  src="/images/point.gif" 
                  width=2></TD>
                          </TR>
                        </TBODY>
                      </TABLE>
                      <TABLE height=0 cellSpacing=0 cellPadding=0 width="100%" border=0 ID="Table5">
                        <TBODY>
                          <TR> 
                            <TD 
                background=/images/point.gif><IMG 
                  height=1 
                  src="/images/point.gif" 
                  width=2></TD>
                          </TR>
                        </TBODY>
                      </TABLE>
                      <TABLE height=0 cellSpacing=0 cellPadding=0 width="100%" border=0 ID="Table6">
                        <TBODY>
                          <TR> 
                            <TD 
                background=/images/point.gif><IMG 
                  height=1 
                  src="/images/point.gif" 
                  width=2></TD>
                          </TR>
                        </TBODY>
                      </TABLE>
          <TABLE align=center bgColor=#c0c0c0 border=0 cellPadding=2 
            cellSpacing=1 class=font width="99%" ID="Table7">
                        <TBODY>
              <%
              StrSQL = "Select * From ProInfo where Type_ID="&rs("Type_ID")&" order by orderline"
              rsinfo.Open StrSQL,conn,1,3
              If not rsinfo.EOF then
				Do While not rsinfo.EOF
				 %>
				                        <TR> 
                            <TD 
                width="200" height="23" align=middle vAlign=center bgColor=#FFFFFF> 
                              <a href="default.asp?Pro_ID=<%=rsinfo("Pro_ID")%>"><%=rsinfo("pro_Name")%></a></TD>
                          </TR>
				 <%
				rsinfo.MoveNext 
			
				Loop
				
              End IF
              	rsinfo.Close 
           %>
                         <CENTER>
                        </CENTER>
                        <CENTER>
                        </CENTER>
                        <CENTER>
                        </CENTER>
                        <CENTER>
                        </CENTER>
                      </TABLE> 
           <%   rs.MoveNext
        
              Loop
              rs.close
              End IF
              Set rsinfo = Nothing
              Set rs = Nothing
              %>