news.asp

社区天地图文系统(核心:尘缘雅境图文系统) 版本: 1.0 本系统是ASP+ACCESS环境下开发成功

<!--#include file=include/conn.asp -->
<!--#include file=include/config.asp -->
<!--#include file=include/function.asp -->
<!--#include file="admin/char.inc"-->

<%
dim shu,news,bigclassid,smallclassid,specialid,order,time,path,click,title
bigclassid=checkstr(request.querystring("bigclassid"))
typeid=checkstr(request.querystring("typeid"))
smallclassid=checkstr(request.querystring("smallclassid"))
specialid=checkstr(request.querystring("specialid"))
shu=checkstr(request.querystring("shu"))
order=checkstr(request("order"))
time=checkstr(request.querystring("time"))
title=checkstr(request.querystring("title"))
click=checkstr(request.querystring("click"))
Path = "./"
if shu<>"" then   '显示数目，不加为10
ss=shu
else
ss=10
end if
if order="click" then  '排序方式，click为按点击率
oo="click"
else
oo="newsid"
end if
if time="0" then  '显示时间，0为不显示
tt=0
else
tt=1
end if
if click="0" then  '显示点击数，0为不显示
cc=0
else
cc=1
end if
if title<>"" then   '显示数目，不加为10
nn=title
else
nn=28
end if
if typeid<>"" then
	set rs=conn.execute("SELECT top "&ss&" * FROM news  where typeid=cint("&typeid&") and checkked=1 order by "&oo&" desc")
else
if bigclassid<>"" then
	set rs=conn.execute("SELECT top "&ss&" * FROM news  where bigclassid=cint("&bigclassid&") and checkked=1 order by "&oo&" desc")
else
if smallclassid<>"" then
	set rs=conn.execute("SELECT top "&ss&" * FROM news  where smallclassid=cint("&smallclassid&") and checkked=1 order by "&oo&" desc")
else
if specialid<>"" then
	set rs=conn.execute("SELECT top "&ss&" * FROM news  where specialid=cint("&specialid&") and checkked=1 order by "&oo&" desc")
else
	set rs=conn.execute("SELECT top "&ss&" * FROM news where checkked=1 order by "&oo&" desc")
end if
end if
end if
end if
if rs.eof and rs.bof then %>
     document.write('没有');
  <% else  
do while not rs.eof

title=trim(rs("title"))
title=replace(title,"<br>","")
if strcomp(left(title,nn),title)<0 then
%>
document.write('<tr><td height=\"24\" style=\"BORDER-bottom: #999999 1px dotted\"><LINK href=news.css rel=stylesheet><img src="images/ICO.gif"> <font class=class><A class=class href="<%=path%>ReadNews.asp?NewsID=<%=rs("NewsID")%>"  onclick="return ow(this)" title="<%=title%>" target="_blank"><%=left(title,nn)%></A><%if tt=1 then%><FONT color="#666666">[<%=month(rs("updatetime"))%>-<%=day(rs("updatetime"))%>]</FONT><%end if%><%if date()-rs("updatetime")<2 then%><img src="images/news.gif"><%end if%><%if cc=1 then%><FONT color="#666666">(<%=rs("click")%>)</FONT><%end if%></font></td></tr>');
<%else%>
document.write('<tr><td height=\"24\" style=\"BORDER-bottom: #999999 1px dotted\"><LINK href=news.css rel=stylesheet><img src="images/ICO.gif"> <font class=class><A class=class href="<%=path%>ReadNews.asp?NewsID=<%=rs("NewsID")%>"  onclick="return ow(this)" title="<%=title%>" target="_blank"><%=left(title,nn)%></A><%if tt=1 then%><FONT color="#666666">[<%=month(rs("updatetime"))%>-<%=day(rs("updatetime"))%>]</FONT><%end if%><%if date()-rs("updatetime")<2 then%><img src="images/news.gif"><%end if%><%if cc=1 then%><FONT color="#666666">(<%=rs("click")%>)</FONT><%end if%></font></td></tr>');
<%
end if
rs.movenext 
loop 
end if
Rs.Close
set Rs=nothing
%>