📄 admin_wapmanage.asp
字号:
end sub
sub ShouXian0
id=Request("id")
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from link where id="&id,Conn,1,3
rs("ShouXian")=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 edit
id=Request("id")
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from link where id="&id,Conn,1,3
rs("IsVerify")=strTrue
rs("inp")=inpc
rs("indate")=Now()
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.update
rs.close:set rs=nothing
end sub
sub edit1
id=Request("id")
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from link where id="&id,Conn,1,3
rs("IsVerify")=strFalse
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.update
rs.close:set rs=nothing
end sub
sub dellink
dim username
username=Wap.checkstr(Request("username"),12)
if ok="ok" then
Wap.execute("delete from Link where username='"&username&"'")
Response.write "操作成功！<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/>"
Response.write "<a href=""Admin_WapManage.asp"">管理首页</a><br/>"
Response.write "<a href=""Wap_View.asp?id="&Wap.execute("select id from Link where username='"&username&"'")(0)&""">还回网站</a><br/>"
else
Response.write "确定要删除吗？"
Response.write "<a href=""Admin_WapManage.asp?Action=del&ok=ok&username="&username&"&Find="&Request("Find")&"&webtype="&Request("webtype")&"&pl="&Request("pl")&"&IsVerify="&Request("IsVerify")&"&intt="&Request("intt")&"&ob="&Request("ob")&""">删除</a><br/>"
end if
Response.write "<a href=""Wap_View.asp?id="&Wap.execute("select id from Link where username='"&username&"'")(0)&""">还回网站</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/>"
end sub
sub init
dim username
username=Wap.checkstr(Request("username"),12)
if username="" then
if ok="ok" then
If IsSqlDataBase = 1 Then
Wap.Execute("update Link set inc=0,inj=0,inp=0,outc=0,outj=0,outp=0,inru=0,outchu=0,wuxiao=0,fromdate=GetDate(),indate=GetDate(),outdate=GetDate()")
Else
Wap.Execute("update Link set inc=0,inj=0,inp=0,outc=0,outj=0,outp=0,inru=0,outchu=0,wuxiao=0,fromdate=date(),indate=date(),outdate=date()")
End If
Response.write "初始化完毕！所有数据已清零，从今天起开始重新统计！<br/>"
Response.write "<a href=""Admin_WapManage.asp"">管理首页</a><br/>"
else
Response.write "初始化后，所有数据将清零，你确认要继续吗？"
Response.write "<a href=""Admin_WapManage.asp?action=init&ok=ok"">确认</a><br/>"
Response.write "<a href=""Admin_WapManage.asp"">管理首页</a><br/>"
end if
else
if ok="ok" then
If IsSqlDataBase = 1 Then
Wap.Execute("update Link set inc=0,inj=0,inp=0,outc=0,outj=0,outp=0,inru=0,outchu=0,wuxiao=0,fromdate=GetDate(),indate=GetDate(),outdate=GetDate() where username='"&username&"'")
Else
Wap.Execute("update Link set inc=0,inj=0,inp=0,outc=0,outj=0,outp=0,inru=0,outchu=0,wuxiao=0,fromdate=date(),indate=date(),outdate=date() where username='"&username&"'")
End If
Response.write ""&username&"的站点初始化完毕！所有数据已清零，从今天起开始重新统计！<br/>"
Response.write "<a href=""Wap_View.asp?id="&Wap.execute("select id from Link where username='"&username&"'")(0)&""">还回网站</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/>"
else
Response.write "初始化后，此网站数据将清零，你确认要初始化吗？"
Response.write "<a href=""Admin_WapManage.asp?action=init&ok=ok&username="&username&"&Find="&Find&"&webtype="&webtype&"&pl="&pl&"&IsVerify="&IsVerify&"&intt="&intt&"&ob="&ob&""">确认</a><br/>"
Response.write "<a href=""Wap_View.asp?id="&Wap.execute("select id from Link where username='"&username&"'")(0)&""">还回网站</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/>"
end if
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=Wap.execute("select count(*) from Link where fromdate<"&SqlNowString&"-"&daynum&" and inc<"&hitsnum)
TotalCount=rs(0)
set rs=nothing
if TotalCount>0 then
Wap.execute("delete from Link where fromdate<"&SqlNowString&"-"&daynum&" and inc<"&hitsnum)
Response.write "成功删除了" & TotalCount &"个站点<br/>"
Response.write "<a href=""Admin_WapManage.asp"">管理首页</a><br/>"
else
Response.write "暂时没有符合删除条件的站点<br/>"
Response.write "<a href=""Admin_WapManage.asp"">管理首页</a><br/>"
end if
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=Wap.execute("select count(*) from Log where dateandtime<"&SqlNowString&"-"&daynum)
TotalCount=rs(0)
set rs=nothing
if TotalCount>0 then
Wap.execute("delete from Log where dateandtime<"&SqlNowString&"-"&daynum)
Response.write "成功删除了" & TotalCount &"条记录<br/>"
Response.write "<a href=""Admin_WapManage.asp"">管理首页</a><br/>"
else
Response.write "暂时没有符合删除条件的记录<br/>"
Response.write "<a href=""Admin_WapManage.asp"">管理首页</a><br/>"
end if
end sub
sub BatchDelOnline
'开始删除 在线用户信息
Wap.execute("update Online set content=0")
Response.write "初始化完毕！网站访问量统计数据已清零，从今天起开始重新统计！<br/>"
Response.write "<a href=""Admin_WapManage.asp"">管理首页</a><br/>"
end sub
sub ShowLog
dim rs,sql
dim inout
dim username
dim strtitle
dim MaxPageSize:MaxPageSize=7 '每页显示的记录数
username=Wap.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_WapEditlink.asp?username="&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
%>
<%=strtitle%><br/><br/>
<%
if username="" and inout="" then
If IsSqlDataBase = 1 Then
set rs = Wap.Execute("select count(inout) from Log where Datediff(day,dateandtime,GetDate())=0 and inout=0")
Else
set rs = Wap.Execute("select count(inout) from Log where Datediff('d',dateandtime,date())=0 and inout=0")
End If
Response.write "今天总点入：" & rs(0)
set rs = nothing
If IsSqlDataBase = 1 Then
set rs = Wap.Execute("select count(inout) from Log where Datediff(day,dateandtime,GetDate())=0 and inout=1")
Else
set rs = Wap.Execute("select count(inout) from Log where Datediff('d',dateandtime,date())=0 and inout=1")
End If
Response.write " 今天总点出：" & rs(0) & "<br/>"
set rs = nothing
end if
%>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from Log "&condition&" order by id desc"
rs.open sql,Conn,1,1
if rs.eof then
Response.write "暂时还没有记录<br/>"
else
rs.PageSize = MaxPageSize
rs.AbsolutePage = PageNo
dim i
i=0
do while not rs.eof and i<MaxPageSize
%>
<%
if username="" then Response.write "<a href=""Admin_WapManage.asp?action=ShowLog&username="&rs("username")&""">"&rs("username")&"</a><br/>"
if inout="" then
Response.write "<a href=""Admin_WapManage.asp?action=ShowLog&username="&username&"&inout="&rs("inout")&""">"
if rs("inout")=0 then
Response.write " 点入"
else
Response.write " 点出"
end if
Response.write "</a> "
end if
%>
<%=Right("0" & Month(rs("dateandtime")), 2) & "/" & Right("0" & Day(rs("dateandtime")), 2) &" " &Right("0" & Hour(rs("dateandtime")), 2)&":"&Right("0" & Minute(rs("dateandtime")), 2)&":"&Right("0" & Second(rs("dateandtime")), 2)%><br/>
IP:<%=rs("ip")%><br/>
----------<br/>
<%
i=i+1
rs.movenext
loop
end if
set rs=nothing%>
<%Wap.WapshowPageInfo "Log","id",condition,PageNo,MaxPageSize,linkstr%><br/>
<a href="Admin_WapManage.asp">管理首页</a><br/>
<%
end sub
Sub Online
%>
<%
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
%>
总浏览量:<%=vstr(0)%><br/>
总访问数:<%=vstr(1)%><br/>
今日访问数:<%=vstr(2)%><br/>
昨日访问数:<%=vstr(3)%><br/>
开始统计日期:<%=vstr(4)%><br/>
统计天数:<%=vdays%><br/>
平均日访问量:<%=vdayavg%><br/>
最高日访问量:<%=vstr(7)%><br/>
发生日期:<%=vstr(8)%><br/>
<a href="Admin_WapManage.asp">管理首页</a>
<%End If%>
<%
End Sub
Sub Summary
dim rs
dim TotalSite,TotalSite1,Totalinc,Totaloutc,Totalinj,Totaloutj
TotalSite = Wap.execute("select count(0) from Link")(0)
Totaisverify = Wap.execute("select count(0) from Link where IsVerify=0")(0)
Totawuxiao = Wap.execute("select count(0) from Link where IsVerify="&strTrue&" And wuxiao > 200")(0)
TotaGuLian = Wap.execute("select count(0) from Link where GuLian=1 ")(0)
TotalSite1 = Wap.execute("select count(0) from Link where inc > 0")(0)
set rs = Wap.execute("select sum(inc),sum(outc) from Link")
Totalinc = rs(0)
Totaloutc = rs(1)
set rs = nothing
set rs = Wap.execute("select sum(inj),sum(outj) from Link")
Totalinj = rs(0)
Totaloutj = rs(1)
set rs = nothing
Response.write "总有网站："&TotalSite
Response.write "<br/>待审网站："&Totaisverify
Response.write "<br/>作弊网站："&Totawuxiao
Response.write "<br/>推荐网站："&TotaGuLian
Response.write "<br/>有效网站："&TotalSite1 & "(有产生过点入次数的网站)"
Response.write "<br/>总计点入："&Totalinc
Response.write "<br/>总计点出："&Totaloutc
Response.write "<br/>总的赢利："&Totalinc-Totaloutc&""
Response.write "<br/>今天点入："&Totalinj
Response.write "<br/>今天点出："&Totaloutj
Response.write "<br/>今日赢利："&Totalinj-Totaloutj&""
set rs = Wap.execute("select sum(inru),sum(outchu) from Link")
Totalinru = rs(0)
Totaloutchu = rs(1)
Response.write "<br/>昨日点入："&Totalinru
Response.write "<br/>昨日点出："&Totaloutchu
Response.write "<br/>昨日赢利："&Totalinru-Totaloutchu&""
Response.write "<br/><a href=""Admin_WapManage.asp"">管理首页</a>"
End Sub
%>
<%set Wap=nothing%>
</p>
</card>
</wml>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -