main.asp

简单明晰的asp后台代码 新闻 产品

<!--#include file = "../inc/dbclass.inc.asp"-->
<!--#include file = "../inc/syslogincheck.inc.asp" -->

<%
function getfilesize(filename)
	dim fso,drvpath,d,size,showsize
	set fso=server.createobject("scripting.filesystemobject")
	drvpath=server.mappath(filename)
	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   
	set fso=nothing
	response.write 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 header("管理中心")
call content()
call footer()

' 开始写入内容
sub content()
%>
<!--#include file="admin_index_top.asp" --><meta http-equiv="content-type" content="text/html; charset=gb2312">
<br>
<table cellspacing=0 cellpadding=0 width=95% align=center border=0>
  <tr> 
    <td > 
      <p><b><font color="#ff0000">欢迎光临 <%=homepage_title%>--管理控制面板</font></b><br>
      <br>
        <b>程序编写：</b>爱已欠费(qq:84138081)&nbsp;<br>
      <b>电子邮件：</b>[e-mail]<br>
      在这里，您可以控制你所有的网站设置。请在此页的左侧选择您要进行管理的链接。<br>
    <strong>注&nbsp; 意：</strong><font color="#ff0000">如果你不是非常熟悉本系统的操作，请尽量不要随便改动栏目的设置以及合并栏目。<br>
    　　　&nbsp;&nbsp; 每次操作前请看清提示，避免造成不必要的损失。因你的误操作造成的损失本人概不负责！</font><br>
    </p>    </td>
  </tr>
</table>
<table cellpadding="2" cellspacing="1" border="0" width="95%" align="center">
  <tr bgcolor="#799ae1"> 
    <td colspan=2 height=25> 
      <div align="center"><font color="#ffffff"><b>数据库信息统计</b></font></div>
    </td>
  <tr> 
  <tr> 
    <td width="50%"   height=23 bgcolor="#ddeeff">服务器名和ip：<%=request.servervariables("server_name")%>(ip:<%=request.servervariables("local_addr")%>)</td>
    <td width="50%"  bgcolor="#ddeeff">脚本解释引擎：<%=scriptengine & "/"& scriptenginemajorversion &"."&scriptengineminorversion&"."& scriptenginebuildversion %></td>
  </tr>
  <tr> 
    <td width="50%"   height=23 bgcolor="#ddeeff">服务器操作系统：

	</td>
    <td width="50%"  bgcolor="#ddeeff">iis 版本：<%=request.servervariables("server_software")%></td>
  </tr>
  <tr> 
    <td width="50%"  height=23 bgcolor="#ddeeff">站点物理路径：<%=server.mappath(""&rooturl&"/")&"\"%></td>
    <td width="50%"  bgcolor="#ddeeff">数据库占用空间总计： 
      <%call getfilesize(""&rooturl&"/data/")%>
    </td>
  </tr>
  <tr> 
    <td width="50%"  height=23 bgcolor="#ddeeff">上传图片空间总计： 
      <%call getfilesize(""&rooturl&"/uploadfile")%>    </td>
    <td width="50%"  bgcolor="#ddeeff">整个站点空间总计： 
      <%call getfilesize(""&rooturl&"/")%>    </td>
  </tr>
  <tr> 
    <td width="50%"  height=23 bgcolor="#ddeeff">fso文本读写： 
<%
if isobjinstalled("scripting.filesystemobject") then
	response.write "<font color=#ff0000><b>√</b></font>"
else
	response.write "<font color=#ff0000><b>×</b></font>"
end if
%>
    </td>
    <td width="50%"  bgcolor="#ddeeff">数据库使用： 
<%
if isobjinstalled("adodb.connection") then
	response.write "<font color=#ff0000><b>√</b></font>"
else
	response.write "<font color=#ff0000><b>×</b></font>"
end if
%>
    </td>
  </tr>
  <tr> 
    <td width="50%"  height=23 bgcolor="#ddeeff"><span class="forumrow">无组件上传支持：
<%
if isobjinstalled("adodb.stream") then
	response.write "<font color=#ff0000><b>√</b></font>"
else
	response.write "<font color=#ff0000><b>×</b></font>"
end if
%>
    </span></td>
    <td width="50%"  bgcolor="#ddeeff">aspupload上传支持
<%
if isobjinstalled("persits.upload") then
	response.write "<font color=green><b>√</b></font>"
else
	response.write "<font color=red><b>×</b></font>"
end if
%>
	</td>
  </tr>
  <tr>
    <td  height=23 bgcolor="#ddeeff">jmail组件支持：
<%
if not isobjinstalled("jmail.smtpmail") then
	response.write "<font color=#ff0000><b>×</b></font>"
else
	response.write "<font color=#ff0000><b>√</b></font>"
end if
%>	</td>
    <td  bgcolor="#ddeeff">cdonts组件支持：
<%
if not isobjinstalled("cdonts.newmail") then
	response.write "<font color=#ff0000><b>×</b></font>"
else
	response.write "<font color=#ff0000><b>√</b></font>"
end if
%>    </td>
  </tr>
</table>
<br>
<table width="95%" border="0" cellspacing="1" cellpadding="2" align="center">
  <tr> 
    <td bgcolor="#799ae1" height="25"> 
      <div align="center"><font color="#ffffff"><b>服务器基本数据测试</b></font></div>
    </td>
  </tr>
  <tr> 
    <td height="23" bgcolor="#ddeeff">磁盘文件操作速度测试：
      <%
	response.write "正在重复创建、写入和删除文本文件50次..."

	dim thetime3,tempfile,iserr,t1,fsoobj,tempfileobj,t2,i
	set fsoobj=server.createobject("scripting.filesystemobject")

	iserr=false
	t1=timer
	tempfile=server.mappath("./") & "\aspchecktest.txt"
	for i=1 to 50
		err.clear

		set tempfileobj = fsoobj.createtextfile(tempfile,true)
		if err <> 0 then
			response.write "创建文件错误！"
			iserr=true
			err.clear
			exit for
		end if
		tempfileobj.writeline "only for test. ajiang aspcheck"
		if err <> 0 then
			response.write "写入文件错误！"
			iserr=true
			err.clear
			exit for
		end if
		tempfileobj.close
		set tempfileobj = fsoobj.getfile(tempfile)
		tempfileobj.delete 
		if err <> 0 then
			response.write "删除文件错误！"
			iserr=true
			err.clear
			exit for
		end if
		set tempfileobj=nothing
	next
	t2=timer
	if not iserr then
		thetime3=cstr(int(( (t2-t1)*10000 )+0.5)/10)
		response.write "...已完成！本服务器执行此操作共耗时 <font color=red>" & thetime3 & " 毫秒</font>"
	end if
%>
    </td>
  </tr>
  <tr>
    <td height="23" bgcolor="#ddeeff">整数运算测试：
      <%

	response.write "正在进行50万次加法运算..."
	dim lsabc,thetime,thetime2
	t1=timer
	for i=1 to 500000
		lsabc= 1 + 1
	next
	t2=timer
	thetime=cstr(int(( (t2-t1)*10000 )+0.5)/10)
	response.write "...已完成！共耗时 <font color=red>" & thetime & " 毫秒</font><br>"
%>
    </td>
  </tr>
  <tr>
    <td height="23" bgcolor="#ddeeff">浮点运算测试：
      <%

	response.write "正在进行20万次开方运算..."
	t1=timer
	for i=1 to 200000
		lsabc= 2^0.5
	next
	t2=timer
	thetime2=cstr(int(( (t2-t1)*10000 )+0.5)/10)
	response.write "...已完成！共耗时 <font color=red>" & thetime2 & " 毫秒</font><br>"
%>
    </td>
  </tr>
</table>
<%
end sub
%>