admin_channelcount.asp

正版创力4.1SQL商业版!!!ASP版。

<!--#include file="Inc/Const.asp"-->
<%
if Not Cl.TrueOtherPurview("Channel") then
	Cl.ShowErr("<br /><li>您无此操作权限！</li>")
end if
dim Action
dim rsCount,strCount
Dim saveDate,strJs

Action=Lcase(Trim(Request("Action")))
ComeUrl=Trim(Request("ComeUrl"))
if ComeUrl="" then ComeUrl=Request.ServerVariables("HTTP_REFERER")
if ComeUrl="" then ComeUrl="Admin_ChannelCount.asp?ChannelID="&ChannelID
if Action="refreshjs" then
	RefreshCountJs
	Cl.OutMsg 0,"恭喜您，刷新JS成功，按确定返回！","Admin_ChannelCount.asp?ChannelID="&ChannelID
end if
Header
%>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" Class="border">
  <tr class="title"> 
    <td height="22" colspan=2 align="center"><b>统计调用Js配置管理</b></td>
  </tr>
  <tr class="tdbg"> 
    <td height="30"><strong>管理导航：</strong>
	<%
	Dim Node
	For Each Node In Application(Cl.CacheName & "_channellist").documentElement.selectNodes("channel[@channeltype<2]")
	Response.write " | <a href=""Admin_ChannelCount.asp?ChannelID="&Node.selectSingleNode("@channelid").text&""">"&Node.selectSingleNode("@channelname").text&"</a>"
	Next
	Set Node = Nothing
	%> | </td>
  </tr>
</table>
<%
if Action="save" then
	saveDate=Trim(Request.Form("Content"))
	Cl.Execute("Update Cl_Channel Set CountConfig='"&Cl.Checkstr(saveDate)&"' where ChannelID="&ChannelID&"")
	Cl.Load_ChannelList
	strJs=Replace(saveDate,"{$channelid}",ChannelID)
	Cl.Get_ChannelSetting(ChannelID)
	strJs = Cl.ReplaceItem(strJs)
	strJs = Template.ReplaceFlag(strJs,"ShowWebCount","")
	strJs = Replace(strJs,VbCrLf,"<br />")
	strJs = Replace(strJs,chr(10),"<br />")
	strJs = Replace(strJs,chr(34),"\" & chr(34))
	strJs = "document.write ("""&strJs&""");"
	Cl.MakeHtml strJs,Cl.WebDir&"Js/Count/Count_"&ChannelID&".Js"
	Cl.SaveAdminLog
	Cl.OutMsg 0,"恭喜您，修改成功，按确定返回！",ComeUrl
else
	ShowCountJs
end if
Footer
Sub ShowCountJs()
Set rsCount=Cl.Execute("Select ChannelID,CountConfig From Cl_Channel where ChannelID="&ChannelID&"")
strCount=rsCount(1)
Set rsCount=Nothing
%>
<form Name="form1" method="post" action="Admin_ChannelCount.asp?Action=save&ChannelID=<%=ChannelID%>">
<table border="0" cellspacing="1" cellpadding="3"  align="center" class="Border">
	<tr>
	<td width="100%" class=title align="center" colspan=2><%=Cl.GetChannelName(ChannelID)%>统计JS参数配置</td>
	</tr>
	<tr class="tdbg"><td width="60%"><textarea name="Content" ID="Content" style="width:98%" rows="20"><%=strCount%></textarea><br /><a href="javascript:admin_Size(-5,'Content')"><img src="images/minus.gif" unselectable="on" border='0'></a> <a href="javascript:admin_Size(5,'Content')"><img src="images/plus.gif" unselectable="on" border='0'></a>&nbsp;&nbsp;
	<td width="40%" valign="top">
	标签说明：
	<ol>
	<li>频道　ＩＤ：{$channelid}</li>
	<li>频道　名称：{$channelname}</li>
	<li>项目　名称：{$channelitemname}</li>
	<li>项目　单位：{$channelitemunit}</li>
	<li>项目　总数：{$ShowWebCount(ChannelID,0)}</li>
	<li>已审项目数：{$ShowWebCount(ChannelID,1)}</li>
	<li>待审项目数：{$ShowWebCount(ChannelID,2)}</li>
	<li>项目浏览数：{$ShowWebCount(ChannelID,3)}</li>
	<li>评论　总数：{$ShowWebCount(ChannelID,4)}</li>
	<li>已审评论数：{$ShowWebCount(ChannelID,5)}</li>
	<li>待审评论数：{$ShowWebCount(ChannelID,6)}</li>
	<li>项目专题数：{$ShowWebCount(ChannelID,7)}</li>
	<li>网站专题数：{$ShowWebCount(ChannelID,8)}</li>
	<li>注册用户数：{$ShowWebCount(ChannelID,9)}</li>
	<li>待审用户数：{$ShowWebCount(ChannelID,10)}</li>
	</ol>
	</td>
	</tr>
	<tr class="tdbg"><td align="center">
	<input type="submit" name="Submit" value="保 存 修 改">
	</td><td align="center">
	<input type="button" name="button" onclick="window.location.href='Admin_ChannelCount.asp?Action=RefreshJs'" value="刷新所有统计JS">
	</td></tr></table>
</FORM>
<%
End Sub
%>
<%
'<!--
'┌───────────────────────────────────────────────────────┐
'│														 │
'│		CreateLive CMS Version 4.0						 │
'│　　　　　　　　				Powered by Aspoo.CN	 	 │
'│　		　　　　　　　　　　						 │
'│　	邮箱: [e-mail]		[e-mail]　　	 │
'│		ＱＱ: 3315263				596197794			 │
'│		网站: www.aspoo.cn			www.aspoo.com		 │
'│		论坛: bbs.aspoo.cn			bbs.aspoo.com		 │
'│														 │
'│	Copyright (C) 2005-2007 Aspoo.CN All Rights Reserved.	 │
'└───────────────────────────────────────────────────────┘
'-->
%>