inccontent.asp

来自「ASP编写的一个公司网站的源程序」· ASP 代码 · 共 70 行

    <TABLE cellSpacing=0 cellPadding=0 width="100%" align=center border=0 ID="Table17">
         <TBODY>
          <TR> 
       <TD width="69%" height="389" valign="top"> <div align="left">
       <%'//////////////////////////显示内容////////////////////////////////%>
		<TABLE cellSpacing=10 cellPadding=4 width="99%" align=center border=0 ID="Table18">
        <TBODY>
         <TR> 
           <TD width="34%" valign=top > 
                 <TABLE class=p9a cellSpacing=0 cellPadding=2 width="100%" bgColor=#ffffff  border=0 ID="Table1">
                 <TBODY>
               <%Dim rs,StrSQL,rsinfo
               Set rsinfo = Server.CreateObject("Adodb.Recordset") 
				Set rs = Server.CreateObject("Adodb.Recordset")
				StrSQL = "Select * from DownType where state=1"
				rs.Open StrSQL,conn,1,3 
				If not rs.EOF then
				Do while not rs.EOF 
               %>  
                  <TR bgColor=#000000> 
                  <TD height=22 colSpan=2 vAlign=center class=p9a><font color=#FFFFFF><B><%=rs("type_name")%></B></FONT> </TD>
                   </TR>
					<%
					i=1
					StrSQL = "Select * from DownInfo where Type_ID="&rs("type_ID")&" and state=1"
					rsinfo.Open StrSQL,conn,1,3
					If not rsinfo.EOF then
					do while not  rsinfo.EOF 
					%>   
                   <TR bgColor=<%if (i mod 2)=0 then Response.Write "#FFFFFF" else Response.Write "#cccccc"%>> 
      <TD width="398" height=22  class=p9a><img height=13  src="/images/arrow1.gif" width=13> 
      <%If rsinfo("down_path")<>"" then%>
      <a href="<%=replace(UPLOAD_FILESPATH,"\","/")&rsinfo("down_path")%>" target=_blank><%=rsinfo("down_title")%></a>
      <%else%>
      <%=rsinfo("down_title")%>
      <%end if%>
      </TD>
      <TD width="138" height=22  class=p9a>
      <%If rsinfo("down_path")<>"" then%>
      <A href="<%=replace(UPLOAD_FILESPATH,"\","/")&rsinfo("down_path")%>" target=_blank><IMG height=16 alt=Download src="/images/<%if UCase(GetFileNameExt(rsinfo("down_path")))=Ucase("ZIP") or UCase(GetFileNameExt(rsinfo("down_path")))=Ucase("RAR") then Response.Write "zip.gif" else Response.Write "pdficon_s.gif"%>" width=20 border=0></A>
       <%else%>
      <IMG height=16 alt=Download src="/images/<%if UCase(GetFileNameExt(rsinfo("down_path")))=Ucase("ZIP") or UCase(GetFileNameExt(rsinfo("down_path")))=Ucase("RAR") then Response.Write "zip.gif" else Response.Write "pdficon_s.gif"%>" width=20 border=0>
      <%end if%>
       </TD>
                   </TR>
                   <%rsinfo.MoveNext 
                   i=i+1
                   Loop
                   End IF
                   rsinfo.Close
                   
                   rs.MoveNext 
                   Loop
                  End IF 
                   rs.Close 
                   %>
               
   </table>         
                                      
                                      </TD>
          </TR>
            </TBODY>
         </TABLE>
            <%'//////////////////////////END////////////////////////////////%>                    
             <br>
              </div></TD>
		</TR>
        </TBODY>
  </TABLE>