📄 admin_manage.asp
字号:
'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> <a href="?Action=del&username=<%=rs("username")%>" onclick="return confirm('确定要删除吗？')">删
除</a> <a href="?action=init&username=<%=rs("username")%>" onclick="return confirm('初始化后，此网站数据将清零，你确认要初始化吗？')">初始化统计</a>
<a href="?action=ShowLog&username=<%=rs("username")%>&inout=0">查看点入记录</a>
<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%>
<%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%>
<%if emailkg=1 then%>
<a href=admin_manage.asp?action=femail&cmts1=1&username=<%=rs("username")%>><font color="#FF0000">催放代码</font></a>
<a href=admin_manage.asp?action=femail&cmts2=1&username=<%=rs("username")%>><font color="#FF0000">错码通知</font>
<%end if%>
<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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -