📄 showtb.asp
字号:
<!--#INCLUDE FILE="conn.asp" -->
<%
dim id,sql,rs
id = trim(request.QueryString("log_id"))
if not isnumeric(id) then
reponse.write "非法参数！"
response.end
end if
sql = "select * from log where log_ID="&Id
set rs = conn.Execute(sql)
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>文章<%=rs("log_tittle")%>的引用</title>
<link rel="stylesheet" type="text/css" href="styles.css">
</head>
<body>
<table width="710" border="0" cellspacing="0" cellpadding="2">
<tr bgcolor="#F5F5F5">
<td colspan="2"> <b style="color:black">引用通告</b></td>
</tr>
<tr>
<td width="12%">文章标题</td>
<td width="88%"><%=rs("log_tittle")%></td>
</tr>
<tr>
<td>文章摘要</td>
<td><%=left(rs("log_tittle"),50)%></td>
</tr>
<tr>
<td>引用地址</td>
<td>http://www.iamting.com/tb.asp?blogArId=<%=id%></td>
</tr>
</table>
<%
set rs = nothing
sql = "select * from trackback where blogArId="&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="710" border="0" cellspacing="0" cellpadding="2">
<tr>
<td><hr size="1" color="#999999"></td>
</tr>
<tr>
<td class="content"> <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"> 第<%=i%>条</td>
<td><font class="content"><%=rs("title")%></font> <font class="eng">[<%=rs("trackTime")%>]</font></td>
<td align="right"><font class="eng">from</font> <%=rs("blog_name")%> </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
%> </td>
</tr>
</table>
<p align="center">
<%
end if
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -