<% Response.Expires = -1 Response.ExpiresAbsolute = Now() - 1 Response.cachecontrol = "no-cache" %> 处理 SSI 文件时出错
处理 SSI 文件时出错
处理 SSI 文件时出错
<% if openDB()=false then response.Write "数据库错误！" response.End() end if word=checkstr(request("wd"),2) if word="" then response.Redirect "/search.html" content=" and (title like '%"&word&"%' or meta_word like '%"&word&"%' or meta_info like '%"&word&"%' or summary like '%"&word&"%' or source like '%"&word&"%' or author like '%"&word&"%')" %>

最新评论

<% curpage = checkstr(request("page"),1) num = checkstr(request("num"),1) strUrl="news_list.asp?"&str_Search num=10 if curpage=0 then curpage=1 sql="select count(*) from news_comment where news_id="&checkstr(request("id"),1)&"" 'response.Write sql & "
" if checkstr(request("page"),1)=0 then curpage=1 else curpage=checkstr(request("page"),1) call Do_Count(sql,num,rows,pagecou) set rs=server.CreateObject("adodb.recordset") sql="select a.*,b.username from News_Comment a left outer join user_info b on b.user_code=a.user_code where a.is_show=1 and a.news_id="&checkstr(request("id"),1)&" order by a.create_time desc limit "&num*curpage-num&","&num&"" rs.open sql,conn,3 if not(rs.bof or rs.eof) then %>

评论共有评论<%=rows%>条

<%for i=1 to rs.recordcount%>
<% if rs("is_anonymous")=true then response.Write "匿名用户："&right(rs("user_code"),12)&"" else response.Write "评论用户："& replace(rs("username"),right(rs("username"),3),"***") &"" end if %>

<%=rs("content")%>

第<%=(curpage-1)*10+i%>位评论 <%=showtime(rs("create_time"),5)%>
<% rs.movenext if rs.eof then exit for next %>
<% if curpage>1 then response.Write "上一页" for i=curpage-3 to curpage+3 if i>=1 and i<=pagecou then if i = curpage then response.Write ""& i &"" else response.Write ""& i &"" end if end if next if curpage下一页" %>
<%end if%>