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

📄 right.asp

📁 很好的企业网站管理系统!可以适应各种不同的小型企业!
💻 ASP
字号:
🔍 
<html>

<head>
<link rel="stylesheet" href="admin.css" type="text/css">
<meta copy="程序制作：xoyu（QQ：5964887）www.xoyu.com">
<!--#include file="check.asp"-->
<!--#include file="mdb_path_info.asp"-->
<!--#include file="config.asp"-->
<style type="text/css">
<!--
.style1 {color: #000000}
-->
</style>
</head>
<body>
<%
if xoYuStudioAdminDj=0 then SF="普通会员"
if xoYuStudioAdminDj=1 then SF="认证会员"
if xoYuStudioAdminDj=2 then SF="栏目管理员"
if xoYuStudioAdminDj=3 then SF="系统管理员"
if xoYuStudioAdminDj=4 then SF="超级管理员"
Dim theInstalledObjects(17)
    theInstalledObjects(0) = "MSWC.AdRotator"
    theInstalledObjects(1) = "MSWC.BrowserType"
    theInstalledObjects(2) = "MSWC.NextLink"
    theInstalledObjects(3) = "MSWC.Tools"
    theInstalledObjects(4) = "MSWC.Status"
    theInstalledObjects(5) = "MSWC.Counters"
    theInstalledObjects(6) = "IISSample.ContentRotator"
    theInstalledObjects(7) = "IISSample.PageCounter"
    theInstalledObjects(8) = "MSWC.PermissionChecker"
    theInstalledObjects(9) = "Scripting.FileSystemObject"
    theInstalledObjects(10) = "adodb.connection"
    
    theInstalledObjects(11) = "SoftArtisans.FileUp"
    theInstalledObjects(12) = "SoftArtisans.FileManager"
    theInstalledObjects(13) = "JMail.SMTPMail"
    theInstalledObjects(14) = "CDONTS.NewMail"
    theInstalledObjects(15) = "Persits.MailSender"
    theInstalledObjects(16) = "LyfUpload.UploadFile"
    theInstalledObjects(17) = "Persits.Upload.1"
    
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
%>
<table cellpadding=3 cellspacing=1 border=0 width=95% align=center>
<tr>
<td width="100%" valign=top>
<p align="center"> &nbsp;系统提示：您的等级为<font color="#FF0000"><%=sf%> </font>对于您的权限，请点击<a href="main.asp"><font color="#FF0000">这里</font></a>查看 </p>
</td>
</tr>
</table>
<table cellpadding="2" cellspacing="1" border="0" width="95%" class="tableBorder" align=center>
<tr><th class="tableHeaderText" colspan=2 height=25>
  <p align="left">服务器信息统计</th>
<tr>
      <td class="forumRow" height="20"><font face="Verdana, Arial, Helvetica, sans-serif">　服务器类型：<%=Request.ServerVariables("OS")%>(IP:<%=Request.ServerVariables("LOCAL_ADDR")%>)</font></td>
      <td class="forumRow" height="20">　站点物理路径：<%=request.ServerVariables("APPL_PHYSICAL_PATH")%></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td width="48%" class="forumRow" height="20"><font face="Verdana, Arial, Helvetica, sans-serif">　主机名，DNS别名，或IP地址：<font color=blue><%=Request.ServerVariables("SERVER_NAME")%></font></font></td>
      <td width="52%" class="forumRow" height="20"><font face="Verdana, Arial, Helvetica, sans-serif">　服务器操作系统：<font color=blue><%=Request.ServerVariables("OS")%></font></font></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td width="48%" class="forumRow" height="20"><font face="Verdana, Arial, Helvetica, sans-serif">　脚本解释引擎：<%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %></font></td>
      <td width="52%" class="forumRow" height="20"><font face="Verdana, Arial, Helvetica, sans-serif">　WEB服务器的名称和版本：<font color=blue><%=Request.ServerVariables("SERVER_SOFTWARE")%></font></font></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td width="48%" class="forumRow" height="20"><font face="Verdana, Arial, Helvetica, sans-serif">　脚本超时时间：<font color=blue><%=Server.ScriptTimeout%></font> 
        秒 </font></td>
      <td width="52%" class="forumRow" height="20"><font face="Verdana, Arial, Helvetica, sans-serif">　数据库使用： 
        <%
	    On Error Resume Next
	    Server.CreateObject("adodb.connection")
		if err=0 then 
		  response.write("<font color=blue>√</font>")
		else
          response.write("<font color=red>×</font>")
		end if	 
		err=0
	  %>
        </font></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td width="48%" class="forumRow" height="20"><font face="Verdana, Arial, Helvetica, sans-serif">　JRO.JetEngine(ACCESS 
        数据库)： 
        <%
	    On Error Resume Next
	    Server.CreateObject("JRO.JetEngine")
		if err=0 then 
		  response.write("<font color=blue>√</font>")
		else
          response.write("<font color=red>×</font>")
		end if	 
		err=0
	  %>
        </font></td>
      <td width="52%" class="forumRow" height="20"><font face="Verdana, Arial, Helvetica, sans-serif">　CDONTS组件支持： 
        <%
	    On Error Resume Next
	    Server.CreateObject("CDONTS.NewMail")
		if err=0 then 
		  response.write("<font color=blue>√</font>")
		else
          response.write("<font color=red>×</font>")
		end if	 
		err=0
	  %>
        </font></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td class="forumRow" height="20"><font face="Verdana, Arial, Helvetica, sans-serif">　FSO文本文件读写： 
        <%
	    On Error Resume Next
	    Server.CreateObject("Scripting.FileSystemObject")
		if err=0 then 
		  response.write("<font color=blue>√</font>")
		else
          response.write("<font color=red>×</font>")
		end if	 
		err=0
	  %>
        </font></td>
      <td class="forumRow" height="20"><font face="Verdana, Arial, Helvetica, sans-serif">　Jmail组件支持 
        <font color="#0033FF"> 
        <%If Not IsObjInstalled(theInstalledObjects(13)) Then%>
        <font color="#FF0000">×</font></font></font> <font color="#0033FF" face="Verdana, Arial, Helvetica, sans-serif"> 
        <%else%>
        √ 
        <%end if%>
        </font> </td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td class="forumRow" height="20">　脚本超时时间：<%=Server.ScriptTimeout%> 秒</td>
      <td class="forumRow" height="20">　服务器 CPU 数量：<%=Request.ServerVariables("NUMBER_OF_PROCESSORS")%> 
        个</td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td class="forumRow" height="20" colspan="2">　执行 SCRIPT 的虚拟路径：<%=Request.ServerVariables("SCRIPT_NAME")%></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td class="forumRow" height="20">　返回服务器处理请求的端口：<%=Request.ServerVariables("SERVER_PORT")%></td>
      <td class="forumRow" height="20" bgcolor="#FFFFFF">　协议的名称和版本：<%=Request.ServerVariables("SERVER_PROTOCOL")%></td>
</tr>
</table>
<br>
<table cellpadding="2" cellspacing="1" border="0" width="95%" class="tableBorder" align=center>
<tr><th class="tableHeaderText" colspan=2 height=25>晓宇听幽工作室“晓宇听幽网站内容管理系统”开发相关</th>
<tr>
<td width="20%"  class="forumRow" height=23>产品负责</td>
<td width="80%" class="forumRowHighlight">
xoyu（联系：http://www.xoyu.com QQ:5964887 xoyu@163.com）</td>
</tr>
<tr>
<td width="20%" class="forumRow" height=23>商业发展</td>
<td width="80%" class="forumRowHighlight">xoyu crazyspy</td>
</tr>
<tr>
<td width="20%" class="forumRow" height=23>插件开发</td>
<td width="80%" class="forumRowHighlight">
xoyu crazyspy</td>
</tr>
<tr>
<td width="20%" class="forumRow" height=23>美工设计</td>
<td width="80%" class="forumRowHighlight">
暂无（招聘中……）</td>
</tr>
</table>
<br>
<table cellpadding="2" cellspacing="1" border="0" width="95%" class="tableBorder" align=center>
<tr><th class="tableHeaderText" colspan=2 height=25>晓宇听幽工作室“晓宇听幽系列程序”介绍</th>
<tr>
<td width="20%"  class="forumRow" height=23>晓宇听幽系列程序</td>
<td width="80%" class="forumRowHighlight">
音乐、图片、电影、下载程序开发中……<br>
所有程序秉承晓宇听幽特色：<br>
<font color="#FF0000">纵横无限分级|自由组合调用|模板任意设计|完全静态生成<br>
内容管理系统综合所有系统成为一个紧密结合的整体！！！</font></td>
</tr>
</table>
<p align="center">Copyright(c) (1998-2002) xoYu FeelWide Studio. All rights reserved. <br>
版权所有：<a href="http://www.xoyu.com/">晓宇听幽工作室</a> 
技术支持：http://www.xoyu.com 电话：013884120060<a href="mailto:webmaster@qy163.com"><br>
电子信箱：xoyu@163.com</a> QQ:5964887 MSN:xoyu@163.com</p>
</body>
</html>

⌨️ 快捷键说明

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