bodyl2.asp

简单整站程序

<%
set rs=conn.execute("select * from nclass where lmflag0=1 order by lmorder")
do while not rs.eof
%>
   <div align="center">
   <table border="1" width=180 id="table1" style="border-collapse: collapse" bordercolor=<%=rs("lmflag4")%> bgcolor=<%=rs("lmflag2")%> background=<%=rs("lmflag3")%>>
	<tr>
		<td>
		<div align="center">
 
   <TABLE  class=left01 cellPadding=0 width=180 border=0 style="border-collapse: collapse" id="table2">
   <%if rs("lmflag6")="on" then%>
   
        <TBODY>
        <TR>
          <TD vAlign=top bgColor=#ffffff height=30 colspan="3" background=<%=rs("lmflag1")%>></TD>
        </TR>
        <TR>
          <TD vAlign=top height=10 colspan="3"></TD>
        </TR>

        <%
        set rs1=conn.execute("select * from Product where classid="&rs("nclassid") & " order by ChangeDate desc")
        if rs1.eof and rs1.bof then
        %>
        <TR>
          <TD vAlign=top height=22 ><span style="font-size: 10pt">暂无信息</span></TD>
		  <TD vAlign=top height=22></TD>
        </TR>         
        <%end if
        
        if rs("lmflag8")<>empty then '---------------
         response.write "<TR>"
         response.write "<TD vAlign=top align=center>"
         response.write "<MARQUEE id=scrollarea onmouseover=this.stop(); onmouseout=this.start(); scrollAmount=2 scrollDelay=200 direction=up width=168 height=180 >"
         response.write "<DIV>"
         for i=1 to cint(rs("lmflag8"))
            if rs1.eof then  exit for 
            if rs("lmflag7")="1" then
            %>
              <span style="font-size: 10pt"><%=rs1("content")%></span><BR>
           <%
            end if            
            if rs("lmflag7")="2" then
               ProductName=rs1("ProductName")
               if len(ProductName)>12 then ProductName=left(ProductName,10) &"..."            
            %>
              <A href ="showinfo.asp?id=<%=rs1("productid")%>&name=<%=rs("classname")%>"><span style="font-size: 10pt"><%=ProductName%></span></A><BR>
           <%
           end if
           if rs("lmflag7")="3" then
               ProductName=rs1("ProductName")
               if len(ProductName)>12 then ProductName=left(ProductName,10) &"..."            
            %>

             <p align="center"><A  href ="showinfo.asp?id=<%=rs1("productid")%>&name=<%=rs("classname")%>"><img align=middle  border="0" src=<%="UpLoadFile/" &rs1("smallPic")%> width="176"></A>
             <A><span style="font-size: 10pt"><%=ProductName%></A>
           <%end if
         rs1.movenext
        next
        response.write "</DIV>"
        response.write "</MARQUEE>" 
        response.write "</TD>"
        response.write "</TR>"
        end if  '-----------------------
        Rs1Close()       
        %>
        <TR>
         <TD>
            <p align="right"><A  href ="showxm.asp?name=<%=rs("classname")%>">
			<span style="font-size: 10pt">
			<img border="0" src=<%=rs("lmflag5")%>></span></A></P>
	     </TD>		
	  	 </TR>
	  	 </TBODY>
       <%else%>
        <TBODY>
        <TR>
          <TD vAlign=top bgColor=#ffffff height=30 colspan="3" background=<%=rs("lmflag1")%>></TD>
        </TR>
        <TR>
          <TD vAlign=top height=10 colspan="3"></TD>
        </TR>

        <%
        set rs1=conn.execute("select * from Product where classid="&rs("nclassid") & " order by ChangeDate desc")
        if rs1.eof and rs1.bof then
        %>
        <TR>
          <TD vAlign=top height=22></TD>
          <TD vAlign=top height=22 colspan="2"><span style="font-size: 10pt">
			暂无信息</span></TD>
        </TR>         
        <%end if
        
         if rs("lmflag8")<>empty then '---------------
         for i=1 to cint(rs("lmflag8"))
            if rs("lmflag7")="1" then
            %>
           <TR>
              <TD vAlign=top height=22 width=5></TD>
              <TD vAlign=top height=22 colspan="2"><span style="font-size: 10pt"><%=rs1("content")%></span></TD>
              
           </TR>
           <%
            end if            
            if rs("lmflag7")="2" then
               ProductName=rs1("ProductName")
               if len(ProductName)>12 then ProductName=left(ProductName,10) &"..."            
            %>
           <TR>
              <TD vAlign=top height=22 width=5></TD>
              <TD vAlign=top height=22 colspan="2"><A href ="showinfo.asp?id=<%=rs1("productid")%>&name=<%=rs("classname")%>"><span style="font-size: 10pt"><%=ProductName%></span></a></TD>
              
           </TR>
           <%
           end if
           if rs("lmflag7")="3" then
               ProductName=rs1("ProductName")
               if len(ProductName)>12 then ProductName=left(ProductName,10) &"..."            
            %>
           <TR>
              <TD vAlign=top height=22 width=5></TD>
              <TD vAlign=top height=22 colspan="2"><A  href ="showinfo.asp?id=<%=rs1("productid")%>&name=<%=rs("classname")%>"><img align=middle  border="0" src=<%="UpLoadFile/" &rs1("smallPic")%> width="176"></a></TD>
              
              <tr>
              <TD vAlign=top height=18 width=5></TD>
              <TD vAlign=top height=18 colspan="2" align=center ><A><span style="font-size: 10pt"><%=ProductName%></A></span></TD>
              
              </tr>
           </TR>
           <%end if
         rs1.movenext
         if rs1.eof then  exit for       
        next
        end if  '-----------------------
        Rs1Close()       
        %>
        <TR>
          <TD vAlign=top height=22 width=5></TD>
          <TD vAlign=top height=17 colspan="2">
            <p align="right"><A  href ="showxm.asp?name=<%=rs("classname")%>">
			<span style="font-size: 10pt">
			<img border="0" src=<%=rs("lmflag5")%> width="38" height="13"></span></A>
	  	 </TD>
	  	 <TD vAlign=top height=22 width=2></TD>
	  	 </TR>
	  	 </TBODY>       	  	 
	   <%end if%>	 
	</TABLE>
		</div>
		</td>
	</tr>
</table>
</div>
<%
   rs.movenext
loop
RsClose()
%>