<!--#include file="inc/Config.asp" -->
<%
UserTrue=True
Dim ID
ID=CblogObj.IsCInt(CblogObj.GetRequest("ID"))
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" lang="gb2312">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>TrackBack Ping URL</title>
<style type="text/css">
<!--
body {
	font-size: 12px;
	line-height: 150%;
	color: #000000;
	background-color: #EFEFEF;
}
#box {
	padding: 5px;
	width: 600px;
	margin-right: auto;
	margin-left: auto;
	background-color: #FFFFFF;
	border: 1px solid #999999;
}
.center {
	background-color: #efefff;
	padding: 5px;
}
input {
	border: 1px solid #fefefe;
}
-->
</style>
</head>
<body>
<div id="box">
	<div class="center">引用通告地址: 
	  <input name="url" type="text" id="url" value="<%=Territory & CityBlogDir%>FormTrackBack.asp?ID=<%=ID%>" size="60" />
	</div>
	<%
	Set Rs=Conn.Execute("Select Url,title,blog_name From TrackBack Where ArticleID="& id &" Order By ID Desc")
	IF Not Rs.Eof Then
		Do While Not Rs.Eof
			Response.Write "<ul id=""trackback"">"
			Response.Write "<li class=""blogname"">博客:"& Rs(2) &"</li>"
			Response.Write "<li class=""title"">标题:"& Rs(1) &"</li>"
			Response.Write "<li class=""url"">网址:<a href="""& Rs(0) &""">"& Rs(0) &"</a></li>"
			Response.Write "</ul>"
		Rs.MoveNext
		Loop
	Else
		Response.Write "<ul id=""trackback"">"
		Response.Write "<li class=""blogname"">没有博客对此日志发过引用通告！</li>"
		Response.Write "</ul>"
	End IF
	Rs.Close:Set Rs=Nothing
	Set CblogObj=Nothing
	%>
</div>


</body>
</html>
