<!--#INCLUDE FILE="conn.asp" -->
<%
dim id,sql,rs,rsurl,tburl
id = clng(trim(request.QueryString("id")))
sql = "select * from blog where id="&id
set rs = conn.Execute(sql)
tburl=trim(Application(cachename&"info")(7))
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>文章<%=rs("topic")%>的引用</title>
<link href="Admin_STYLE.CSS" rel="stylesheet" type="text/css">
</head>

<body>
<table width="100%" border="0" cellspacing="0" cellpadding="2">
  <tr bgcolor="#F5F5F5"> 
    <td colspan="2" class="tdbg">&nbsp;<b>引用通告</b></td>
  </tr>
  <tr> 
    <td width="12%">日志标题</td>
    <td width="88%"><%=rs("topic")%></td>
  </tr>
  <tr> 
    <td>日志摘要</td>
    <td><%=left(rs("topic"),50)%></td>
  </tr>
  <tr> 
    <td>引用地址</td>
    <td><%=tburl%>tb.asp?id=<%=id%></td>
  </tr>
</table>
<%
    set rs = nothing
	sql = "select * from trackback where blogid="&id
	set rs = conn.Execute(sql)
	if rs.eof then ''no trackback
%>
<table width="710" height="50" border="0" cellspacing="0" cellpadding="2">
	<tr>
		<td><p align="center" style="color:red">该日志没有被引用。</td>
	</tr>
</table>
  <%	
	else
%>
<table width="100%" border="0" cellspacing="0" cellpadding="2">
  <tr>
    <td><hr size="1" color="#999999"></td>
  </tr>
  <tr> 
    <td class="tdbg"> &nbsp;<b>该日志有如下引用</b></td>
  </tr>
  <tr> 
    <td> <%
		dim i 
		i = 1
		do until rs.Eof 
	%> <table width="100%" border="0" cellspacing="0" cellpadding="2">
        <tr bgcolor="#F5F5F5"> 
          <td width="12%" class="content">&nbsp;第<%=i%>条</td>
          <td><font class="content"><%=rs("topic")%></font> <font class="eng">[<%=rs("addtime")%>]</font></td>
          <td align="right"><font class="eng">from</font> <%=rs("blogname")%>&nbsp;</td>
        </tr>
        <tr> 
          <td>日志摘要</td>
          <td colspan="2" class="content"><%=rs("excerpt")%></td>
        </tr>
        <tr> 
          <td>连接地址</td>
          <td colspan="2"><a href="<%=rs("url")%>" target="_blank"><%=rs("url")%></a></td>
        </tr>
      </table>
      <%
	 		i = i+1
			rs.movenext
	     loop
		 set rs=nothing
	 %> </td>
  </tr>
</table>
<p align="center"> 
  <%	
	end if
%>
</body>
</html>
