new.asp

九酷网络个人主页系统破解版

<!--#include file="config.asp"-->
<%
'///////站外调用代码：<script language="JavaScript" src="网站的绝对地址/new.asp?id=1&num="></script>
'///////id=新闻类别的id号,num=调用的条数，如果要调用所有的，可留空！
%>
<%
dim count,whereto1,whereto2
num=request("num") '调用的新闻条数
typeid=cint(request("id")) '新闻类别ID
if num<>empty and isNumeric(num) then
whereto1="top "&num&" "
end if
if typeid<>empty and isNumeric(typeid) then
whereto2="where type="&cint(typeid)&" "
end if
sql="select "&whereto1&"* from [news] "&whereto2&"order by id desc"
rs.open sql,conn,1,1
i=0
Do While Not RS.EOF
if i mod 2 = 0 then
titleclass="showlist1"
else
titleclass="showlist2"
end if
Response.Write "document.write('<table width=98%  border=0 cellspacing=0 cellpadding=4 align=center><tr><td height=20 class="&titleclass&"><img src=images/newsmark.gif> <a href=news_show.asp?id="&rs("id")&" target=_blank><font color="&rs("titlecolor")&">"&rs("title")&"</font></a></td><td width=""20%"" class="&titleclass&"><font color=#666666>("&rs("time")&")</font></td></tr></table>');"
i=i+1
rs.movenext
loop
rs.close
set rs=nothing
%>