📄 admin_server.asp

📁 ASP+Accesss数据库设备WEB报修
💻 ASP
字号:
<!--#include file =conn.asp-->
<!--#include file="ChkURL.asp"-->
<%if session("pass")<>"ok" then 
    Response.Redirect "index.asp"
    Response.End 
  end if
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>管理页面</title>
<META http-equiv=Content-Type content=text/html;charset=gb2312>
<link rel="stylesheet" href="style.css" type="text/css">
<BODY>
<table cellpadding="2" cellspacing="1" border="0" width="100%" class="TableBorder" align=center>
  <tr align="center">
    <td height=23 colspan=2 class="TableTitle1"><strong>服 务 器 信 息</strong>
  </tr>
  <tr>
    <td width="100" class="TableRow2" height=25><strong>管理快捷方式：</strong></td>
    <td class="TableRow2"><a href="Admin_system.asp">网站信息设置</a> | <A href="#">日志管理</A></td>
  </tr>
</table>
<table width="98%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td height="20"></td>
  </tr>
</table>
<table cellpadding="2" cellspacing="1" border="0" width="96%" class="tableBorder" align=center>
<tr>
<th height=25 colspan=2 class="TableRow2">服务器信息</th>
</tr>
<tr>
<td width="50%"  class="TableRow2" height=23>服务器类型：<%=Request.ServerVariables("OS")%></td>
<td width="50%" class="TableRow1">Jmail组件支持：<%response.write admin_object_install("JMail.SMTPMail",1)%></td>
</tr>
<tr>
  <td  class="TableRow2" height=23>服务器IP：<%=Request.ServerVariables("LOCAL_ADDR")%></td>
  <td width="50%" class="TableRow1">FSO文本读写：<%response.write admin_object_install("scripting.filesystemobject",0)%></td>
</tr>
<tr>
  <td  class="TableRow2" height=11>服务器端口：<%=Request.ServerVariables("SERVER_PORT")%></td>
  <td width="50%" class="TableRow1">ASPmail 发信：<%response.write admin_object_install("SMTPsvg.Mailer",1)%></td>
</tr>
<tr>
  <td  class="TableRow2" height=5>IIS版本：<%=Request.ServerVariables("SERVER_SOFTWARE")%></td>
  <td width="50%" class="TableRow1">LyfUpload 上传组件：<%response.write admin_object_install("LyfUpload.UploadFile",1)%></td>
</tr>
<tr>
  <td  class="TableRow2" height=2>服务器时间：<%=now%></td>
  <td width="50%" class="TableRow1">AspUpload 上传组件：<%response.write admin_object_install("Persits.Upload.1",1)%></td>
</tr>
<tr>
  <td  class="TableRow2" height=0>脚本超时时间：<%=Server.ScriptTimeout%> 秒</td>
  <td width="50%" class="TableRow1">AspJpeg 图像处理组件：<%response.write admin_object_install("Persits.Jpeg",1)%></td>
</tr>
<tr>
  <td  class="TableRow2" height=1>服务器CPU数量：<%=Request.ServerVariables("NUMBER_OF_PROCESSORS")%> 个</td>
  <td width="50%" class="TableRow1">SA-FileUp 上传组件：<%response.write admin_object_install("SoftArtisans.FileUp",1)%></td>
</tr>
<tr>
<td width="50%" class="TableRow2" height=23>站点物理路径：<%=Request.ServerVariables("APPL_PHYSICAL_PATH")%></td>
<td width="50%" class="TableRow1">Stream 文件流：<%response.write admin_object_install("Adodb.Stream",0)%></td>
</tr>
<tr>
<td width="50%" class="TableRow2" height=23>脚本解释引擎：<%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %></td>
<td width="50%" class="TableRow1">ADO 数据对像：<%response.write admin_object_install("adodb.connection",1)%></td>
</tr>
<tr>
<td width="50%" class="TableRow2" height=23>报修系统版本：<span class="style1">V2.0 Build 071202</span></td>
<td width="50%" class="TableRow1">CDONTS组件支持：<%response.write admin_object_install("CDONTS.NewMail",1)%></td>
</tr>
<tr>
  <td colspan=2 class="TableRow1" height=25><B>快捷操作选项：</B> <a href=admin_config.asp>网站基本设置</a>&nbsp;
<a href=CleanCache.asp>重建系统缓存</a>&nbsp;
<a href=admin_user_list.asp>用户管理</a></td>
</tr>
</table><br>
<!--#include file="copyright.asp" -->
</body>
</html>  
<%
function admin_object_install(obj,objver)
  on error resume next
  dim obj_jk,tmp1
  err=0
  set obj_jk=server.createobject(obj)
  if -2147221005=Err then
    err.clear
    admin_object_install="<b>×</b>&nbsp;不支持"
  else
    tmp1=""
    if objver=1 then
      tmp1=obj_jk.version
      if var_null(tmp1)="" then tmp1=obj_jk.about
      tmp1=replace(tmp1,"Version","")
      tmp1=trim(tmp1)
      tmp1="&nbsp;<font class=tims><font color=blue>"&tmp1&"</font></font>"
    end if
    admin_object_install="<font color=red><b>√</b>&nbsp;<font color=red>支持</font>"&tmp1
  end if
  set obj_jk=nothing
  if -2147221005=Err then err.clear
end function
%>
⌨️ 快捷键说明

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