news.asp

网络电视免费版

			   if rs.bof and rs.eof then 
		          response.write "没有任何分类" 
	              else 
	              do while not rs.eof 
				response.write "　→ <a href=""SoftList.asp?CateID="&rs("CateID")&""" class=""ArticleList"">"&rs("CateName")&"</a>( <font color=""#FF0000"">"&rs("CateNum")&"</font>个 )"
				response.write "<br>"
	               rs.movenext 
	               loop 
	             end if 
	         rs.close 
			 end if
			 %>
                            </td>
                          </tr>
                        </table></TD>
                    </TR>
                    <TR> 
                      <TD width=200 height=32> <P align=center><IMG src="123.files/3.gif" border=0> 
                        </P></TD>
                    </TR>
                    <TR> 
                      <TD align=left width=200 bgColor=#f7f3f7 height=6> <table width="100%" border="0" cellspacing="1" cellpadding="3">
                          <tr> 
                            <td>
                              <% 
	if request("CateID")<>"" and request("SubCateID")<>"" then
		sql="select top 10 SoftID,SoftName,SoftVer,SoftTime from "&CategoryName&"_SoftInfo where "&CateID&" "&SubCateID&"  order by WeekHits desc,SoftID desc"
	end if
	if request("CateID")<>"" and request("SubCateID")="" then
	    sql="select top 10 SoftID,SoftName,SoftVer,SoftTime from "&CategoryName&"_SoftInfo where "&CateID&" order by WeekHits desc,SoftID desc"
	end if
	if request("CateID")="" and request("SubCateID")="" then
		sql="select top 10 SoftID,SoftName,SoftVer,SoftTime from "&CategoryName&"_SoftInfo order by WeekHits desc,SoftID desc"
	end if
	rs.open sql,conn,1,1 

  	if rs.eof and rs.bof then 
       		response.write "<p align='center'>近期没有新软件</p>" 
   	else 
	do while not rs.eof 
	       response.write "<li><a href=""SoftView.asp?SoftID="& rs("SoftID")&""" class=""ArticleList"">"& trim(rs("SoftName")) & trim(rs("SoftVer")) & " </a></li>" 
		             rs.movenext 
	               loop 
	             end if 
	         rs.close 
	%>
                            </td>
                          </tr>
                        </table></TD>
                    </TR>
                    <TR> 
                      <TD width=200 height=32> <P align=center> <IMG src="tp/5.gif" 
                      border=0></P></TD>
                    </TR>
                    <TR> 
                      <TD width=200 height=1></TD>
                    </TR>
                    <TR> 
                      <TD width=200 bgColor=#f7f3f7 height=85> <TABLE cellSpacing=0 cellPadding=4 width="100%" 
border=0>
                          <TBODY>
                            <TR> 
                              <TD style="FONT-SIZE: 12px" width=200> <P align=center><A 
                              href="http://windowsmedia.com/download/" 
                              target=_blank> <font color="#000000"> <IMG 
                              src="tp/WMP9series_Free.gif" 
                              alt="如不能正常播放请下载此Media player 9播放器" border=0></font></A> 
                                </P></TD>
                            </TR>
                            <TR> 
                              <TD style="FONT-SIZE: 12px" width=200> <P align=center> 
                                  <IMG 
                              src="tp/realone.gif" border=0> </P></TD>
                            </TR>
                            <TR> 
                              <TD style="FONT-SIZE: 12px" width=200> <P align=center><SPAN class=style3><A 
                              href="http://windowsmedia.com/download/" 
                              target=_blank> 
                                  <MARQUEE scrollDelay=100 
                              width=86>
                                  &nbsp;&nbsp;&nbsp; 
                                  </MARQUEE>
                                  </A></SPAN><A 
                              href="http://windowsmedia.com/download/" 
                              target=_blank> 
                                  <MARQUEE scrollDelay=100 width=86>
                                  &nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
                                  &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
                                  </MARQUEE>
                                  <MARQUEE scrollDelay=100 
                              width=178>
                                  &nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
                                  如不能正常播放请下载此Media player&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
                                  9播放器与RealOnE播放器！
                                  </MARQUEE>
                                  </A><SPAN 
                              class=style3><A 
                              href="http://windowsmedia.com/download/" 
                              target=_blank> 
                                  <MARQUEE scrollDelay=100 
                              width=86>
                                  </MARQUEE>
                                  </A></SPAN></P></TD>
                            </TR>
                          </TBODY>
                        </TABLE></TD>
                    </TR>
                </TABLE></TD>
            </TR>
          </TBODY>
        </TABLE></TD>
      <TD vAlign=top width=567 height=170> <BR>
        <table width="100%" border="0" cellpadding="3" cellspacing="1" bgcolor="#E3E3E3">
          <tr align="center" bgcolor="#F5F5F5"> 
            <td height="22">节目名称</td>
            <td height="22">更新时间</td>
            <td height="22">节目大小</td>
            <td height="22">节目等级</td>
          </tr>
          <% 
	rs.open TypeSQL,conn,1,1 
	if not(rs.eof and rs.bof) then 
	do while not rs.eof
	Title=trim(rs("SoftName"))& " "& trim(rs("SoftVer"))
	%>
          <tr> 
            <td bgcolor="#FFFFFF"> 
              <%  response.write "[<A href=""SoftList.asp?CateID="&rs("CateID")&"&SubCateID="&rs("SubCateID")&""" class=""ArticleList"">"&trim(rs("SubCateName"))&"</a>] <A href=""SoftView.Asp?SoftID="&rs("SoftID")&""" title=""" & title & """ target=_blank class=""ArticleList"">" & title & "</a> " %>
            </td>
            <td align="center" nowrap bgcolor="#FFFFFF"><%=rs("SoftTime")%></td>
            <td align="center" nowrap bgcolor="#FFFFFF">
              <% if rs("SoftSize")>1024 then 
		  Response.Write(round(rs("SoftSize")/1024,2)&" MB")
		  else
		  Response.Write(rs("SoftSize")&" KB") 
		  end if
		  %>
            </td>
            <td align="center" bgcolor="#FFFFFF"> 
              <%for img=1 to trim(rs("Rank"))
              response.write "<img src=""images/star_green.gif"">"
              next %>
            </td>
          </tr>
          <%
	rs.movenext 
    loop  
	end if
	rs.close
	 %>
        </table> </TD>
    </TR>
    <TR> 
      <TD vAlign=top height=1 width="567">　</TD>
    </TR>
  </TBODY>
</TABLE>
<!--#include file="foot.asp"-->  
</body>
</html>
<%
set rs=nothing
CloseDatabase
%>