reviewindex.asp

纪念伟大领袖的专题网站

<!--#include file="conn.asp"-->
<!--#include file="function.asp"-->
<!--#include file="char.inc"-->
<%
dim shu,order,path,ss,oo,tt
shu=request.querystring("shu")
order=request("order")
title=request.querystring("title")'
Path = "./"
if shu<>"" then   '显示数目，不加为6
	ss=shu
else
	ss=6
end if
if order="reviewid" then  '排序方式，click为按点击率
	oo="UpdateTime"
else
	oo="reviewid"
end if

if title<>"" then   '显示字数数目，不加为10
	nn=title
else
	nn=10
end if
set rs=conn.execute("select top "&ss&" * from "& db_Review_Table &" where passed=1 order by "&oo&" desc")
if rs.eof and rs.bof then %>
	<div align=center><br>没 有</div>
<%else
	do while not rs.eof
		title=nohtml(CheckStr(trim(rs("Content"))))'获取表格中留言字段内容并替换格式符
		if rs("NewsID")>0 and rs("passed")=1 then%>
			<LINK href=news.css rel=stylesheet><br><font class=class>评·<A class=class href="<%=path%>ReadNews.asp?NewsID=<%=rs("NewsID")%>" title="<%=CutStr(title,30)%>" target="_blank"><%=CutStr(title,nn)%></A><%if tt=1 then%><%end if%><%if date()-rs("updatetime")<2 then%><FONT color="#ff0000">&nbsp;新!<%end if%></font>
		<%else%>
			<%if rs("NewsID")<0 and rs("passed")=1 then%>
				<LINK href=news.css rel=stylesheet><br><font class=class>言·<A class=class href="<%=path%>GuestBook.asp?ReViewID=<%=rs("ReViewID")%>" title="给管理员的悄悄话，非管理员不能查看!" target="_blank"><font color=green>&nbsp;悄悄话!</font></A><%if date()-rs("updatetime")<2 then%><FONT color="#ff0000">&nbsp;新!</FONT><%end if%></font>
			<%else%>
				<LINK href=news.css rel=stylesheet><br><font class=class>言·<A class=class href="<%=path%>GuestBook.asp?ReViewID=<%=rs("ReViewID")%>" title="<%=CutStr(title,30)%>" target="_blank"><%=CutStr(title,nn)%></A><%if date()-rs("updatetime")<2 then%><FONT color="#ff0000">&nbsp;新!</FONT><%end if%></font>
			<%end if%>
		<%end if
		rs.movenext 
	loop 
end if
Rs.Close
set Rs=nothing
%>