jsnews.asp

来自「超炫电台程序开发了两个版本了」· ASP 代码 · 共 41 行

<!--#include file="Config.asp" -->
<%
on error resume next
dim shu,cut

if Trim(Request.QueryString("shu"))="" or Trim(Request.QueryString("shu"))="0" then
shu=10
else
shu=cint(Request.QueryString("shu"))
end if
if Trim(Request.QueryString("cut"))="" or Trim(Request.QueryString("cut"))="0" then
cut=50
else
cut=cint(Request.QueryString("cut"))
end if

set rs=server.createobject("adodb.recordset")
sql="SELECT top "& shu & " "&CategoryName&"_SoftInfo.SoftID,"&CategoryName&"_SoftInfo.SoftName,"&CategoryName&"_SoftInfo.SoftVer,"&CategoryName&"_SoftInfo.CateID,"&CategoryName&"_SoftInfo.SubCateID,"&CategoryName&"_SoftInfo.AllHits,"&CategoryName&"_SoftInfo.SoftTime,"&CategoryName&"_SubCate.SubCatename FROM "&CategoryName&"_SoftInfo,"&CategoryName&"_SubCate where "&CategoryName&"_SoftInfo.SubCateID="&CategoryName&"_SubCate.SubCateID order by "&CategoryName&"_SoftInfo.SoftTime desc,"&CategoryName&"_SoftInfo.SoftID desc"
rs.open sql,conn,1,1 
if rs.eof and rs.bof then 
%>
     document.write('
<p align="center">Sorry! 没有歌曲</p>
'); 
 <% else  
   do while not rs.eof
       if rs("SoftTime")=date() then
	   SoftTime="<FONT color=red>"&month(rs("SoftTime"))&"/"&day(rs("SoftTime"))&"</FONT >"
	   else
	   SoftTime="<FONT color=#999999>"&month(rs("SoftTime"))&"/"&day(rs("SoftTime"))&"</FONT >"
	   end if 
   %>
document.write('<TR><TD>[<A href="<%=url%>SoftList.asp?CateID=<%=rs("CateID")%>&SubCateID=<%=rs("SubCateID")%>" target="_blank"><%=rs("SubCateName")%></A>] <A href="<%=url%>SoftView.Asp?SoftID=<%=rs("SoftID")%>" title="<%=rs("SoftName")&" "&rs("SoftVer")%>" target="_blank"><%=cutStr(rs("SoftName")&" "&rs("SoftVer"),cut) %></A>  </TD></TR>');						
<%
  rs.movenext 
  loop 
end if
Rs.Close
set Rs=nothing
CloseDatabase
%>