<%=ihomepage%>>><%=ititle%>

<%=rs.pagecount%>页 <%=itoday%>新/<%=rs.recordcount%>条	<% ifirst = ipage - 4 if rs.pagecount > 9 and ( rs.pagecount - ipage ) < 5 then ifirst = rs.pagecount - 9 if rs.pagecount < 10 and ( rs.pagecount - ipage ) < 5 then ifirst = 1 if ( ipage - 5 ) < 0 then ifirst = 1 %> <% for i = 1 to 10 if ifirst = rs.pagecount + 1 then exit for if ifirst - ipage = 0 then %> <% else %> <% end if ifirst = ifirst + 1 next if i < 11 then for j = i to 10 %> <% next end if %> <% if ipage <= 1 then %> <% else %> <% end if %> <%=ifirst%>　 <%=ifirst%>　 <% if ipage - rs.pagecount = 0 then %> <% else %> <% end if %>	跳转第 页

<%=rs("author")%>

主题: <%=rs("title")%>

<% if request.cookies("iadmin") = "admin" then %> <% end if %> .gif"> <% if rs("oicq") <> "" and rs("oicq") <> 0 then %> "> <% else %> <% end if %> <% if rs("homepage") <> "" then %> "> <% else %> <% end if %> <% if rs("email") <> "" then %> "> <% else %> <% end if %> "> "> <% if iqqshow = 1 then if rs("oicq") <> "" and rs("oicq") <> 0 then inumber = 9 - len(rs("oicq")) for j = 1 to inumber ishow = ishow & 0 next ishow = ishow & rs("oicq") %> <% end if ishow = "" end if itest = rs("content") if len(rs("title")) > 4 and left(rs("title"),5) = "【悄悄话】" and request.cookies("iadmin") <> "admin" then itest = "这条留言是悄悄话,如果你是管理员,请登陆后再看." end if %>

.gif"> <%=itest%> <%=rs("time")%> <% set rrs = server.createobject("adodb.recordset") rsql = "select * from reply where topic = " & rs("id") & " order by id desc" rrs.open rsql,conn,1,1 if not rrs.eof or rrs.bof then do while not rrs.eof %> 站长回复: <%=rrs("content")%> <%=rrs("time")%> <% rrs.movenext loop end if rrs.close set rrs = nothing %>