reviewindex.asp

强大的网站

<!--#include file=include/conn.asp -->
<!--#include file=include/config.asp -->
<!--#include file=include/function.asp -->
<!--#include file="admin/char.inc"-->
<%
function nohtml(str)
    dim re
    Set re=new RegExp
    re.IgnoreCase =true
    re.Global=True
    re.Pattern="(\<.[^\<]*\>)"
    str=re.replace(str," ")
    re.Pattern="(\<\/[^\<]*\>)"
    str=re.replace(str," ")
    nohtml=str
    set re=nothing
end function
%>
<%
dim shu,order,path,ss,oo,tt
shu=request.querystring("shu")
order=request("order")
title=request.querystring("title")'
Path = "./"
if shu<>"" then   '显示数目，不加为10
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=6
end if
set rs=conn.execute("SELECT top "&ss&" * FROM Review order by "&oo&" desc")
if rs.eof and rs.bof then %>
     document.write('没有');
  <% else  
do while not rs.eof

title=nohtml(trim(rs("Content"))) '获取表格中留言字段内容并替换格式符
if rs("NewsID")<>"" then
%>
<LINK href=news.css rel=stylesheet><br><font class=class>评·<A class=class href="<%=path%>readnews.asp?NewsID=<%=rs("NewsID")%>" title="<%=title%>" target="_blank"><%=left(title,nn)%></A><%if tt=1 then%><%end if%><%if date()-rs("updatetime")<2 then%><FONT color="#ff0000">新！<%end if%></font>
<%else%>
<LINK href=news.css rel=stylesheet><br><font class=class>言·<A class=class href="<%=path%>readview.asp?reviewID=<%=rs("reviewID")%>" title="<%=title%>" target="_blank"><%=left(title,nn)%></A><%if tt=1 then%><%end if%><%if date()-rs("updatetime")<2 then%><FONT color="#ff0000">新！</FONT><%end if%></font>
<%
end if
rs.movenext 
loop 
end if
Rs.Close
set Rs=nothing
%>