index.asp

本系统采用ASP作为开发环境

                          </tr> 
                        </table></td> 
                    </tr> 
                  </table></td> 
              </tr> 
              <tr> 
                <td height="203"> <table width="284" height="203" border="0" cellpadding="0" cellspacing="0"> 
                    <tr> 
                      <td height="20">&nbsp;</td> 
                    </tr> 
                    <tr> 
                      <td valign="top"> <table width="282" border="0" cellpadding="0" cellspacing="0"> 
                          <!-- #include File="Conn/conn.asp" --> 
                          <% 
								sql="Select top 6 * from tb_News where Style='法治道德' and IssueDate=#"&times&"#"
								rs.open sql,conn
								While Not rs.Eof 
												%> 
                          <tr> 
                            <td width="89" height="20"><div align="center">【<%=rs("Type")%>】</div></td> 
                            <td width="200"> <a href="#" onclick="window.open('Show.asp?id=<%=rs("ID")%>','详细内容查看','width=630,height=400,scrollbars=yes,toolbar=no,location=no,status=no,menubar=no')"> 
                              <%If len(cstr(rs("Title")))>12 Then Response.Write(left(cstr(rs("Title")),10)&"...") Else Response.Write(rs("Title")) End If %> 
                              </A> </td> 
                          </tr> 
                          <% 
									rs.movenext
								Wend
								Set rs=Nothing
								conn.Close
								Set conn=Nothing
							%> 
                        </table></td> 
                    </tr> 
                    <tr> 
                      <td height="20">&nbsp;</td> 
                    </tr> 
                  </table></td> 
              </tr> 
            </table> 
          </div></td> 
        <td height="248"><div align="center"> 
            <table width="284" height="233" border="0" cellpadding="0" cellspacing="0" background="Image/BG1.gIf"> 
              <tr> 
                <td height="30" valign="top"> <table width="284" border="0" cellspacing="0" cellpadding="0"> 
                    <tr> 
                      <td height="20" align="center" valign="bottom" class="style9"> <table width="267" height="20" border="0" cellpadding="0" cellspacing="0"> 
                          <tr> 
                            <td width="45">&nbsp;</td> 
                            <td width="202" valign="bottom" class="style9"> 社 会 现 象</td> 
                            <td width="20">&nbsp;</td> 
                          </tr> 
                        </table></td> 
                    </tr> 
                  </table></td> 
              </tr> 
              <tr> 
                <td height="203"> <table width="284" height="203" border="0" cellpadding="0" cellspacing="0"> 
                    <tr> 
                      <td height="20">&nbsp;</td> 
                    </tr> 
                    <tr> 
                      <td valign="top"> <table width="282" border="0" cellpadding="0" cellspacing="0"> 
                          <!-- #include File="Conn/conn.asp" --> 
                          <% 
								sql="Select top 6 * from tb_News where Style='社会现象' and IssueDate=#"&times&"#"
								rs.open sql,conn
								While Not rs.Eof 
							%> 
                          <tr> 
                            <td width="89" height="20"><div align="center">【<%=rs("Type")%>】</div></td> 
                            <td width="200"> <a href="#" onclick="window.open('Show.asp?id=<%=rs("ID")%>','详细内容查看','width=630,height=400,scrollbars=yes,toolbar=no,location=no,status=no,menubar=no')"> 
                              <%If len(cstr(rs("Title")))>12 Then Response.Write(left(cstr(rs("Title")),10)&"...") Else Response.Write(rs("Title")) End If %> 
                              </A> </td> 
                          </tr> 
                          <% 
									rs.movenext
								Wend
								Set rs=Nothing
								conn.Close
								Set conn=Nothing
							%> 
                        </table></td> 
                    </tr> 
                    <tr> 
                      <td height="20">&nbsp;</td> 
                    </tr> 
                  </table></td> 
              </tr> 
            </table> 
          </div></td> 
      </tr> 
       <tr> 
        <td height="233"><div align="center"> 
            <table width="284" height="233" border="0" cellpadding="0" cellspacing="0" background="Image/BG1.gIf"> 
              <tr> 
                <td height="30" valign="top"> <table width="284" border="0" cellspacing="0" cellpadding="0"> 
                    <tr> 
                      <td height="20" align="center" valign="bottom" class="style9"> <table width="267" height="20" border="0" cellpadding="0" cellspacing="0"> 
                          <tr> 
                            <td width="45">&nbsp;</td> 
                            <td width="202" valign="bottom" class="style9"> 体 育 世 界</td> 
                            <td width="20">&nbsp;</td> 
                          </tr> 
                        </table></td> 
                    </tr> 
                  </table></td> 
              </tr> 
              <tr> 
                <td height="203"> <table width="284" height="203" border="0" cellpadding="0" cellspacing="0"> 
                    <tr> 
                      <td height="20">&nbsp;</td> 
                    </tr> 
                    <tr> 
                      <td valign="top"> <table width="282" border="0" cellpadding="0" cellspacing="0"> 
                          <!-- #include File="Conn/conn.asp" --> 
                          <% 
								sql="Select top 6 * from tb_News where Style='体育世界' and IssueDate=#"&times&"#"
								rs.open sql,conn
								While Not rs.Eof 
							%> 
                          <tr> 
                            <td width="89" height="20"><div align="center">【<%=rs("Type")%>】</div></td> 
                            <td width="200"> <a href="#" onclick="window.open('Show.asp?id=<%=rs("ID")%>','详细内容查看','width=630,height=400,scrollbars=yes,toolbar=no,location=no,status=no,menubar=no')"> 
                              <%If len(cstr(rs("Title")))>12 Then Response.Write(left(cstr(rs("Title")),10)&"...") Else Response.Write(rs("Title")) End If %> 
                              </A> </td> 
                          </tr> 
                          <% 
									rs.movenext
								Wend
								Set rs=Nothing
								conn.Close
								Set conn=Nothing
							%> 
                        </table></td> 
                    </tr> 
                    <tr> 
                      <td height="20">&nbsp;</td> 
                    </tr> 
                  </table></td> 
              </tr> 
            </table> 
          </div></td> 
        <td height="233"><div align="center"> 
            <table width="284" height="233" border="0" cellpadding="0" cellspacing="0" background="Image/BG1.gIf"> 
              <tr> 
                <td height="30" valign="top"> <table width="284" border="0" cellspacing="0" cellpadding="0"> 
                    <tr> 
                      <td height="20" align="center" valign="bottom" class="style9"> <table width="267" height="20" border="0" cellpadding="0" cellspacing="0"> 
                          <tr> 
                            <td width="45">&nbsp;</td> 
                            <td width="202" valign="bottom" class="style9"> 时 尚 娱 乐</td> 
                            <td width="20">&nbsp;</td> 
                          </tr> 
                        </table></td> 
                    </tr> 
                  </table></td> 
              </tr> 
              <tr> 
                <td height="203"> <table width="284" height="203" border="0" cellpadding="0" cellspacing="0"> 
                    <tr> 
                      <td height="20">&nbsp;</td> 
                    </tr> 
                    <tr> 
                      <td valign="top"> <table width="282" border="0" cellpadding="0" cellspacing="0"> 
                          <!-- #include File="Conn/conn.asp" --> 
                          <% 
								sql="Select top 6 * from tb_News where Style='时尚娱乐' and IssueDate=#"&times&"#"
								rs.open sql,conn
								While Not rs.Eof 
							%> 
                          <tr> 
                            <td width="89" height="20"><div align="center">【<%=rs("Type")%>】</div></td> 
                            <td width="200"> <a href="#" onclick="window.open('Show.asp?id=<%=rs("ID")%>','详细内容查看','width=630,height=400,scrollbars=yes,toolbar=no,location=no,status=no,menubar=no')"> 
                              <%If len(cstr(rs("Title")))>12 Then Response.Write(left(cstr(rs("Title")),10)&"...") Else Response.Write(rs("Title")) End If %> 
                              </A> </td> 
                          </tr> 
                          <% 
									rs.movenext
								Wend
								Set rs=Nothing
								conn.Close
								Set conn=Nothing
							%> 
                        </table></td> 
                    </tr> 
                    <tr> 
                      <td height="20">&nbsp;</td> 
                    </tr> 
                  </table></td> 
              </tr> 
            </table> 
          </div></td> 
      </tr> 
     </table></td> 
  <td width="190"> 
   <table width="180" height="974" border="0" align="center" cellpadding="0" cellspacing="0"> 
    <tr> 
       <td height="40" colspan="3"><div align="center"><a href="Vote.asp">年度新闻人物评选</a></div></td> 
     </tr> 
    <tr> 
     <td height="200" colspan="3"> 
   	<!-- #include file="Time.asp" --> 
    </td> 
     </tr> 
      <tr> 
       <td height="491" colspan="3"><table cellpadding="0" cellspacing="0"> 
           <tr> 
            <td width="27" height="21"><img src="Image/top1.gIf" width="27" height="21"></td> 
            <td width="113" valign="baseline" background="Image/top2.gIf"><div align="center">即 时 新 闻</div></td> 
            <td width="37"><img src="Image/top3.gIf" width="37" height="21"></td> 
          </tr> 
           <tr> 
            <td height="468" colspan="3"> <table width="177" height="468" border="0" align="center" cellpadding="0" cellspacing="0" class="wenbenkuang"> 
                <tr> 
                  <td width="175" height="466" align="center" valign="top"> <table width="169" border="0" cellpadding="0" cellspacing="0"> 
                      <!-- #include File="Conn/conn.asp" --> 
                      <% 
							sql="Select top 16 * from tb_News where IssueDate=#"&Date()&"# order by IssueDate Desc,ID dESC"
							rs.open sql,conn
							While Not rs.Eof 
						%> 
                      <tr> 
                        <td height="10">&nbsp;</td> 
                        <td height="10">&nbsp;</td> 
                      </tr> 
                      <tr> 
                        <td width="31" height="18"> <div align="center"><img src="Image/i8.gIf" width="14" height="13"></div></td> 
                        <td width="138" height="18"> <a href="#" onclick="window.open('Show.asp?id=<%=rs("ID")%>','详细内容查看','width=630,height=400,scrollbars=yes,toolbar=no,location=no,status=no,menubar=no')"> 
                          <%If len(cstr(rs("Title")))>10 Then Response.Write(left(cstr(rs("Title")),8)&"...") Else Response.Write(rs("Title")) End If %> 
                          </A> </td> 
                      </tr> 
                      <% 
								rs.movenext
							Wend
							Set rs=Nothing
							conn.Close
							Set conn=Nothing
						%> 
                    </table></td> 
                </tr> 
              </table></td> 
          </tr> 
         </table></td> 
     </tr> 
    <tr> 
       <td height="243" align="center"><table cellpadding="0" cellspacing="0"> 
           <tr> 
            <td width="27" height="21"><img src="Image/top1.gIf" width="27" height="21"></td> 
            <td width="113" valign="baseline" background="Image/top2.gIf"><div align="center">友 情 链 接</div></td> 
            <td width="37"><img src="Image/top3.gIf" width="37" height="21"></td> 
          </tr> 
           <tr> 
            <td height="220" colspan="3"> <table width="177" height="220" border="0" align="center" cellpadding="0" cellspacing="0" class="wenbenkuang"> 
                <tr> 
                  <td width="175" height="169" align="center" valign="top"> <table width="169" border="0" align="center" cellpadding="0" cellspacing="0"> 
                      <!-- #include File="Conn/conn.asp" --> 
                      <% 
							sql="Select top 6 * from tb_Link order by IssueDate Desc,ID dESC"
							rs.open sql,conn
							While Not rs.Eof 
						%> 
                      <tr> 
                        <td height="68" colspan="2"><div align="center"><a href="<%=rs("Address")%>">
						<img src="Image/IMG_link/<%=rs("Pictrue")%>" alt="<%=rs("Name")%>" width="160" height="56" border="0"></a></div></td> 
                      </tr> 
                      <% 
								rs.movenext
							Wend
							Set rs=Nothing
							conn.Close
							Set conn=Nothing
					%> 
                    </table></td> 
                </tr> 
              </table></td> 
          </tr> 
         </table></td> 
     </tr> 
  </table> 
  </td> 
   </tr> 
    <tr class="wenbenkuang"> 
    <td height="20" colspan="2" valign="top"> <table height="21" border="0" cellpadding="0" cellspacing="0"> 
	<!-- #include File="Conn/conn.asp" --> 
	<tr> 
	  <% 
		sql="Select Count(*) as sum,Style from tb_News where IssueDate=#"&times&"# group by Style"
		rs.open sql,conn
		While Not rs.Eof 
		%> 
	  <td width="53" height="20"><div align="center"><%=rs("Style")%></div></td> 
	  <td width="54" height="20"><div align="center">共
	   <font color="#FF0000"><%=rs("sum")%></font> 条</div></td> 
	  <% 
			rs.movenext
		Wend
		Set rs=Nothing
		conn.Close
		Set conn=Nothing
	%> 
	</tr> 
	</table></td> 
  </tr> 
</table> 
<!-- #include file="Bottom.asp" --> 
</body>
</html>