<!--#include file="conn.asp"-->
<%if session(hxCacheName&"_admin")<>"OK" then
    response.redirect("admin_login.asp")
    end if%>
<%
'-------------------------------------
'功能：管理员管理网站首页
'天天智能友情链接管理系统
'久久时空制作 http://www.99shik.cn
'博大网址库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>
              =========================================================================
             ▲ 程序名称: 久久时空智能友情链接管理系统        
             ▲ 程序作者: <a href="http://www.99shik.cn/" target="_blank">久久时空</a>
             ▲ 程序测试: <a href="http://www.99shik.cn/ttlink/">http://www.99shik.cn/ttlink/</a>
             ▲ 当前版本: v2.6                   
             ▲ 最新版本: <a href="http://www.99shik.cn/bbs" target="_blank">支持论坛</a>　<a href="http://www.99shik.cn/link/download.asp" target="_blank">程序下载</a>
             ▲ 版权声明: 久久时空智能友情链接管理系统由自用到网上发布，经几年多次改进，
                期间撷取了飞越智能友情链接系统、博大网址库智能友情链接系统、ITlearner智
                能友情链接系统等优秀程序中的源代码，对他们的作者表示感谢。本软件最终版
                权归久久时空所有
              ▲久久时空智能自助友情链接系统为免费自由软件，本软件可自由传播和使用，但必
              须保留“感谢久久时空提供本程序”的链接。久久时空工作室花费那么多心血为大家
              搞一个免费软件，只要求保留一个本站的链接。有的站主使用久久时空智能友情链接
              后，把有关版权信息去得一干二净，试问如果你是作者心情怎样？还有什么动力搞软件？
              ▲您在使用或传播中如果出现任何问题和由此造成的任何损失，使用本系统的网站的内
              容以及导致的任何法律争议和后果与久久时空无关，久久时空不承担任何责任。
              ▲使用久久时空智能友情链接的用户请到作者网站登记一下，以获得本站最新版本资
              讯<a href="http://www.99shik.cn/link/union.asp" target="_blank">http://www.99shik.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"
'asc顺序
'desc倒序
if webtype="" or not isnumeric(webtype) then
	webtype=0 
elseif webtype>0 then
	condition = condition & " and webtype="&webtype
end if
	linkstr = linkstr & "&action=ListSite&webtype="&webtype


if find<>"" then
	condition = condition & " and (ttname like '%"&find&"%' or ttinfo like '%"&find&"%' or tturl like '%"&find&"%')"
	linkstr = linkstr & "&action=ListSite&find="&find
end if


'分页信息
dim PageNo
PageNo=Request.QueryString("PageNo")
if PageNo="" or not isnumeric(PageNo) then
PageNo=1
else
PageNo=int(PageNo)
end if

'普通sql语句
sql=sql & condition &" ORDER BY "&pl&" "&ob

%> 
<div style="text-align:center;">
<table width="100%">
<tr class="bt<%=skin%>" >
        <form method="post" action="?action=ListSite">
          <p>关键字： 
                <input name="find" type="text" id="find" value="<%=find%>" size="15" maxlength="20">
                网站分类： 
                <select name="webtype" size="1">
                  <option value="">全部类别</option>
                  <%hx.listwebtype webtype,0%>
                </select>
                排序： 
                <select name="pl" size="1">
                  <option value="inc"<%if pl="inc" then%> selected<%end if%>>总计点入</option>
                  <option value="inj"<%if pl="inj" then%> selected<%end if%>>今天点入</option>
                  <option value="inp"<%if pl="inp" then%> selected<%end if%>>平均点入</option>
                  <option value="outc"<%if pl="outc" then%> selected<%end if%>>总计点出</option>
                  <option value="outj"<%if pl="outj" then%> selected<%end if%>>今天点出</option>
                  <option value="outp"<%if pl="outp" then%> selected<%end if%>>平均点出</option>
                  <option value="indate"<%if pl="indate" then%> selected<%end if%>>点入时间</option>
                  <option value="outdate"<%if pl="outdate" then%> selected<%end if%>>点出时间</option>
                  <option value="fromdate"<%if pl="fromdate" then%> selected<%end if%>>统计时间</option>
                  <option value="dateandtime"<%if pl="dateandtime" then%> selected<%end if%>>加入时间</option>
                </select>
                <select name="ob" size="1">
                	<option value="asc"<%if ob="asc" then response.write " selected"%>>顺序</option>
                	<option value="desc"<%if ob="desc" then response.write " selected"%>>倒序</option>
                </select>   
                <select name="IsVerify" size="1">
                	<option value=""<%if IsVerify="" then response.write " selected"%>>所有</option>             
                	<option value="0"<%if IsVerify="0" then response.write " selected"%>>未审核</option>
                	<option value="1"<%if IsVerify="1" then response.write " selected"%>>已审核</option>
                </select>
                <select name="intt" size="1">
                	<option value=""<%if intt="" then response.write " selected"%>>点入情况</option>             
                	<option value="10"<%if intt="10" then response.write " selected"%>>10天未点入</option>
                	<option value="30"<%if intt="30" then response.write " selected"%>>30天未点入</option>
                	<option value="90"<%if intt="90" then response.write " selected"%>>90天未点入</option>
                </select>                                                      
                <input name="submit" type="submit" value="查 询">
           </form>
           

</table>
</div>
<%

set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1

if not rs.eof then
	rs.PageSize = MaxPageSize
	rs.AbsolutePage = PageNo 
	dim i
	i=0   
%>
<table border="1" align="center" cellpadding="3" cellspacing="0" bordercolorlight="#000000" bordercolordark="#FFFFFF">
  <tr align="center" class="main_title<%=skin%>"> 
    <td width="100">网站名称</td>
    <td width="100">链接图标</td>
    <td width="100">网站类别</td>
    <td width="100">网站登记时间</td>
    <td width="100">开始统计时间</td>
    <td width="100">最后点入时间</td>
    <td width="100">最后点出时间</td>
  </tr>
  <%Do While Not rs.EOF and i<MaxPageSize%>
  <tr align="center" class="tr<%=skin%>"> 
    <td><%if rs("top")=1 then%><img src=../images/top.gif width=18 height=15 alt="固顶网址" border="0"> <%end if%><%if rs("gd")=1 then%><img src=../images/gd.gif width=18 height=15 alt="点入豁免网址" border="0"> <%end if%><br><a href="http://<%=hx.BaseUrl%>ttout.asp?username=<%=rs("username")%>" target="_blank"><%if rs("IsVerify")=0 then%><font color="#FF0000"><%=rs("ttname")%></font><%else%><%=rs("ttname")%><%end if%></a></td>
    <td><a href="http://<%=hx.BaseUrl%>ttout.asp?username=<%=rs("username")%>" target="_blank"><img src=<%=hx.htmlencode2(rs("ttlogo"))%> width=88 height=31 alt="网址:<%=hx.htmlencode2(rs("tturl"))%>" border="0"></a></td>
    <td><%=hx.showwebtype(rs("webtype"))%></td>
    <td><%=rs("dateandtime")%></td>
    <td><%=rs("fromdate")%></td>
    <td><%=rs("indate")%></td>
    <td><%=rs("outdate")%></td>
  </tr>
  <tr class="tr<%=skin%>"> 
    <td align="center">贡献统计</td>
    <td colspan="3" align="center">
    [点入]:总计 <%=rs("inc")%> 今天 <%=rs("inj")%> 平均 <font color="#00009F"><%=formatnumber(rs("inp"),2,-1)%></font></td><td colspan="3" align="center">
    [点出]:总计 <%=rs("outc")%> 今天 <%=rs("outj")%> 平均 <font color="#00009F"><%=formatnumber(rs("outp"),2,-1)%></font> 
    </td>
  </tr>  

  <tr class="tr<%=skin%>"> 
    <td align="center">简　介</td>
    <td colspan="6"><%=hx.htmlencode2(rs("ttinfo"))%></td>
  </tr>
  <tr class="tr<%=skin%>"> 
    <td align="center">网　址</td>
    <td colspan="2"><a href="ttout.asp?username=<%=rs("username")%>" target="_blank"><%=hx.htmlencode2(rs("tturl"))%></a></td>
    <td align="center">邮　箱</td>
    <td colspan="2"><%if rs("maillist")=1 then%><img border=0 width=18 height=18 src=../images/email.gif alt="此用户已订阅邮件列表"><%end if%><%if emailkg=1 then%><a href="#" onClick="window.open('admin_editmail.asp?id=<%=rs("id")%>','Sample','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=no,copyhistory=no,width=400,height=350,left=300,top=100')"><%=rs("email") %></a><%else%><a href=mailto:<%=rs("email")%>><%=rs("email") %></a><%end if%></td>
        <td align="center"><font color="#FF0000"><span id="followImg<%=k%>" style="CURSOR: hand" onClick="loadThreadFollow(<%=k%>,5)">控制面板</span></font></td>
  </tr>
  <tr style="display:none" id="follow<%=k%>"> 
    <td bgcolor="#FDF0F9"><div align="center">管理选项</div></td>
    <td colspan=6 bgcolor="#FDF0F9"><a href="admin_editlink.asp?username=<%=rs("username")%>">修 
      改</a>&nbsp;&nbsp;&nbsp;&nbsp;  <a href="?Action=del&username=<%=rs("username")%>" onclick="return confirm('确定要删除吗？')">删 
      除</a>&nbsp;&nbsp;&nbsp;&nbsp; <a href="?action=init&username=<%=rs("username")%>" onclick="return confirm('初始化后，此网站数据将清零，你确认要初始化吗？')">初始化统计</a>&nbsp;&nbsp;&nbsp;&nbsp;  
      <a href="?action=ShowLog&username=<%=rs("username")%>&inout=0">查看点入记录</a>&nbsp;&nbsp;&nbsp;&nbsp;  
      <a href="?action=ShowLog&username=<%=rs("username")%>&inout=1">查看点出记录</a>
<br>
   <%if rs("IsVerify")=strTrue then 
   response.write "<font color='#0000ff'><a href=admin_manage.asp?action=edit1&id="&rs("id")&"><font color='#0000ff'>取消审核</font></a></font>"           
   else   
 response.write "<a href=admin_manage.asp?action=edit&id="&rs("id")&"><font color='#FF0000'>审核</font></a>"
    end if%>&nbsp;&nbsp;&nbsp;&nbsp; 
            <%if rs("gd")=1 then 
   response.write "<a href=admin_manage.asp?action=rg&id="&rs("id")&"><font color='#0000ff'><font color='#0000ff'>取消点入豁免</font></a>"
   else   
  response.write "<a href=admin_manage.asp?action=wg&id="&rs("id")&"><font color='#FF0000'>点入豁免</font></a>" 
   end if%>&nbsp;&nbsp;&nbsp;&nbsp;  
   <%if emailkg=1 then%>
    <a href=admin_manage.asp?action=femail&cmts1=1&username=<%=rs("username")%>><font color="#FF0000">催放代码</font></a> &nbsp;&nbsp;&nbsp;&nbsp; 
    <a href=admin_manage.asp?action=femail&cmts2=1&username=<%=rs("username")%>><font color="#FF0000">错码通知</font>
  <%end if%>&nbsp;&nbsp;&nbsp;&nbsp;    
    <a href="#" ONCLICK="window.open('admin_code.asp?username=<%=rs("username")%>','Sample','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=no,copyhistory=no,width=600,height=550,left=100,top=100')"><font color="#FF0000">链接代码</font></a>   
    </td>
  </tr>
  <tr class="jg<%=skin%>"> 
    <td height="5" colspan="7" ></td>
  </tr>

  <% 
i=i+1
k=k+1  '控制面板
rs.MoveNext
if k>=MaxPageSize then exit do  '控制面板,MaxPageSize为每页记录数
Loop  
else
%>
  <tr> 
    <td height="80" colspan="7" align="center"><B>没有找到你所查询的网站</B></td>
  </tr>
  <%
end if  
rs.close
set rs=nothing

%>
</table><div class="cutpage">      
<%hx.showPageInfo "tt_Link","username",condition,PageNo,MaxPageSize,linkstr%>
</div>

<%end sub%>
<%sub BatchDelform%>
<%if session(hxCacheName&"_admin")<>"OK" then
    response.redirect("admin_login.asp")
    end if
 if request.cookies(hxCacheName&"_rank")("rank")>2 then
  	response.write "<script language='javascript'>"
	response.write "alert('您的级别不够！');"
	response.write "location.href='javascript:history.go(-1)';"			
	response.write "</script>"
    end if%>
<form name="form1" method="post" action="?action=BatchDelWeb">
        删除初始化后 
        <input name="daynum" type="text" value="30" size="3" maxlength="4">
        天内总点击进入数小于 
        <input name="hitsnum" type="text" id="hitsnum" value="1" size="3" maxlength="4">
        的站点 
        <input type="submit" name="Submit" value="删除">
      </form>
<form name="form1" method="post" action="?action=BatchDelLog">
        删除 
        <input name="daynum" type="text" value="15" size="3" maxlength="4">
        天前的点击记录(用户3天内的点入点出记录不会被删除) 
        <input type="submit" name="Submit" value="删除">
      </form>
<%
Call GoBack
end sub

sub femail
cmts1=request.QueryString("cmts1")
cmts2=request.QueryString("cmts2")
username=request.QueryString("username")
dim cmts1,cmts2,sql,ttname,username,email,kkk,mailsubject,jmail,ErrStr
set rs=server.createobject("adodb.recordset")
sql="select * from tt_Link where username='"&username&"'"
rs.open sql,conn,1,1
email=rs("email")
ttname=rs("ttname")

if email<>"" and email<>"ttxxxx@ttxxxx.com" then
if cmts1=1 then
kkk="贵站--【 "&rs("ttname")&" 】曾在《"&webname&"》申请友情链接，但经检查贵站尚未按规定放置与本站链接代码，请尽快放置下列代码（注意网址应带您的注册名:"&rs("username")&"）。并点击进入本站一次。完成后请回信告知。谢谢！<br>网站名称："&webname&"<br>网址："&weburl&"link/ttindex.asp?id="&rs("username")&"<br>LOGO:"&weburl&"link/images/logo.gif<br>网站简介："&WebAlt&""
mailsubject="您申请的友情链接尚未放置代码"
end if
if cmts2=1 then
kkk="贵站--【 "&rs("ttname")&" 】在《"&webname&"》申请的友情链接已审核通过，但贵站使用的代码有误，本站无法正常在首页显示贵站。本站链接代码如下（注意网址应带您的注册名:"&rs("username")&"）。并点击进入本站一次。修改后请回信告知。谢谢！<br>网站名称："&webname&"<br>网址："&weburl&"link/ttindex.asp?id="&rs("username")&"<br>LOGO："&weburl&"link/images/logo.gif<br>网站简介："&WebAlt&"<br>"
mailsubject="您的友情链接代码有误"
end if

rs.close '释放资源
set rs=nothing
'jmail邮件组件发送邮件开始，下面的值要先取得
Set jmail = Server.CreateObject("JMail.Message") 
jmail.silent = true '屏蔽例外错误，返回FALSE跟TRUE两值
jmail.Logging = true '启用邮件日志
jmail.Charset = "gb2312"  '邮件的文字编码为国标
jmail.ContentType = "text/html"    '邮件的格式为文本/HTML(text/html)格式
jmail.MailServerUserName = servemail '输入smtp服务器验证登陆名 （邮局中任何一个用户的Email地址） 
jmail.MailServerPassword = servekey '输入smtp服务器验证密码 （用户Email帐号对应的密码） 
jmail.From = webemail '发信人信箱，因服务器反垃圾邮件，此信箱必须与发信服务器同域用户的信箱！ 
jmail.FromName = webname '发件人姓名 
jmail.AddRecipient email '收件人Email 
jmail.Subject = mailsubject '邮件的标题 
jmail.Body = kkk '邮件的内容
 'jmail.Prority = 1      '邮件的紧急程序,必须服务器支持，1 为最快，5 为最慢， 3 为默认值
 if mailuserdomain<>"" then
JMail.MailDomain =mailuserdomain '域名（若用“name@domain.com”这样的用户名登录时，请指明domain.com
end if
jmail.Send (servesmtp) '执行邮件发送smtp服务器地址（企业邮局地址） 
set jmail = nothing '关闭对象
if ErrStr = "" then
response.Write "<script language=javascript>alert('恭喜！发给【"&ttname&"】的邮件成功！');history.go(-1);</script>"
response.end
else	
Response.Write "很遗憾！由于：<b>" & ErrStr & "</b>邮件未能发送！<br>请检查各项设置或与管理员联系."
end if	'发送结果判断结束   
'邮件发送结束
else
response.Write "<script language=javascript>alert('此用户邮箱无效，无法发送邮件！');location.replace('admin_manage.asp?action=ListSite');</script>"
end if
rs.close
set rs=nothing
end sub

dim rs
sub rg
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from tt_link where id="&request.querystring("id"),conn,1,3
rs("gd")=0
response.write "<script language=JavaScript>" & chr(13) & "alert('操作成功！');" &"window.location='admin_manage.asp?action=ListSite'" & "</script>"  	
rs.update
rs.close
set rs=nothing
end sub

sub wg
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from tt_link where id="&request.querystring("id"),conn,1,3
rs("gd")=1
rs.update
 response.write "<script language=JavaScript>" & chr(13) & "alert('操作成功！');" &"window.location='admin_manage.asp?action=ListSite'" & "</script>"
rs.close
set rs=nothing
end sub

sub edit
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from tt_link where id="&request.querystring("id"),conn,1,3
rs("IsVerify")=1
response.write "<script language=JavaScript>" & chr(13) & "alert('操作成功！');" &"window.location='admin_manage.asp?action=ListSite'" & "</script>"
rs.update
rs.close
set rs=nothing
end sub

sub edit1
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from tt_link where id="&request.querystring("id"),conn,1,3
rs("IsVerify")=0
rs("gd")=0
response.write "<script language=JavaScript>" & chr(13) & "alert('操作成功！');" &"window.location='admin_manage.asp?action=ListSite'" & "</script>"
rs.update
rs.close
set rs=nothing
end sub

sub dellink
	dim username
	username=hx.checkstr(request("username"),12)
	hx.execute("delete from tt_Link where username='"&username&"'")
	response.write "<p align=""center"">用户名为"& username & "的网站删除成功</p>"
	Call GoBack
end sub

sub init

 if request.cookies(hxCacheName&"_rank")("rank")>1 then
  	response.write "<script language='javascript'>"
	response.write "alert('您的级别不够！');"
	response.write "location.href='javascript:history.go(-1)';"			
	response.write "</script>"
   else
	dim username
	username=hx.checkstr(request("username"),12)
	if username="" then
		hx.execute("update tt_Link set inc=0,inj=0,inp=0,outc=0,outj=0,outp=0,fromdate=date(),indate=date(),outdate=date()")
		response.write "<p align=center>初始化完毕！所有数据已清零，从今天起开始重新统计！</p>"
	else
		hx.execute("update tt_Link set inc=0,inj=0,inp=0,outc=0,outj=0,outp=0,fromdate=date(),indate=date(),outdate=date() where username='"&username&"'")
		response.write "<p align=center>"&username&"的站点初始化完毕！所有数据已清零，从今天起开始重新统计！</p>"	
	end if
	Call GoBack
	 end if
end sub

sub BatchDelWeb
	dim rs,daynum,hitsnum,TotalCount
	daynum=request.form("daynum")
	hitsnum=request.form("hitsnum")
	'容错判断
	if daynum="" or not isnumeric(daynum) then daynum=30
	if hitsnum="" or not isnumeric(hitsnum) then hitsnum=1
	'开始删除	
	set rs=hx.execute("select count(*) from tt_Link where fromdate<"&SqlNowString&"-"&daynum&" and inc<"&hitsnum)
	TotalCount=rs(0)
	set rs=nothing
	if TotalCount>0 then
		hx.execute("delete from tt_Link where fromdate<"&SqlNowString&"-"&daynum&" and inc<"&hitsnum)	
		response.write "成功删除了" & TotalCount &"个站点"
	else
		response.write "暂时没有符合删除条件的站点"
	end if
	Call GoBack
end sub

sub BatchDelLog
	dim rs,daynum,TotalCount
	daynum=request.form("daynum")
	'容错判断
	if daynum="" or not isnumeric(daynum) then daynum=15
	if daynum<=3 then daynum=15	
	'开始删除	
	set rs=hx.execute("select count(*) from tt_Log where dateandtime<"&SqlNowString&"-"&daynum)
	TotalCount=rs(0)
	set rs=nothing
	if TotalCount>0 then
		hx.execute("delete from tt_Log where dateandtime<"&SqlNowString&"-"&daynum)	
		response.write "成功删除了" & TotalCount &"条记录"	
	else
		response.write "暂时没有符合删除条件的记录"
	end if
	Call GoBack
end sub

sub ShowLog
	dim rs,sql
	dim inout
	dim username
	dim strtitle
	username=hx.checkstr(request.QueryString("username"),12)
	inout=request.QueryString("inout")
	if inout="0" then
		strtitle="点入记录"
	elseif inout="1" then
		strtitle="点出记录"
	else
		strtitle="点入点出记录"		
	end if
	
	dim PageNo
	PageNo=Request.QueryString("PageNo")
	if PageNo="" or not isnumeric(PageNo) then
		PageNo=1
	else
		PageNo=int(PageNo)
	end if
	dim condition,linkstr
	if username="" then
		if inout="" then
			condition=""
			linkstr="action=ShowLog"
		else
			condition="where inout="&inout
			linkstr="action=ShowLog&inout="&inout
		end if		
	else
		strtitle= "<a href=""admin_editlink.asp?username="&username&""" title='查看"&username&"的网站资料'>"&username&"</a>的网站的" & strtitle
		if inout="" then
			condition="where username='"&username&"'"
			linkstr="action=ShowLog&username="&username
		else		
			condition="where inout="&inout &" and username='"&username&"'"
			linkstr="action=ShowLog&inout="&inout &"&username="&username
		end if	
	end if
	if inout<>"" then
		
	end if
%>
<p align="center"><%=strtitle%></p>
<%
if username="" and inout="" then
set rs = hx.execute("select count(inout) from tt_Log where Datediff('d',dateandtime,date())=0 and inout=0")
response.write "<div align=center>今天总点入：" & rs(0)
set rs = nothing
set rs = hx.execute("select count(inout) from tt_Log where Datediff('d',dateandtime,date())=0 and inout=1")
response.write " 今天总点出：" & rs(0) & "</div>"
set rs = nothing
end if%>
<table width="95%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#000000">
  <tr align="center" class="tr<%=skin%>"> 
  <%if username="" then response.write "<td width=""100"">用户名</td>"
if inout="" then response.write "<td width=""40"" align=center>状态</td>"
  %>
    <td width="100">时间</td>
    <td width="100">IP地址</td>
    <td>来源页面</td>
  </tr>
  <%
	set rs=server.createobject("adodb.recordset")
	sql="select * from tt_Log "&condition&" order by id desc"
	rs.open sql,conn,1,1
	if rs.eof then
		Response.write "<tr><td colspan=""3"" align=""center"" class=""tr2"">暂时还没有记录</td></tr>"
	else
		rs.PageSize = MaxPageSize
		rs.AbsolutePage = PageNo 
		dim i
		i=0   
		do while not rs.eof and i<MaxPageSize
	%>
  <tr class="tr<%=skin%>">
<%if username="" then response.write "<td><a href=""?action=ShowLog&username="&rs("username")&""">"&rs("username")&"</a></td>"
if inout="" then
response.write "<td align=""center"">"
		response.write "<a href=""?action=ShowLog&username="&username&"&inout="&rs("inout")&"""><font color=""#000000"">"
	if rs("inout")=0 then
		response.write "点入"
	else
		response.write "点出"
	end if
		response.write "</font></a>"
response.write "</td>"
end if
 %>
    <td><%=rs("dateandtime")%></td>
    <td><%="<a href='http://www.ip138.com/ips.asp?ip="&rs("ip")&"' title='查询此IP地址所在区域' target='_blank'>"&rs("ip")&"</a>"%></td>
    <td style="word-break:break-all;Width:fixed;"><%if trim(rs("come"))="" then
		  	response.write "无"
		  else
		  	response.write "<a href="""&rs("come")&""" target=""_blank"">"&rs("come")&"</a>"
		  end if%> </td>
  </tr>
  <%
		i=i+1
		rs.movenext
		loop
	end if
	set rs=nothing%>
</table>
<div class="cutpage">
<%hx.showPageInfo "tt_Log","id",condition,PageNo,MaxPageSize,linkstr%>
</div>
<%
Call GoBack
end sub

Sub ClearCache
	response.write "<p align=center>删除本系统缓存成功</p>"
	set hxcache=new cls_cache
	hxcache.DelCahe("js")
	set hxcache=nothing
	Call GoBack	
End Sub

Sub Summary
	dim rs
	dim TotalSite,TotalSite1,Totalinc,Totaloutc,Totalinj,Totaloutj
	TotalSite = hx.execute("select count(0) from tt_Link")(0)
	TotalSite1 = hx.execute("select count(0) from tt_Link where inc > 0")(0)
	set rs = hx.execute("select sum(inc),sum(outc) from tt_Link")
	Totalinc = rs(0)
	Totaloutc = rs(1)
	set rs =  nothing
	set rs = hx.execute("select sum(inj),sum(outj) from tt_Link")
	Totalinj = rs(0)
	Totaloutj = rs(1)
	set rs =  nothing
	response.write "<p>总有网站："&TotalSite
	response.write "<br>有效网站："&TotalSite1 & "(有产生过点入次数的网站)"
	response.write "<br>总计点入："&Totalinc
	response.write "<br>总计点出："&Totaloutc
	response.write "<br>今天点入："&Totalinj
	response.write "<br>今天点出："&Totaloutj			
	Call GoBack
End Sub

Sub GoBack
	Response.Write "<p align=""center""><< <a href=""javascript:history.go(-1)"">返回上一页</a></p>"	
End Sub
%>
<!--#include file="../under.asp"-->
<%set hx=nothing%>
