📄 showtb.asp

📁 是个不错的文件代码,希望大家好好用,
💻 ASP
字号:
<!--#include file="conn.asp"-->
<!--#include file="inc/class_sys.asp"-->
<!--#include file="inc/md5.asp"-->
<!--#include file="inc/class_blog.asp"-->
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>引用通告</title>
<style type="text/css">
<!--
@charset "gb2312";
* {margin: 0;padding: 0;border: 0;}
body {
color: #444;
background: #fff;
text-align: left;
margin: 0;
font-family: 'Century Gothic', Arial, Helvetica, sans-serif;
font-size: 12px;
line-height: 150%;

}
.content {
padding:0px 100px 0px 100px;

}
.content_body {
border-left: 1px #694659 solid;
border-right: 1px #694659 solid;
border-bottom: 1px #694659 solid;
background: #fff;
padding:0px;
}
.content_body h1 {
font-size:14px;
padding:6px 0px 0px 20px;
color:#f30;
font-weight:400;
}
.content_top {
padding:6px 0px 0px 15px;
width:100%;
height:30px;
background: url("images/yinyongmenu.png") no-repeat top right;
color:#fff;
font-size:14px;
font-weight:bold;
border-left: 1px #694659 solid;
border-right: 1px #694659 solid;
}
#list {
background: url("images/menubgline.png");
}
#list h1 {
padding:8px 6px 8px 6px;
font-size:14px;
color:#333;
font-weight:600;
}
#list .list_edit a {
color:#099;
font-weight:bold;
text-decoration: none;
}
#list .list_edit a:hover {
color:#f90;
font-weight:bold;
text-decoration: underline;
word-spacing:15px;
}
#list ul {
padding:1px 0px 3px 15px ;
}
-->
</style>
</head>
<body>
<div class="content">
  	<div class="content_top">
		  	<div class="side_d1 side11"></div>
		    <div class="side_d2 side21"></div>
			引用通告
	</div>
	
    <div class="content_body">
<%
If Application(cache_name_user&"_systemenmod")<>"" Then
	Dim enStr
	enStr=Application(cache_name_user&"_systemenmod")
	enStr=Split(enStr,",")
	If enStr(3)="1" Then	response.write("系统临时禁止使用引用通告功能!")
Else
	dim oblog,logid
	set oblog=new class_sys
	oblog.start
	logid=clng(request("id"))
	typetb()
	Set oblog=Nothing
End If
%>
	</div>
	
    <div class="content_bot">
		  	<div class="side_e1 side12"></div>
   			<div class="side_e2 side22"></div>
 	</div>
	
  </div>
</body>
</html>
<%

sub typetb()
dim i,tburl
tburl=oblog.CacheConfig(3)&"tb.asp?id="&logid
%>
<h1>本文引用地址：<%=tburl%> <input type="button" onclick="window.clipboardData.setData('Text','<%=tburl%>');" value="复制"></h1>
<%
	dim rs
	set rs = oblog.Execute("select * from oblog_trackback where logid="&logid&" order by id desc")
	if rs.eof then
%>
<ul class="list_edit">该日志没有被引用。</ul>
<%else%>
<h1>该日志有如下引用</h1>
<div id="list">
<%
	i = 1
	while not rs.eof
	%>
	<h1>  第<%=i%>条:<%="被"&rs("tbuser")&"在"&rs("addtime")&"引用"%></h1>
	<ul class="list_edit">引用标题：<%=oblog.filt_html(rs("topic"))%></ul>
	<ul class="list_edit">引用地址：<a href="<%=rs("url")%>" target="_blank"><%=rs("url")%></a></ul>
      <%
		i = i+1
		rs.movenext
	wend
	set rs=nothing
%>
</div>
<%	
	end if
end sub
%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -