?? 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 + -