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