📄 admin_wapmanage.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="Conn.asp"-->
<%Response.ContentType = "text/vnd.wap.wml; charset=utf-8"%><?xml version="1.0" encoding="utf-8"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<wml>
<head>
<meta http-equiv="Cache-Control" content="no-Cache"/>
<meta http-equiv="Cache-Control" content="max-age=0"/>
</head>
<card title="管理网站信息_<%=WebName & ChannelName%>">
<p align="left">
<%
dim Action:Action=Request.QueryString("Action")
dim ok:ok=Wap.checkstr(Request("ok"),12)
If Session(WapCacheName)<>AdminName&AdminPass Then
Response.write "请重新<a href=""Admin_WapLogin.asp"">登录！</a><br/>"
Else
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 "Online"
call Online
case else
call main
end select
Response.write "<a href=""index.asp"">"&ChannelName&"</a>"
End If
%>
<%
sub main
%>
关键字<input name="Find" type="text" value="" maxlength="20"/><br/>
分类<select name="webtype" size="1">
<option value="">全部</option>
<%set rs1=wap.execute("select * from WebType order by orderid")
m=1
do while not rs1.eof
Response.write " <option value="""&rs1("id")&""">"&rs1("name")&"</option>"
rs1.movenext
m=m+1
loop
set rs1=nothing
%>
</select><br/>
排序<select name="pl" size="1">
<option value="inc">总计点入</option>
<option value="inj">今天点入</option>
<option value="inru">昨天点入</option>
<option value="inp">平均点入</option>
<option value="outc">总计点出</option>
<option value="outj">今天点出</option>
<option value="outj">昨天点出</option>
<option value="outp">平均点出</option>
<option value="indate">点入时间</option>
<option value="outdate">点出时间</option>
<option value="fromdate">统计时间</option>
<option value="dateandtime">加入时间</option>
</select>
<select name="ob" size="1">
<option value="asc">顺序</option>
<option value="desc">倒序</option>
</select>
<select name="isverify" size="1">
<option value="">所有站点</option>
<option value="0">未审站点</option>
<option value="1">已审站点</option>
<option value="3">固链站点</option>
<option value="4">无效链入</option>
</select>
<select name="intt" size="1">
<option value="">点入情况</option>
<option value="3">3天未点入</option>
<option value="5">5天未点入</option>
<option value="7">7天未点入</option>
<option value="10">10天未点入</option>
<option value="30">30天未点入</option>
<option value="90">90天未点入</option>
</select> <br/>
<anchor>查找网站<go href="Admin_WapManage.asp?action=ListSite" method="post">
<postfield name="Find" value="$(Find)"/>
<postfield name="webtype" value="$(webtype)"/>
<postfield name="pl" value="$(pl)"/>
<postfield name="ob" value="$(ob)"/>
<postfield name="isverify" value="$(isverify)"/>
<postfield name="intt" value="$(intt)"/>
</go></anchor><br/>
=管理网站=<br/>
<a href="Admin_WapAddlink.asp">添加站点</a> <a href="Admin_WapManage.asp?action=ListSite">管理网站</a><br/>
<a href="Admin_WapManage.asp?action=Summary">统计记录</a> <a href="Admin_WapManage.asp?action=Online">流量统计</a><br/>
<a href="Admin_WapGuestBook.asp">留言管理</a>
<a href="Admin_WapAdvertise.asp">广告管理</a><br/>
<a href="Admin_WapManage.asp?action=ShowLog">点击记录</a> <a href="Admin_WapType.asp">管理分类</a><br/>
<a href="Admin_WapManage.asp?action=BatchDelform">删除数据</a> <a href="Admin_WapManage.asp?action=init">初始数据</a><br/>
<a href="admin_Waplogin.asp?action=exit">退出管理</a> <br/>
<%
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")
if PageNo="" or not Isnumeric(PageNo) then
PageNo=1
else
PageNo=int(PageNo)
end if
'普通sql语句
sql=sql & condition &" ORDER BY "&pl&" "&ob
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
Do While Not rs.EOF and i<MaxPageSize
%>
<%=rs("id")%>.
<a href="Wap_View.asp?id=<%=rs("id")%>"><%=rs("siteTitle")%></a>
<%
if rs("IsVerify")=strTrue then
Response.write "<a href=""Admin_WapManage.asp?action=edit1&id="&rs("id")&"&PageNo="&cstr(PageNo)&"&Find="&Find&"&webtype="&webtype&"&pl="&pl&"&IsVerify="&IsVerify&"&intt="&intt&"&ob="&ob&""">取审</a> "
else
Response.write "<a href=""Admin_WapManage.asp?action=edit&id="&rs("id")&"&PageNo="&cstr(PageNo)&"&Find="&Find&"&webtype="&webtype&"&pl="&pl&"&IsVerify="&IsVerify&"&intt="&intt&"&ob="&ob&""">审核</a> "
end if
Response.write "<a href=""Admin_WapManage.asp?Action=del&username="&rs("username")&"&Find="&Find&"&webtype="&webtype&"&pl="&pl&"&IsVerify="&IsVerify&"&intt="&intt&"&ob="&ob&""">删除</a>"
%>
<a href="Admin_WapEditlink.asp?username=<%=rs("username")%>">修改</a><br/>
无郊链入:<%=rs("wuxiao")%>次<br/>
总入:<%=rs("inc")%> 今:<%=rs("inj")%> 昨:<%=rs("inru")%> 平:<%=formatnumber(rs("inp"),2,-1)%><br/>
总出:<%=rs("outc")%> 今:<%=rs("outj")%> 昨:<%=rs("outchu")%> 平:<%=formatnumber(rs("outp"),2,-1)%><br/>
---------<br/>
<%
i=i+1
rs.MoveNext
Loop
else
%>
没有找到你所查询的网站<br/>
<%
end if
rs.close
set rs=nothing
%>
<%Wap.WapshowPageInfo "link","username",condition,PageNo,MaxPageSize,linkstr%><br/>
<a href="Admin_WapManage.asp">管理首页</a><br/>
<%
end sub
sub BatchDelform
%>
删除初始化后<input name="daynum" type="text" value="30" size="3" maxlength="4"/>
天内总点击进入数小于 <input name="hitsnum" type="text" id="hitsnum" value="1" size="3" maxlength="4"/>的站点
<anchor>确认删除<go href="Admin_WapManage.asp?Action=BatchDelWeb" method="post">
<postfield name="daynum" value="$(daynum)"/>
<postfield name="hitsnum" value="$(hitsnum)"/>
</go></anchor><br/>
<br/>
<%
If WapFromDelete = 0 Then
%>
删除<input name="daynum" type="text" value="15" size="3" maxlength="4"/>天前的点击记录(用户3天内的点入点出记录不会被删除)
<anchor>确认删除<go href="Admin_WapManage.asp?action=BatchDelLog" method="post">
<postfield name="daynum" value="$(daynum)"/>
</go></anchor><br/>
<br/>
<%
End If
%>
初始网站访问量统计
<anchor>确认初始<go href="Admin_WapManage.asp?Action=BatchDelOnline" method="post">
<postfield name="action" value="BatchDelOnline"/>
</go></anchor><br/>
<%
end sub
sub GuLian0
id=Request("id")
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from link where id="&id,Conn,1,3
rs("GuLian")=0
rs.update
Response.write "操作成功！<br/>"
Response.write "<a href=""Wap_View.asp?id="&id&""">还回网站</a><br/>"
Response.write "<a href=""Admin_WapManage.asp?action=ListSite&PageNo="&Request("PageNo")&"&Find="&Request("Find")&"&webtype="&Request("webtype")&"&pl="&Request("pl")&"&IsVerify="&Request("IsVerify")&"&intt="&Request("intt")&"&ob="&Request("ob")&""">管理网站</a><br/>"
rs.close:set rs=nothing
end sub
sub GuLian1
id=Request("id")
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from link where id="&id,Conn,1,3
rs("GuLian")=1
rs.update
Response.write "操作成功！<br/>"
Response.write "<a href=""Wap_View.asp?id="&id&""">还回网站</a><br/>"
Response.write "<a href=""Admin_WapManage.asp?action=ListSite&PageNo="&Request("PageNo")&"&Find="&Request("Find")&"&webtype="&Request("webtype")&"&pl="&Request("pl")&"&IsVerify="&Request("IsVerify")&"&intt="&Request("intt")&"&ob="&Request("ob")&""">管理网站</a><br/>"
rs.close:set rs=nothing
end sub
sub ShouXian1
id=Request("id")
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from link where id="&id,Conn,1,3
rs("ShouXian")=1
rs.update
Response.write "操作成功！<br/>"
Response.write "<a href=""Wap_View.asp?id="&id&""">还回网站</a><br/>"
Response.write "<a href=""Admin_WapManage.asp?action=ListSite&PageNo="&Request("PageNo")&"&Find="&Request("Find")&"&webtype="&Request("webtype")&"&pl="&Request("pl")&"&IsVerify="&Request("IsVerify")&"&intt="&Request("intt")&"&ob="&Request("ob")&""">管理网站</a><br/>"
rs.close:set rs=nothing
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -