📄 admin_manage.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="Conn.asp"-->
<%
If Session(SiteSN&"_Admin_Login")<>AdminName&"_"&AdminPass Then
Response.redirect "Admin_Login.asp"
Response.End
End If
dim Action
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=utf-8">
<link href="style.css" rel="stylesheet" type="text/css">
<title>管理网站信息_<%=WebName & ChannelName%></title>
<style type="text/css">
<!--
.STYLE1 {color: #6699FF}
-->
</style>
</head>
<body>
<div class="main_title1">
<a href="admin_manage.asp">管理首页</a> | <a href="Admin_Addlink.asp">添加站点</a> | <a href="?action=ListSite">管理网站信息</a> | <a href="?action=ShowLog">查看点击记录</a> | <a href="admin_type.asp">管理网站分类</a> | <a href="?action=BatchDelform">批量删除数据</a> | <a href="admin_login.asp?action=exit">退出管理</a>
</div>
<div class="mainbar">
<%
select case Action
case "ShouXian0"
call ShouXian0
case "ShouXian1"
call ShouXian1
case "GuLian0"
call GuLian0
case "GuLian1"
call GuLian1
case "peizhi"
call peizhi
case "edit"
call edit
case "edit1"
call edit1
case "del"
call dellink
case "init"
call init
case "BatchDelform"
call BatchDelform
case "BatchDelWeb"
call BatchDelWeb
case "BatchDelLog"
call BatchDelLog
case "BatchDelOnline"
call BatchDelOnline
case "ShowLog"
call ShowLog
case "ListSite"
call ListSite
case "CompactDB"
call Compact
case "Summary"
call Summary
case else
call main
end select
%></div><%
sub main
%>
<table width="700" border="0" align="center" cellpadding="3" cellspacing="0">
<%
If WapOnline = 1 Then
Response.write "<tr>"
Response.write "<td colspan=""2"" align=""center""><strong>"
strold=Wap.ReadData()
If not(isnull(strold) or len(strold)<6) Then
vstr=split(Wap.ReadData(),vbcrlf)
'访问天数、平均每天访问量
vdays=now()-cdate(vstr(4))
vdayavg=vstr(1)/vdays
vdays=int((vdays*10^3)+0.5)/10^3
If vdays<1 Then vdays="0" & vdays
vdayavg=int((vdayavg*10^3)+0.5)/10^3
Response.write "总浏览量:"&vstr(0)&""
Response.write "总访问数:"&vstr(1)&""
Response.write "今日访问数:"&vstr(2)&""
Response.write "昨日访问数:"&vstr(3)&"<br/>"
Response.write "开始统计日期:"&vstr(4)&""
Response.write "统计天数:"&vdays&""
Response.write "平均日访问量:"&vdayavg&""
Response.write "最高日访问量:"&vstr(7)&""
Response.write "发生日期:"&vstr(8)&""
End If
Response.write "</strong></tr>"
End If
If Session(Wapsn)="NO" or Session(Wapsn)="" Then
Response.write "<tr><td colspan=""2""><div style='text-align:center;font-weight:bold;color:red'>对不起，您的授权号码有误，如果您是我们的正式版用户，请联系QQ:418704 获取！</div></td></tr>"
End If
%>
<tr>
<td width="110"><img src="images/common.gif" width="9" height="15">
<a href="?action=ListSite" class="t">管理网站</a></td>
<td width="590">10种排序方式显示各个网站的信息，您可以修改、初始化、删除其站点并查看点入点出记录。</td>
</tr>
<tr>
<td width="110"><img src="images/common.gif" width="9" height="15">
<a href="?action=Summary" class="t">统计记录</a></td>
<td width="590">查看总网站数，总点入点出次数等系统总体概况数据。</td>
</tr>
<tr>
<td><img src="images/common.gif" width="9" height="15"> <a href="?action=ShowLog" class="t">点击记录</a></td>
<td>查看所有用户的点入点出记录，也可单独查看点入或点出的记录，也可单独查看某一用户的点入点出记录。</td>
</tr>
<%If WapGoto=1 Then%>
<tr>
<td><img src="images/common.gif" width="9" height="15"> <a href="Admin_Goto.asp" class="t">流量作弊</a></td>
<td>可以对防图刷的站和一些不防刷导航进行排名流量作弊。</td>
</tr>
<%End If%>
<tr>
<td><img src="images/common.gif" width="9" height="15"> <a href="Admin_GuestBook.asp" class="t">留言管理</a></td>
<td>查看用户的留言。</td>
</tr>
<tr>
<td><img src="images/common.gif" width="9" height="15"> <a href="Admin_Article.asp" class="t">定义页面</a></td>
<td>帮助做出多种个性内容。</td>
</tr>
<tr>
<td><img src="images/common.gif" width="9" height="15"> <a href="Admin_Advertise.asp" class="t">广告管理</a></td>
<td>查看所有广告的点入点出记录。</td>
</tr>
<tr>
<td><img src="images/common.gif" width="9" height="15"> <a href="?action=BatchDelform" class="t">删除数据</a></td>
<td>可选择删除初始化后指定天数内总点击进入数小于指定数量的站点; 删除指定天数前的点击记录(用户3天内的点入点出记录不会被删除)。 </td>
</tr>
<tr>
<td><img src="images/common.gif" width="9" height="15"> <a href="admin_peizhi.asp" class="t">修改配置</a></td>
<td>可修改23个自定义参数，可自行修改配置。 </td>
</tr>
<tr>
<td><img src="images/common.gif" width="9" height="15"> <a href="admin_type.asp" class="t">管理分类</a></td>
<td>添加、修改、排序、删除网站分类。 </td>
</tr>
<tr>
<td><img src="images/common.gif" width="9" height="15"> <a href="?action=init" class="t" onClick="return confirm('初始化后，所有数据将清零，你确认要继续吗？')">初始数据</a></td>
<td>初始化后，所有网站的数据都将清零，请谨慎操作！</td>
</tr>
<tr>
<td><img src="images/common.gif" width="9" height="15"> <a href="admin_database.asp" class="t">数据管理</a></td>
<td>建议每隔一段时间，对数据库进行压缩备份操作。</td>
</tr>
<tr>
<td><img src="images/common.gif" width="9" height="15"> <a href="admin_login.asp?action=exit" class="t">退出管理</a></td>
<td>防止他人非法更改资料哦！管理完毕，请一定要退出，尤其是在公用的电脑上。</td>
</tr>
<td colspan="2">
<div align="center"><strong> 版权声明</strong>
<br/>
本系统由手机玛雅网络（<a href="http://wapcr.cn/" target="_blank">Wapcr.Cn</a>）独立开发，授权给[<%=WapName%>]使用。任何个人或组织不得在授权允许的情况下删除、修改、拷贝本软件及其他副本上一切关于版权的信息。<br/>
业务,技术咨询QQ：418704</div></td>
</tr>
</table>
<%
end sub
sub ListSite
dim Find,webtype,pl,ob,isverify
dim rs,sql
dim condition,linkstr
dim MaxPageSize:MaxPageSize=5 '每页显示的记录数
Find=Wap.checkstr(Request("Find"),20)
webtype=Request("webtype")
sql="select * from 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"
ElseIf IsVerify=0 then
if intt<>"" then
condition = " where (date()-indate)>"&intt&" and IsVerify="&strFalse
else
condition = " where IsVerify="&strFalse
end if
linkstr = linkstr & "&IsVerify=0"
ElseIf IsVerify=3 Then
if intt<>"" then
condition = " where (date()-indate)>"&intt&" and GuLian=1"
else
condition = " where GuLian=1"
end if
linkstr = linkstr & "&IsVerify=1"
ElseIf IsVerify=4 Then
if intt<>"" then
condition = " where (date()-indate)>"&intt&" and WuxIao>50"
else
condition = " where WuxIao>50"
end if
linkstr = linkstr & "&IsVerify=1"
End If
end if
ob = Request("ob")
if ob<>"asc" then ob="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 (UserName like '%"&Find&"%' or siteName like '%"&Find&"%'or siteTitle like '%"&Find&"%' or siteintro like '%"&Find&"%' or siteurl like '%"&Find&"%')"
linkstr = linkstr & "&action=ListSite&Find="&Find
end if
'分页信息
dim PageNo
PageNo=Request.QueryString("PageNo")
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -