📄 admin_count.asp

📁 正版创力4.1SQL商业版!!!ASP版。
💻 ASP
📖 第 1 页 / 共 2 页
字号:
上一页 12
		<td width="55%"><input name="Style" maxlength="10" size="12" value="<%=Style%>" <%If Style<>"" Then Response.write("readonly")%> /> <span style="color:#ff0033;">*</span> <span style="color:#888888">请使用英文或数字设定样式名称</span></td>
		<td width="30%" rowspan="4">
		<fieldset>
		<legend>&nbsp;标签说明&nbsp;</legend>
		<div id="showLabel">
			<div id="labeltitle"><span class="current" id="t1" onclick="Label(1)">模块</span><span id="t2" onclick="Label(2)">频道</span><span id="t3" onclick="Label(3)">留言</span><span id="t4" onclick="Label(4)">用户</span><span id="t5" onclick="Label(5)">在线</span><span id="t6" onclick="Label(6)">访问量</span></div>
			<div id="b1" class="currentb">
				<ol>模块统计(<span style="color:#009900">ID表示模块ID</span>)：
				<li>项目总数：ModuleCount(ID,0)</li>
				<li>已审项目：ModuleCount(ID,1)</li>
				<li>待审项目：ModuleCount(ID,2)</li>
				<li>项目阅读：ModuleCount(ID,3)</li>
				<li>评论总数：ModuleCount(ID,4)</li>
				<li>已审评论：ModuleCount(ID,5)</li>
				<li>待审评论：ModuleCount(ID,6)</li>
				<li>专题总数：ModuleCount(ID,7)</li>
				</ol>
			</div>
			<div id="b2" class="hidden">
				<ol>频道统计(<span style="color:#009900">ID表示频道ID</span>)：
				<li>项目总数：ChannelCount(ID,0)</li>
				<li>已审项目：ChannelCount(ID,1)</li>
				<li>待审项目：ChannelCount(ID,2)</li>
				<li>项目阅读：ChannelCount(ID,3)</li>
				<li>评论总数：ChannelCount(ID,4)</li>
				<li>已审评论：ChannelCount(ID,5)</li>
				<li>待审评论：ChannelCount(ID,6)</li>
				<li>专题总数：ChannelCount(ID,7)</li>
				</ol>
			</div>
			<div id="b3" class="hidden">
				<ol>留言统计：
				<li>留言总数：GuestBookCount(0)</li>
				<li>已审留言：GuestBookCount(1)</li>
				<li>待审留言：GuestBookCount(2)</li>
				<li>回复总数：GuestBookCount(3)</li>
				</ol>
			</div>
			<div id="b4" class="hidden">
				<ol>用户统计：
				<li>用户总数：UserCount(0)</li>
				<li>待审用户：UserCount(1)</li>
				</ol>
			</div>
			<div id="b5" class="hidden">
				<ol>在线用户：
				<li>总在线数：Online(0)</li>
				<li>在线会员：Online(1)</li>
				<li>在线游客：Online(2)</li>
				</ol>
			</div>
			<div id="b6" class="hidden">
				<ol>访问量：
				<li>开始时间：Visit(0)</li>
				<li>今日访问：Visit(1)</li>
				<li>今日浏览：Visit(2)</li>
				<li>昨日访问：Visit(3)</li>
				<li>昨日浏览：Visit(4)</li>
				<li>总访问量：Visit(5)</li>
				<li>总浏览量：Visit(6)</li>
				</ol>
			</div>
		</div>
		</fieldset>
		</td>
	</tr>
	<tr class="tdbg">
		<td align="right">调用说明：</td>
		<td><input name="Remark" maxlength="60" size="30" value="<%=Remark%>" /> <span style="color:#888888"></span></td>
	</tr>
	<tr class="tdbg">
		<td align="right">刷新时间：</td>
		<td><input name="RefreshTime" maxlength="5" size="6" value="<%=RefreshTime%>" /> 分 <span style="color:#888888">每次刷新调用数据时间间隔，单位为分。</span></td>
	</tr>
	<tr class="tdbg">
		<td align="right">调用模版：</td>
		<td><textarea name="Template" style="width:99%;height:160px;"><%=Server.HtmlEnCode(StyleTemplate)%></textarea></td>
	</tr>
	<tr class="tdbg">
		<td align="center" colspan="3">
		<input value=" 确 定 " type="submit" />
		<input name="Action" value="save<%=Action%>" type="hidden" />
		</td>
	</tr>
	</form>
</table>
<%
End Sub

Sub StyleMain()
%>
<table border="0" cellspacing="1" cellpadding="0"  align="center" class="border">
	<tr class="title">
		<td width="10%" align="center">样式名称</td>
		<td align="center">说明</td>
		<td width="40%" align="center">调用代码</td>
		<td width="5%" align="center">更新</td>
		<td width="16%" align="center">添加用户/时间</td>
		<td width="6%" align="center">操作</td>
	</tr>
<%
	Set XmlDoc = Server.CreateObject("MSXML.DOMDocument")
	XmlDoc.Async = False
	If Not XmlDoc.load(ConfigFilePath) Then
		XmlDoc.loadxml "<?xml version=""1.0"" encoding=""gb2312""?><Root/>"
		XmlDoc.Save ConfigFilePath
	End If
	For Each Node In XmlDoc.DocumentElement.SelectNodes("Item")
%>
	<tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
		<td align="center"><%=Node.getAttribute("Style")%></td>
		<td align="left"><%=Node.selectSingleNode("Remark").text%></td>
		<td align="left"><textarea style="width:100%;height:36px;border:1px solid #dadada;" readonly="readonly"><%
		Response.write(Server.HtmlEncode("<script type=""text/javascript"" src=""{$webdir}Count.asp?style="&Node.getAttribute("Style")&"""></script>"))
		%></textarea></td>
		<td align="center"><%=Node.getAttribute("RefreshTime")%> 分</td>
		<td align="center"><%=Node.getAttribute("UserName")%><br /><%=Node.getAttribute("AddTime")%></td>
		<td align="center"><a href="Admin_Count.asp?Action=ModifyStyle&Style=<%=Node.getAttribute("Style")%>">修改</a><br /><a href="Admin_Count.asp?Action=DelStyle&Style=<%=Node.getAttribute("Style")%>">删除</a></td>
	</tr>
<%
	Next
	Set XmlDoc = Nothing
%>
</table>
<%
End Sub

Sub VisitMain()

%>
<table border="0" cellspacing="1" cellpadding="3"  align="center" class="border">
	<tr>
	<td width="100%" class="title" colspan="2" align="center">访问量管理</td>
	</tr>
	<form Name="form1" method="post" action="Admin_Count.asp?Action=savevisit">
	<tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
	  <td width="50%" height="25"><b>开始统计时间：</b></td>
	  <td height="25"><input type="text" name="CountInfo(0)" size="20" value="<%=Count.CountInfo(0,0)%>" maxlength="20">&nbsp;</td>
	</tr>
	<tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
	  <td width="50%" height="25"><b>今日访问量：</b></td>
	  <td height="25"><input type="text" name="CountInfo(1)" size="20" value="<%=Count.CountInfo(1,0)%>" maxlength="20">&nbsp;</td>
	</tr>
	<tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
	  <td width="50%" height="25"><b>今日浏览量：</b></td>
	  <td height="25"><input type="text" name="CountInfo(2)" size="20" value="<%=Count.CountInfo(2,0)%>" maxlength="20">&nbsp;</td>
	</tr>

	<tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
	  <td width="50%" height="25"><b>昨日访问量：</b></td>
	  <td height="25"><input type="text" name="CountInfo(3)" size="20" value="<%=Count.CountInfo(3,0)%>" maxlength="20">&nbsp;</td>
	</tr>
	<tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
	  <td width="50%" height="25"><b>昨日浏览量：</b></td>
	  <td height="25"><input type="text" name="CountInfo(4)" size="20" value="<%=Count.CountInfo(4,0)%>" maxlength="20">&nbsp;</td>
	</tr>

	<tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
	  <td width="50%" height="25"><b>总访问量：</b></td>
	  <td height="25"><input type="text" name="CountInfo(5)" size="20" value="<%=Count.CountInfo(5,0)%>" maxlength="20">&nbsp;</td>
	</tr>
	<tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
	  <td width="50%" height="25"><b>总浏览量：</b></td>
	  <td height="25"><input type="text" name="CountInfo(6)" size="20" value="<%=Count.CountInfo(6,0)%>" maxlength="20">&nbsp;</td>
	</tr>
	<tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
	  <td width="50%" height="25"><b>最高在线记录：</b></td>
	  <td height="25"><input type="text" name="CountInfo(7)" size="20" value="<%=Count.CountInfo(7,0)%>" maxlength="20">&nbsp;</td>
	</tr>
	<tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
	  <td width="50%" height="25"><b>最高在线发生时间：</b></td>
	  <td height="25"><input type="text" name="CountInfo(8)" size="20" value="<%=Count.CountInfo(8,0)%>" maxlength="20">&nbsp;</td>
	</tr>
	<tr class="tdbg">
	<td colspan="2" align="center">
	<input type="submit" name="Submit" value="保 存 修 改">
	</td></tr>
	</form>
</table>
<%
End Sub

Sub SaveVisit()
	Dim sData(9)
	for i=0 to 8
	sData(i)=Trim(Request("CountInfo("&i&")"))
	next
	for i=1 to 7
		if Not IsNumeric(sData(i)) then sData(i)=0
	next
	if Not IsDate(sData(0)) then sData(0)=Now()
	if Not IsDate(sData(8)) then sData(8)=Now()
	Count.ConnectionCount
	Conn_Count.Execute("Update Cl_CountInfo Set StartDate='"&sData(0)&"',ToDayNum="&sData(1)&",ToDayView="&sData(2)&",YesterDayNum="&sData(3)&",YesterDayView="&sData(4)&",TotalNum="&sData(5)&",TotalView="&sData(6)&",MaxOnline="&sData(7)&",MaxOnlineDate='"&sData(8)&"'")
	Cl.Name="CountInfo"
	Count.LoadCountInfo
	Set Count=Nothing
	Cl.SaveAdminLog
	Call Cl.OutMsg(0,"恭喜您，操作成功，按确定返回！","Admin_Count.asp?Action=visitmain")
End Sub

Sub DelOnline()
	Count.ConnectionCount
	Conn_Count.Execute "Delete From [Cl_Online]"
	Cl.Name="Web_Online"
	Count.RefreshOnlineNum
	Set Count=Nothing
	Call Cl.OutMsg(0,"恭喜您，操作成功，按确定返回！","Admin_Count.asp?Action=visitmain")
End Sub
%>
<%
'<!--
'┌───────────────────────────────────────────────────────┐
'│														 │
'│		CreateLive CMS Version 4.0						 │
'│　　　　　　　　				Powered by Aspoo.CN	 	 │
'│　		　　　　　　　　　　						 │
'│　	邮箱: support@aspoo.cn		Info@aspoo.cn　　	 │
'│		ＱＱ: 3315263				596197794			 │
'│		网站: www.aspoo.cn			www.aspoo.com		 │
'│		论坛: bbs.aspoo.cn			bbs.aspoo.com		 │
'│														 │
'│	Copyright (C) 2005-2007 Aspoo.CN All Rights Reserved.	 │
'└───────────────────────────────────────────────────────┘
'-->
%>
上一页 12
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -