<% rem 按留言本方式查看 rs.open exec,conn,1,1 do until rs.eof %>

<% if rs("istop")=1 then response.write "" elseif rs("jh")=1 then response.write "" elseif rs("islock") then response.write "" else response.write "" end if %> " align=absmiddle> <% response.write funKillword(rs("title")) if not showFace then userNameNoFace rs("name") ,rs("bl"),isMaster(rs("name")) end if %> #re">回复 <% userEmail(rs("email")) userIcq(rs("icq")) userMsn(rs("msn")) userQQ(rs("qq")) userUrl(rs("url")) %>

<% if showFace then userNameFace rs("name"),rs("face"),rs("male"),rs("bl"),isMaster(rs("name")) end if %> <% response.write ubbcode(rs("nei")) if not isnull(rs("re_name")) then %> 最后回复： align=absmiddle> <%=funKillword(rs("re_title"))%> 回复人： <% response.write rs("re_name") if rs("re_bl")=1 then if isMaster(rs("re_name")) then response.write "" else response.write "" end if end if%> <%=ubbcode(rs("re_nei"))%> <% end if %> <% if rs("hf")>0 then %> ">查看全部回复(<%=rs("hf")%>) <% else %> #re">回复该留言 <% end if call reLink(rs("id"),rs("hf")) %> [ 发表时间：<%=rs("t")%> ] <% if theUser.reged then %> "> <% else %> <% end if if theUser.master then %> "> <% userIp rs("ip"),rs("comefrom") %> " > <% else %> <% end if %>

<% rs.movenext loop if isobject(rs1) then rs1.close set rs1=nothing end if rsclose() connclose() sub reLink(id,num) dim reperpage,pagenum,linknum linknum=5 reperpage=rcperpage1 if num<=reperpage then exit sub end if pagenum=int((num-1)/reperpage)+1 if pagenum<=linknum then for i=1 to pagenum response.write "" response.write i response.write " " next else for i=1 to linknum-2 response.write "" response.write i response.write " " next response.write "... " response.write pagenum response.write " " end if end sub %>