?? showtb.asp
字號:
<!--#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"> <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"> <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("topic")%></font> <font class="eng">[<%=rs("addtime")%>]</font></td>
<td align="right"><font class="eng">from</font> <%=rs("blogname")%> </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>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -