admin.asp

请认真阅读您的文件包然后写出其具体功能(至少要20个字)。尽量不要让站长把时间都花费在为您修正说明上。压缩包解压时不能有密码。

	 <li>&raquo; 你使用的是免费版本，为确保安全可靠，建议购买<a target="_blank" class="redlink" href="http://www.anyfor.cn/">商业版</a>。</li>
	 <%else%>
	 <li>&raquo; 你当前使用的是商业版本，相关服务请查看 <a target="_blank" href="http://www.anyfor.cn/">AnySale服务说明</a>。</li>
	 <%end if%>
     <li>&raquo; 给 <a href="javascript:anysale();" onclick="tabs.addTab('行业资讯','admin/channel.asp?groups=6');">资讯分类</a> 
	 <a href="javascript:anysale();" onclick="tabs.addTab('职能分类','admin/channel.asp?groups=4');">职能分类</a> 
	 <a href="javascript:anysale();" onclick="tabs.addTab('论坛版块','admin/channel.asp?groups=8');">论坛分类</a>
	 录入相关的分类信息。</li>
	 <li>&raquo; 定期进行数据处理，<a href="javascript:anysale();" onclick="tabs.addTab('操作日志','admin/log.asp');">查看日志</a>，检查系统运作是否正常。</li>
	 <li>&raquo; 如有疑问，请登录 <a href="javascript:bbs();">爱商论坛</a> 寻求解答。</li>
	 <li>&raquo; 确保安全，请勿在公共场所登录后台，操作完毕后请 <a href="adminlogin.asp?action=logout">注销登录</a>。</li>
	</ul>
    <ul class="hidden">
     <li>服务器类型：<%=Request.ServerVariables("OS")%>(IP:<%=Request.ServerVariables("LOCAL_ADDR")%>)</li>
     <li>脚本解释引擎：<%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %></li>
     <li>站点物理路径：<%=request.ServerVariables("APPL_PHYSICAL_PATH")%></li>
     <li>FSO文件读写：<%If Not IsObjInstalled("Scripting.FileSystemObject") Then%><span class="red">&times;</span><%else%><span class="green">&radic;</span><%end if%></li>
     <li>Jmail发送邮件支持：<%If Not IsObjInstalled("JMail.SmtpMail") Then%><span class="red">&times;</span><%else%><span class="green">&radic;</span><%end if%></li>
     <li>系统空间：<%showSpecialSpaceInfo("All")%></li>
     <%if isSqlDataBase=0 then%><li>数据库空间：<%=getFileSize(myDbPath&db)%></li><%end if%>
     <li>上传空间：<%showSpaceInfo("upfile/")%></li>
	</ul>
    <ul class="hidden">
	 <li>官方网站：<a href="http://www.anysale.cn" target="_blank">http://www.anysale.cn</a></li>
	 <li>技术支持：<a href="http://www.anyfor.cn" target="_blank">http://www.anyfor.cn</a></li>
	 <li>技术论坛：<a href="http://bss.anysale.cn" target="_blank">http://bbs.anysale.cn</a></li>
	 <li>技术开发：木头</li>
	 <li>商务合作：135 1052 3912</li>
	 <li>腾讯 QQ：117883</li>
	 <li>交流群号：26726381，32419516 </li>
	 <li>微软MSN：[e-mail]</li>
	</ul>
   </div>
  </div> 
  
  <div class="flashBorder border" id="adminAd">
   <script type="text/javascript">
	document.write('<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,19,0" width="300" height="250">')
	document.write('<param name="movie" value="upfile/ads/anysale.swf" />')
	document.write('<param name="quality" value="high" />')
	document.write('<param name="menu" value="false" />')
	document.write('<param name="wmode" value="Opaque" />')
	document.write('<embed src="upfile/ads/anysale.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="300" height="250"></embed>')
	document.write('</object>')
   </script>
  </div>
  
  <div class="anysaleIntro border">
   <ul class="anysaleBorder">
	<li class="anysaleBBS">&nbsp;</li>
	<li style="line-height:22px;padding:12px;"><strong class="f14 color">访问爱商论坛，共创商务奇迹！</strong><br />分享您的使用经验,探讨商务网站的运营,共创奇迹!<br /><a class="links" href="javascript:bbs();">现在就访问！</a></li>
   </ul>
  </div>
 
  <div class="services border" id="adminServices">
   <ul>
	<li style="padding:2px;">&nbsp;</li>
	<li class="servicesLine">
	<a href="javascript:anysale();" onclick="window.open('http://www.anysale.cn/bbs.asp?channelID=32');">网站基础</a>&nbsp;&nbsp;&nbsp;&nbsp;|&nbsp;&nbsp;&nbsp;&nbsp;
	<a href="javascript:anysale();" onclick="window.open('http://www.anysale.cn/bbs.asp?channelID=33');">营销推广</a>&nbsp;&nbsp;&nbsp;&nbsp;|&nbsp;&nbsp;&nbsp;&nbsp;
	<a href="javascript:anysale();" onclick="window.open('http://www.anysale.cn/bbs.asp?channelID=34');">运营管理</a>
	</li>
	<li style="text-align:center;line-height:30px;">
	<a href="javascript:anysale();" onclick="window.open('http://www.anysale.cn/bbs.asp?channelID=35');">网络周边</a>&nbsp;&nbsp;&nbsp;&nbsp;|&nbsp;&nbsp;&nbsp;&nbsp;
	<a href="javascript:anysale();" onclick="window.open('http://www.anysale.cn/bbs.asp?channelID=36');">休闲交流</a>&nbsp;&nbsp;&nbsp;&nbsp;|&nbsp;&nbsp;&nbsp;&nbsp;
	<a href="javascript:anysale();" onclick="window.open('http://www.anysale.cn/bbs.asp?channelID=37');">联盟专区</a>
	</li>
   </ul>
  </div>
    
 <!--welcome.end-->
 </div>
 <!--index.end-->
</div>

<div id="windows" class="hidden"></div>
<script type="text/javascript" src="inc/anysale.js"></script>
<script type="text/javascript" src="inc/calendar.js"></script>
<script type="text/javascript" src="inc/engine.js"></script>
<script type="text/javascript">
 var tabs = new myTabs();
 tabs.innerMain(document.getElementById("bodyer"));
 tabs.addTab("首页",document.getElementById("index"),"iHome");
 tabs.addTab("今日事项","admin/today.asp","home");
</script>
<script type="text/javascript" src="<%=anysaleServerUrl&anysaleVersion%>"></script>
</body>
</html>
<%
sub showSpaceInfo(drvpath)
	dim fso,d,size,showSize
	set fso=server.createObject("scripting.filesystemobject") 		
	drvpath=server.mapPath(drvpath) 		 		
	set d=fso.getfolder(drvpath) 		
	size=d.size
	showSize=size & "&nbsp;byte" 
	if size>1024 then
	   size=(Size/1024)
	   showSize=size & "&nbsp;KB"
	end if
	if size>1024 then
	   size=(size/1024)
	   showSize=formatNumber(size,2) & "&nbsp;MB"		
	end if
	if size>1024 then
	   size=(size/1024)
	   showSize=formatNumber(size,2) & "&nbsp;GB"	   
	end if   
	response.write showSize
end sub	
 	
sub showSpecialSpaceInfo(method)
	dim fso,d,fc,f1,size,showSize,drvpath 		
	set fso=server.createObject("scripting.filesystemobject")
	drvpath=server.mapPath("index.asp")
	drvpath=left(drvpath,(instrrev(drvpath,"\")-1))
	set d=fso.getfolder(drvpath)
	if method="All" then 		
		size=d.size
	elseif method="Program" then
		set fc=d.Files
		for each f1 in fc
			size=size+f1.size
		next	
	end if
	showSize=size & "&nbsp;byte" 
	if size>1024 then
	   size=(Size/1024)
	   showSize=size & "&nbsp;KB"
	end if
	if size>1024 then
	   size=(size/1024)
	   showSize=formatNumber(size,2) & "&nbsp;MB"		
	end if
	if size>1024 then
	   size=(size/1024)
	   showSize=formatNumber(size,2) & "&nbsp;GB"	   
	end if   
	response.write showSize
end sub 	 	 	

function getFileSize(fileName)
	Dim fso,drvpath,d,size,showSize
	set fso=server.createObject("scripting.filesystemobject")
	drvpath=server.mapPath(fileName)
	set d=fso.getfile(drvpath)	
	size=d.size
	showSize=size & "&nbsp;byte" 
	if size>1024 then
	   size=(Size/1024)
	   showSize=size & "&nbsp;KB"
	end if
	if size>1024 then
	   size=(size/1024)
	   showSize=formatnumber(size,2) & "&nbsp;MB"		
	end if
	if size>1024 then
	   size=(size/1024)
	   showSize=formatnumber(size,2) & "&nbsp;GB"	   
	end if   
	set fso=nothing
	getFileSize = showSize
end function

function isObjInstalled(strClassString)
	on error resume next
	isObjInstalled = false
	err = 0
	dim xTestObj
	set xTestObj = server.createObject(strClassString)
	if 0 = err then isObjInstalled = true
	set xTestObj = nothing
	err = 0
end function

call closeConn()
%>