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