📄 wap_tj.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="统计">
<p align='left'>
<%
'**********************************************************************
'* 程序名称: 玛雅自助导航系统
'* 程序功能：统计
'* 英文名称: WapLink Ver 4.5
'* 程序开发: Wapcr
'* 主页地址: http://wapcr.cn/
'* 演示地址: http://wapcr.cn/link/
'**********************************************************************
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)
response.write "总有网站："&TotalSite
response.write "<br/>待审网站："&Totaisverify
response.write "<br/>作弊网站："&Totawuxiao
response.write "<br/>固连网站："&TotaGuLian
response.write "<br/>有效网站："&TotalSite1
set rs = Wap.Execute("select sum(inc),sum(outc) from Link")
Totalinc = rs(0)
Totaloutc = rs(1)
set rs = nothing
response.write "<br/>总计点入："&Totalinc
response.write "<br/>总计点出："&Totaloutc
set Rs = Wap.Execute("select sum(inj),sum(outj) from Link")
Totalinj = Rs(0)
Totaloutj = Rs(1)
set Rs = nothing
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/>---------<br/>"
response.write "<a href=""index.asp"">"&ChannelName&"</a><br/>"
Rem 显示整合后的返回首页
If WapZhenghe=1 Then Response.write "<a href="""&WapUrl&""">返回首页</a><br/>"
Rem 读取网站底部开始
Response.write Wap.DefineContents("9")
Rem 显示网站访问
Response.write Wap.Online()
set Wap=Nothing
%>
</p>
</card>
</wml>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -