⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 admin_index_main.asp

📁 我勇 java 和access 做的一个网站
💻 ASP
字号:
🔍 
<!--#include file="islogin.asp"-->
<!--#include file="conn.asp"-->
<%
Function CheckObjInstalled(strClassString)
	On Error Resume Next
	Dim Temp
	Err = 0
	Dim TmpObj
	Set TmpObj = Server.CreateObject(strClassString)
	Temp = Err
	IF Temp = 0 OR Temp = -2147221477 Then
		CheckObjInstalled= "<font color=""#0000FF""><b>√</b></font>"
	ElseIF Temp = 1 OR Temp = -2147221005 Then
		CheckObjInstalled="<font color=""#000000""><b>×</b></font>"
	End IF
	Err.Clear
	Set TmpObj = Nothing
	Err = 0
End Function
Function GetTotalSize(GetLocal,GetType)
	Dim FSO
	Set FSO=Server.CreateObject("Scripting.FileSystemObject")
	IF Err<>0 Then
		Err.Clear
		GetTotalSize="服务器关闭FSO，查看占用空间失败"
	Else
		Dim SiteFolder
		IF GetType="Folder" Then
			Set SiteFolder=FSO.GetFolder(GetLocal) 
		Else
			Set SiteFolder=FSO.GetFile(GetLocal) 
		End IF
		GetTotalSize=SiteFolder.Size
		IF GetTotalSize>1024*1024 Then
		GetTotalSize=GetTotalSize/1024/1024
		IF inStr(GetTotalSize,".") Then GetTotalSize = Left(GetTotalSize,inStr(GetTotalSize,".")+2)
			GetTotalSize=GetTotalSize&" MB"
		Else
			GetTotalSize=Fix(GetTotalSize/1024)&" KB"
		End IF
		Set SiteFolder=Nothing
	End IF
	Set FSO=Nothing
End Function
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>旅游网站新闻后台管理页面</title>
<link href="css/style.css" rel="stylesheet" type="text/css" />
<style type="text/css">
<!--
body,td,th {
	font-size: 12px;
}
body {
	margin-top: 0px;
	margin-bottom: 0px;
}
-->
</style></head>

<body>
<table width="96%" height="80" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr></tr>
  <tr>
    <td height="20" colspan="2" align="center" bgcolor="#186DAD"><span class="STYLE1"> <font color="#FFFFFF">服务器信息统计</font></span></td>
  </tr>
  <tr>
    <td colspan="2" valign="top"><table width="100%" border=1 align="center" cellPadding=0 cellSpacing=0 bordercolor="#186DAD" borderColorDark=#ffffff bgcolor="#186DAD">

      <tr>
        <td width="50%" height="30" valign="middle" bgcolor="#FFFFFF">
          <p>　　<span class="tdbg">服务器时间：<%=Now()%></span></p></td>
        <td width="50%" valign="middle" bgcolor="#FFFFFF"><span class="tdbg">　　服务器空间占用：<%=GetTotalSize(Request.ServerVariables("APPL_PHYSICAL_PATH"),"Folder")%></span></td>
      </tr>
      <tr>
        <td height="30" valign="middle" bgcolor="#FFFFFF"><span class="TableRow2">　　<span class="tdbg">服务器IIS版本：<%=Request.ServerVariables("SERVER_SOFTWARE")%></span></span></td>
        <td valign="middle" bgcolor="#FFFFFF">　　<span class="tdbg">客户端IP地址：<%=Request.ServerVariables("REMOTE_ADDR")%></span></td>
      </tr>
      <tr>
        <td height="30" valign="middle" bgcolor="#FFFFFF">　　<span class="tdbg">服务器操作系统：<%=Request.ServerVariables("OS")%></span></td>
        <td valign="middle" bgcolor="#FFFFFF">　　<span class="tdbg">服务器IP地址：<%=Request.ServerVariables("LOCAL_ADDR")%></span></td>
      </tr>
      <tr>
        <td height="30" valign="middle" bgcolor="#FFFFFF">　　<span class="tdbg">脚本解释引擎：<%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %></span></td>
        <td valign="middle" bgcolor="#FFFFFF">　　<span class="tdbg">站点物理路径：<%=Request.ServerVariables("APPL_PHYSICAL_PATH")%></span></td>
      </tr>
      <tr>
        <td height="30" valign="middle" bgcolor="#FFFFFF">　　<span class="tdbg">服务器CPU数量：<%=Request.ServerVariables("NUMBER_OF_PROCESSORS")%></span></td>
        <td valign="middle" bgcolor="#FFFFFF">　　<span class="tdbg">脚本超时设置：<%=Server.ScriptTimeout%></span></td>
      </tr>
      <tr>
        <td height="30" valign="middle" bgcolor="#FFFFFF">　　<span class="tdbg">FileUp上传组件：<%=CheckObjInstalled("FileUp.upload")%></span></td>
        <td valign="middle" bgcolor="#FFFFFF">　　<span class="tdbg">FSO文本读写：<%=CheckObjInstalled("Scripting.FileSystemObject")%></span></td>
      </tr>
      <tr>
        <td height="30" valign="middle" bgcolor="#FFFFFF">　　<span class="tdbg">数据库使用：<%=CheckObjInstalled("adodb.connection")%></span></td>
        <td valign="middle" bgcolor="#FFFFFF">　　<span class="tdbg">Jmail组件支持：<%=CheckObjInstalled("JMail.SMTPMail")%></span></td>
      </tr>
      <tr>
        <td height="30" valign="middle" bgcolor="#FFFFFF">　　<span class="tdbg">GflSDK组件支持：<%=CheckObjInstalled("GflAx190.GflAx")%></span></td>
        <td valign="middle" bgcolor="#FFFFFF">　　<span class="tdbg">EasyMail邮件支持：<%=CheckObjInstalled("easymail.Mailsend")%></span></td>
      </tr>
      <tr>
        <td height="30" valign="middle" bgcolor="#FFFFFF">　　<span class="tdbg">无组件上传－ADODB.Stream：<%=CheckObjInstalled("Scripting.Dictionary")%></span></td>
        <td valign="middle" bgcolor="#FFFFFF">　　<span class="tdbg">无组件上传－Scripting.Dictionary ：<%=CheckObjInstalled("Scripting.Dictionary")%></span></td>
      </tr>


    </table></td>
  </tr>
</table>
<table width="96%" height="80" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td height="20" align="center" bgcolor="#186DAD"><span class="STYLE1"> <font color="#FFFFFF">网站管理系统版本</font></span></td>
  </tr>
  <tr>
    <td valign="top"><table width="100%" border=1 align="center" cellPadding=0 cellSpacing=0 bordercolor="#186DAD" borderColorDark=#ffffff bgcolor="#186DAD">
      <tr>
        <td width="14%" height="30" valign="middle" bgcolor="#FFFFFF"><p>　　目前版本：</p></td>
        <td width="86%" valign="middle" bgcolor="#FFFFFF"><font color="#0000FF"><strong>&nbsp;青海旅游网管理系统 V1.0 测试版</strong></font></td>
      </tr>
      <tr>
        <td height="30" valign="middle" bgcolor="#FFFFFF"><span class="TableRow2">　　版权申明：</span></td>
        <td valign="middle" bgcolor="#FFFFFF"><span class="TableRow1" style="LINE-HEIGHT: 150%">&nbsp;本软件免费管理系统,允许任意传播;
          
        </span></td>
      </tr>
    </table>
	<table width="100%" height="80" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td height="20" align="center" bgcolor="#186DAD"><span class="STYLE1"> <font color="#FFFFFF">网站管理系统开发</font> </span></td>
  </tr>
  <tr>
    <td valign="top"><table width="100%" border=1 align="center" cellPadding=0 cellSpacing=0 bordercolor="#186DAD" borderColorDark=#ffffff bgcolor="#186DAD">
      <tr>
        <td width="14%" height="30" valign="middle" bgcolor="#FFFFFF"><p>　　程序制作：</p></td>
        <td width="86%" valign="middle" bgcolor="#FFFFFF">&nbsp; jessica</td>
      </tr>
      <tr>
        <td height="30" valign="middle" bgcolor="#FFFFFF"><span class="TableRow2">　　联系方式：</span></td>
        <td valign="middle" bgcolor="#FFFFFF"><p> 　QQ:35030420</p>          </td>
      </tr>
      <tr>
        <td height="30" valign="middle" bgcolor="#FFFFFF">　　程序主页：</td>
        <td valign="middle" bgcolor="#FFFFFF">　<a href="http://www.qhly.gov.cn" target="_blank">http://www.qhly.gov.cn</a></td>
      </tr>
    </table></td>
  </tr>
</table>	</td>
  </tr>
</table>
</body>
</html>

⌨️ 快捷键说明

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