⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 admin_manage.asp

📁 图书管理系统图书管理系统图书管理系统图书管理系统图书管理系统图书管理系统图书管理系统图书管理系统图书管理系统
💻 ASP
📖 第 1 页 / 共 3 页
字号:
🔍
123 
<!--#include file="conn.asp"-->
<%if session(hxCacheName&"_admin")<>"OK" then
    response.redirect("admin_login.asp")
    end if%>
<%
'-------------------------------------
'功能：管理员管理网站首页
'天天智能友情链接管理系统
'天天DV网制作 http://www.ttdv.cn
'电脑家园http://www.pc326.com
'文秘家园http://www.wm326.com
'博大网址库http://www.ip126.com

'可自由传播和免费使用，但必须保留此完整版权信息
'本程序撷取了ITlearner、博大网址库等优秀程序中的源代码，对他们的作者表示感谢
'-------------------------------------


dim action,k
k=1 '控制面板
action=request.QueryString("action")
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN" 
    "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../style.css" rel="stylesheet" type="text/css">
<title>管理网站信息_<%=WebName & ChannelName%></title>
</head>
<body>
<!--#include file="top.asp"-->
<!---弹出面板开始--->
<script>
function loadThreadFollow(t_id,b_id){
	var targetImg =eval("document.all.followImg" + t_id);
	var targetDiv =eval("document.all.follow" + t_id);
	
	if ("object"==typeof(targetImg)){
		if (targetDiv.style.display!='block'){
			targetDiv.style.display="block";
			
		}else{
			targetDiv.style.display="none";
		}
	}
}
</script>
<!---弹出面板结束--->
<div class="mainbar_a<%=skin%>"><%
select case action
case "edit"
	call edit
case "edit1"
	call edit1
case "rg"
	call rg	
case "wg"
	call wg
case "femail"
	call femail		
case "del"
	call dellink
case "init"
	call init
case "BatchDelform"
	call BatchDelform
case "BatchDelWeb"
	call BatchDelWeb
case "BatchDelLog"
	call BatchDelLog
case "ShowLog"
	call ShowLog
case "ListSite"
	call ListSite
case "CompactDB"
	call Compact
case "ClearCache"
	call ClearCache
case "Summary"
	call Summary
case else
	call main
end select
%></div><%
sub main
%>
      <table width="700" border="0" align="center" cellpadding="3" cellspacing="0">
        <tr> 
          <td width="110">
          
   	<pre>
              =========================================================================
             ▲ 程序名称: 天天DV网智能友情链接管理系统        
             ▲ 程序作者: <a href="http://www.ttdv.cn/" target="_blank">天天DV网</a>
             ▲ 当前版本: v2.7                   
             ▲ 最新版本: <a href="http://www.ttdv.cn/bbs" target="_blank">支持论坛</a>　<a href="http://www.ttdv.cn/link/download.asp" target="_blank">程序下载</a>
             ▲ 版权声明: 天天DV网智能友情链接管理系统由自用到网上发布，经几年多次改进，
                期间撷取了飞越智能友情链接系统、博大网址库智能友情链接系统、ITlearner智
                能友情链接系统等优秀程序中的源代码，对他们的作者表示感谢。本软件最终版
                权归天天DV网所有
              ▲天天DV网智能自助友情链接系统为免费自由软件，本软件可自由传播和使用，但必
              须保留“感谢天天DV网提供本程序”的链接。天天DV网工作室花费那么多心血为大家
              搞一个免费软件，只要求保留一个本站的链接。有的站主使用天天DV网智能友情链接
              后，把有关版权信息去得一干二净，试问如果你是作者心情怎样？还有什么动力搞软件？
              ▲您在使用或传播中如果出现任何问题和由此造成的任何损失，使用本系统的网站的内
              容以及导致的任何法律争议和后果与天天DV网无关，天天DV网不承担任何责任。
              ▲使用天天DV网智能友情链接的用户请到作者网站登记一下，以获得本站最新版本资
              讯<a href="http://www.ttdv.cn/link/union.asp" target="_blank">http://www.ttdv.cn/link/union.asp</a>
              ===========================================================================
            ☆系统介绍☆
             按申请链接的网站平均每天点进的次数排序显示链接。点击越多，排名越前。
             用户自助申请、修改、查询，系统自动审核（可设置手动），自动排列。
             强大的后台管理功能，后台设置网站基本信息，可对链接审核、修改、点入豁免、固顶、催放代码、代
             码错误通知，查看统计记录等。
             可后台设置注册字符限制、域名限制、IP限制、缓存名称等。
             天天智能友情链接系统设立8套风格模板，后台可设置默认模板，前台用户可自由选择风格，
             适合不同风格网站使用。
             设立邮件列表功能，发布最新资讯。

	
☆安装使用方法☆

	1.在支持ASP的服务器上解开本软件包。
	2.一定要把本系统默认的link目录完整地放在你的网站根目录下，否则出错！例：http://你的网站域名/link/。	   
	3.数据库文件在data目录，已经做了防下载处理。	
	4.后台登录地址在admin/index.asp，默认管理员账号:admin，密码:admin888。
	5.进入后台根据提示设置你网站的基本信息。
	6.本系统使用jmail邮件功能，要空间支持jmail邮件功能，且在网站基本信息中正确设置邮件服务器信息才能正常发送邮件。
	7.头部文件top.asp和底部文件under.asp可自行设计为符合网站样式。
	8、调用方法有三种，效果在后台帮助中可看到。
	9、如果要将智能友情链接系统后台管理与主站后台管理整合（即管理员登录主站后台后
	可直接进入智能友情链接管理后台），可在主站后台登录身份判断中加入下列代码即可：
	
	hxCacheName=session("hxCacheName") '整合友情链接管理
	session(hxCacheName&"_admin")="OK" '整合友情链接管理
	Response.cookies(hxCacheName&"_ttlink")("administrator")=trim(rs("admin")) '整合友情链接管理
	Response.cookies(hxCacheName&"_rank")("rank")=1 '整合友情链接管理
	
	</pre>	
 <table width="700" border="0" align="center" cellpadding="3" cellspacing="0">
        <tr> 
          <td width="700">		
		☆主要功能☆<p>
	用户：<br>
	
	<ol>
	<li>用户可自行注册，登陆网站信息。注册成功后系统自动发送邮件通知。</li>
	<li>用户注册时可选择是否加入邮件列表。</li>	
	<li>友情链接是按申请链接的网站平均每天点进次数的多少来排列顺序的。点击越多，排名越前。如果是固顶的，则以固顶优先。前x名(后台设置)可以显示图标，其它则显示文字。</li>
	<li>当申请链接的网站平均每天点进次数大于指定的数额(可在后台设置)后，才会在页面(link.asp和调用js.asp的页面)上显示。超过设定的行数后，会出现“更多链接”的字样，指向friendlink.asp页。</li>
	<li>管理员和用户均可以查看所有网站的总点入、总点出，今日点入，今日点出，平均点入、平均点出等信息，并有多达10种的排序方法。</li>
	<li>用户登陆后可修改网站的资料，查看最近3天的点入点出记录。忘记密码可通过密码提示和答案找回密码。</li>
</ol>
	管理员：<br>
	<ol>
	<li>强大的后台管理功能，可自行修改配置。</li>
	<li>可在后台审核、点入豁免、催放代码、代码错误通知.</li>
	<li>后台利用邮件列表功能，向注册用户发布最新资讯。</li>
	<li>管理员登陆后台后，可用10种排序方式显示各个网站的信息，调整各类信息，删除非法的网站。</li>
	<li>初始化功能，可定期进行单用户初始化或者全部初始化。初始化后，所有数据将被清零，并从该天起开始重新统计。请谨慎操作！</li>
	<li>批量删除站点功能，可以批量删除指定天数前注册总点击进入数小于指定数量的站点。</li>
	<li>批量删除点击记录功能，可以删除指定天数前的点击记录(用户3天内的点入点出记录不会被删除)。</li>
	<li>可查看所有用户的点入点出记录，也可单独查看点入或点出的记录，也可单独查看某一用户的点入点出记录。	</li>
	<li>可修改、添加、删除和排序网站分类。</li>
	<li>可添加友情链接。</li>	
	<li>可查看总网站数，总点入点出次数等系统总体概况数据。	</li>
	<li>在线管理数据库，可备份、还原和压缩数据库。建议每隔一段时间压缩备份一次。</li>
        <li>系统对链接双方都是公平的，同一IP隔12小时(可在后台设置)后点击才继续计数，可有效防止作弊的发生。</li>
	<li>在链接网站列表页(morelink.asp)，各类TOP5的链接是直接链接，其它均为ttout.asp?username=用户名的链接形式。</li>
	<li>显示友情链接的页面采用了缓存技术，您可以在后台设定缓存的时间，默认为30分钟，其实可以设置为更大的值。在没有用户点入的情况下，每隔设定的时间才会再读一次数据库，而当有用户点入的情况下或者编辑站点信息后，缓存会立刻清空，这样就保证了友情链接页面显示的数据始终是最新的。</li>		
         </ol> 
         </td> 
          </tr> 
 </table>
        
          	                
          <img src="images/common.gif" width="9" height="15"> 
  <tr>
    <td height="250" align="center" bgcolor="#FFFFFF"> JS代码ASP调用方式，能自动适应页面高度<br>
        <br>
        <textarea name="S1" cols="80" rows="8" class="input2">
  <!----友情链接开始-----> 
 <table width="760" border="0" align="center" cellpadding="0" cellspacing="0">    
  <tr>
   <td align="center"><script language=javascript src="link/link.js"></script></td>
  </tr>
</table> 
  <!---友情连接结束----> 
      </textarea>
        <br>
        <br>
 	浮动帧标记方式,优点是不影响首页主页面打开速度，缺点是可能不被搜索引擎搜索。<br>其中宽度width，高度height可根据实际情况进行调整<br>
      <br>
     <textarea name="textarea" cols="80" rows="4" class="input2">
 <iframe src="link/link.asp" width="768" height="120" border="0" frameborder="0" marginheight="0" marginwidth="0" scrolling="no"></iframe>
      </textarea>.
      <br>
       <br>
 	JS代码ASP调用方式,优点是可被搜索引擎搜索，缺点是首页主页面打开速度可能受影响。<br>边框界面可自由定做<br>
      <br>
  <textarea name="textarea" cols="80" rows="8" class="input2">
  <!----友情链接开始-----> 
  <table width="760" border="0" align="center" cellpadding="0" cellspacing="0">    
  <tr>
   <td align="center">
  <script type="text/javascript" src="link/js.asp"></script>
</td>
  </tr>
</table> 
  <!---友情连接结束----> 
      </textarea></td>
  </tr></td>
        </tr>
      </table> 
      <%
end sub
sub ListSite
dim find,webtype,pl,ob,IsVerify,id,intt
dim rs,sql
dim condition,linkstr
find=hx.checkstr(request("find"),20)
webtype=request("webtype")

sql="select * from tt_Link"

pl=request("pl")
if pl="" then pl="dateandtime"
linkstr = "pl=" & pl

IsVerify=request("IsVerify")
intt=request("intt")

if IsVerify="" or not isnumeric(IsVerify) then 
	IsVerify=""
	if intt<>"" then
	condition = " where (date()-indate)>"&intt&" and 1=1 " 
	else
	condition = " where 1=1 " 
	end if
else
	if IsVerify=1 then
	if intt<>"" then
	condition = " where (date()-indate)>"&intt&" and IsVerify="&strTrue
	else 
	condition = " where IsVerify="&strTrue
	end if 
	linkstr = linkstr & "&IsVerify=1"	
	else
	if intt<>"" then
	condition = " where (date()-indate)>"&intt&" and IsVerify="&strFalse
	else
	condition = " where IsVerify="&strFalse
	end if
	linkstr = linkstr & "&IsVerify=0"
	end if
end if

ob = request("ob")
if ob<>"asc" then ob="desc"
123

⌨️ 快捷键说明

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