引用通告

<% dim oblog,logid set oblog=new class_sys oblog.start logid=clng(request("id")) typetb() %>

<% sub typetb() dim i,tburl tburl=oblog.setup(3,0)&"tb.asp?id="&logid %>

本文引用地址：<%=tburl%>

<% dim rs set rs = oblog.Execute("select * from oblog_trackback where logid="&logid&" order by id desc") if rs.eof then %>

该日志没有被引用。 <%else%>

该日志有如下引用

<% i = 1 while not rs.eof %>

引用标题：<%=oblog.filt_html(rs("topic"))%>

<% i = i+1 rs.movenext wend set rs=nothing %>

<% end if end sub %>