📄 union_manage.asp
字号:
<% Response.buffer=true %>
<% Response.ContentType="text/vnd.wap.wml" %><?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">
<!--#INCLUDE FILE="../data/conn.asp"-->
<!--#include file="union_loginoff.asp"-->
<wml>
<head>
<meta http-equiv="Cache-Control" content="max-age=0"/>
<meta http-equiv="Cache-Control" content="no-cache"/>
</head>
<%
dim unionid
unionid=request.querystring("unionid")
if IsEmpty(unionid) then
response.redirect "union_manage.asp"
end if
set objgbrs=Server.CreateObject("ADODB.Recordset")
sql="select * from sites Where siteid='" & unionid & "'"
objgbrs.open sql,conn,1,1
%>
<card title="网站管理">
<p>
<%=objgbrs("sitename")%><br/>
<%
dim viewstatus
if objgbrs("IsViewSite") then
viewstatus="正常显示"
elseif objgbrs("IsRegpass") then
viewstatus="已被隐藏"
else
viewstatus="未通过审核"
end if
'=====================================
'将出站数设定为少则多补,只显示，不入库
dim toalltmp
toalltmp=objgbrs("toall")
if objgbrs("toall")>0 then
if objgbrs("fromall")/objgbrs("toall")>1.05 then
toalltmp=CInt(objgbrs("fromall")*1.02)
end if
end if
'=====================================
%>
当前状态：<%=viewstatus%>
<br/>=流量统计=
<br/>链入用户数: <%=toalltmp%>
<br/>链出用户数: <%=objgbrs("fromall")%>
<br/>今日链入数: <%=objgbrs("tojin")%>
<br/>今日链出数: <%=objgbrs("fromjin")%>
<br/>昨日链入数: <%=objgbrs("tozuo")%>
<br/>昨日链出数: <%=objgbrs("fromzuo")%>
<br/>最后链入时间: <%=(month(objgbrs("totime"))& "-"& day(objgbrs("totime"))& " "& hour(objgbrs("totime"))& ":"& minute(objgbrs("totime")))%>
<br/>最后链出时间:<%=(month(objgbrs("fromtime"))& "-"& day(objgbrs("fromtime"))& " "& hour(objgbrs("fromtime"))& ":"& minute(objgbrs("fromtime")))%>
<br/><a href="union_infoedit.asp?unionid=<%=unionid%>">站点管理</a>
<br/><a href="union_psdedit.asp?unionid=<%=unionid%>">帐户管理</a>
<br/>*链入是指从<%=mywapname%>进入贵站的用户；链出则是指从贵站进入<%=mywapname%>的用户。
<%
Response.write "<br/>-------<br/><a href='../index.asp'>[" & mywapname & "]</a><br/><a href='union_loginexit.asp'>[安全退出]</a></p></card></wml>"
objgbrs.close
Set objgbrs=nothing
conn.close
set conn=nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -