📄 admin_main.asp
字号:
<!-- #include file="../conn.asp" -->
<!-- #include file="../inc/config.asp" -->
<!-- #include file="session.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=Sitename%>--管理页面</title>
<link href="css.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.style1 {color: #FF0000}
-->
</style>
</head>
<body>
<div align="center"><%set rs2=server.CreateObject("adodb.recordset")
if IsSqlDataBase = 2 then
sql2="select userclass from admin_user where username='"&request.cookies("CnendWeb")("admininfo_logname")&"'"
else
sql2="select userclass from admin_user where username='"&request.cookies("CnendWeb")("admininfo_logname")&"'"
end if
rs2.open sql2,conn,1,1
%>
<table width="100%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#1f3566" bordercolordark="#FFFFFF">
<tr bgcolor="#1C3566">
<td height=32> <b><font color="#ffffff">当前版本: <%if left(nowversion,44)="%BDK%FCc%D0%A1%CB%B5%C1%AC%D4%D8%CF%B5%CD%B3" then %><%=right(nowversion,51)%><%else%><%response.write "对不起，你使用的是非官方程序。"%><%end if%></font></b></td></tr>
<tr bgcolor="#1C3566">
<td height="26"> <b><font color="#ffffff">欢迎您:<%=request.cookies("CnendWeb")("admininfo_loginname")%>，您的等级为：
<%
select case rs2("userclass")
case "1"
response.write "审核员，拥有管理留言、友情连接的权利。"
case "2"
response.write "管理员，拥有管理留言、友情连接、评论、调查、公告的权利。"
case "3"
response.write "超级管理员，拥有网站的一切权利。"
end select
%></font></b>
<%
rs2.close
set rs2=nothing
%>
<font color="#ffffff"><%=now()%></font></td>
</tr>
</table>
<%
Function IsObjInstalled(strClassString)
On Error Resume Next
IsObjInstalled = False
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)
If Err = 0 Then IsObjInstalled = True
If Err = -2147352567 Then IsObjInstalled = True
Set xTestObj = Nothing
Err = 0
End Function
Dim theInstalledObjects(23)
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"
theInstalledObjects(18) = "CreatePreviewImage.cGvbox" 'CreatePreviewImage
theInstalledObjects(19) = "Persits.Jpeg" 'AspJpeg
theInstalledObjects(20) = "SoftArtisans.ImageGen" 'SoftArtisans ImgWriter V1.21
theInstalledObjects(21) = "sjCatSoft.Thumbnail"
theInstalledObjects(22) = "Microsoft.XMLHTTP"
theInstalledObjects(23) = "Adodb.Stream"
%>
<table width="100%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#1f3566" bordercolordark="#FFFFFF">
<tr>
<td colspan="2" bgcolor="#1C3566" height="32"> <strong><font color="#FFFFFF">服务器信息</font></strong></td>
</tr>
<tr bgcolor="#FAFAFA" height="30">
<td width="50%"> 服务器类型：<font face="Verdana, Arial, Helvetica, sans-serif"><%=Request.ServerVariables("OS")%>(IP:<%=Request.ServerVariables("LOCAL_ADDR")%>)</font></td>
<td width="50%"> 站点物理路径<font face="Verdana, Arial, Helvetica, sans-serif">：<%=request.ServerVariables("APPL_PHYSICAL_PATH")%></font></td>
</tr>
<tr bgcolor="#FAFAFA" height="30">
<td> 返回服务器的主机名，<font face="Verdana, Arial, Helvetica, sans-serif">IP</font>地址<font face="Verdana, Arial, Helvetica, sans-serif">：<font color="#0076AE"><%=Request.ServerVariables("SERVER_NAME")%></font></font></td>
<td> 服务器操作系统<font face="Verdana, Arial, Helvetica, sans-serif">：<font color="#0076AE"><%=Request.ServerVariables("OS")%></font></font></td>
</tr>
<tr bgcolor="#FAFAFA" height="30">
<td> 脚本解释引擎<span class="small2">：</span><font face="Verdana, Arial, Helvetica, sans-serif"><%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %> </font></td>
<td> <span class="small2"><font face="Verdana, Arial, Helvetica, sans-serif">WEB</font></span>服务器的名称和版本<font face="Verdana, Arial, Helvetica, sans-serif">：<font color="#0076AE"><%=Request.ServerVariables("SERVER_SOFTWARE")%></font></font></td>
</tr>
<tr bgcolor="#FAFAFA" height="30">
<td height="29"> 脚本超时时间<span class="small2">：</span><font color="#0076AE"><%=Server.ScriptTimeout%></font>
秒</td>
<td height="29"> 虚拟路径<font face="Verdana, Arial, Helvetica, sans-serif">：<%=Request.ServerVariables("SCRIPT_NAME")%></font></td>
</tr>
<tr bgcolor="#FAFAFA" height="30">
<td height="31"> 返回服务器处理请求的端口<font face="Verdana, Arial, Helvetica, sans-serif">：<%=Request.ServerVariables("SERVER_PORT")%></font></td>
<td height="31"> 协议的名称和版本<font face="Verdana, Arial, Helvetica, sans-serif">：<%=Request.ServerVariables("SERVER_PROTOCOL")%></font></td>
</tr>
<tr bgcolor="#FAFAFA" height="30">
<td> 服务器
<font face="Verdana, Arial, Helvetica, sans-serif">CPU</font> 数量<font face="Verdana, Arial, Helvetica, sans-serif">：<%=Request.ServerVariables("NUMBER_OF_PROCESSORS")%></font>
个 </td>
<td> 客户端操作系统： <%
dim thesoft,vOS
thesoft=Request.ServerVariables("HTTP_USER_AGENT")
if instr(thesoft,"Windows NT 5.0") then
vOS="Windows 2000"
elseif instr(thesoft,"Windows NT 5.2") then
vOs="Windows 2003"
elseif instr(thesoft,"Windows NT 5.1") then
vOs="Windows XP"
elseif instr(thesoft,"Windows NT") then
vOs="Windows NT"
elseif instr(thesoft,"Windows 9") then
vOs="Windows 9x"
elseif instr(thesoft,"unix") or instr(thesoft,"linux") or instr(thesoft,"SunOS") or instr(thesoft,"BSD") then
vOs="类Unix"
elseif instr(thesoft,"Mac") then
vOs="Mac"
else
vOs="Other"
end if
response.Write(vOs)
%> </td>
</tr>
<tr bgcolor="#FAFAFA" height="30">
<td> <font face="Verdana, Arial, Helvetica, sans-serif">CDONTS</font>组件支持<span class="small2">：</span>
<%
On Error Resume Next
Server.CreateObject("CDONTS.NewMail")
if err=0 then
response.write("<font color=#0076AE>√</font>")
else
response.write("<font color=red>×</font>")
end if
err=0
%> </td>
<td> <font face="Verdana, Arial, Helvetica, sans-serif"><span class="small2">Jmail</span></font>邮箱组件支持<span class="small2"><font face="Verdana, Arial, Helvetica, sans-serif">：</font></span>
<%If Not IsObjInstalled(theInstalledObjects(13)) Then%>
<font color="red">×</font> <%else%> <font color="0076AE">√</font> <%end if%></td>
</tr>
<tr bgcolor="#FAFAFA" height="30">
<td> LyfUpload上传组件：
<%If object_install("LyfUpload.UploadFile")=false Then%>
<font color="red">×</font>
<% else %>
<font color="0076AE">√</font>
<% end if %></td>
<td> Aspupload上传组件：
<%If object_install("persits.upload")=false Then%>
<font color="red">×</font>
<% else %>
<font color="0076AE">√</font>
<% end if %></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="1"></td>
</tr>
</table>
<table width="100%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#1f3566" bordercolordark="#FFFFFF">
<tr>
<td colspan="2" bgcolor="#1C3566" height="32"> <font color="#FFFFFF"><strong>使用本系统，请确认您的服务器和你的浏览器满足以下要求：</strong></font></td>
</tr>
<tr bgcolor="#FAFAFA" height="30">
<td width="50%"> <font face="Verdana, Arial, Helvetica, sans-serif">JRO.JetEngine(ACCESS</font><font face="Verdana, Arial, Helvetica, sans-serif">
</font>数据库<span class="small2"><font face="Verdana, Arial, Helvetica, sans-serif">)</font>：</span>
<%
On Error Resume Next
Server.CreateObject("JRO.JetEngine")
if err=0 then
response.write("<font color=#0076AE>√</font>")
else
response.write("<font color=red>×</font>")
end if
err=0
%> </td>
<td width="50%"> 数据库使用<span class="small2">：</span> <%
On Error Resume Next
Server.CreateObject("adodb.connection")
if err=0 then
response.write("<font color=#0076AE>√</font>")
else
response.write("<font color=red>×</font>")
end if
err=0
%> </td>
</tr>
<tr bgcolor="#FAFAFA" height="30">
<td> <span class="small2"><font face="Verdana, Arial, Helvetica, sans-serif">FSO</font></span>文本文件读写<span class="small2">：</span>
<%
On Error Resume Next
Server.CreateObject("Scripting.FileSystemObject")
if err=0 then
response.write("<font color=#0076AE>√</font>")
else
response.write("<font color=red>×</font>")
end if
err=0
%> (系统运行必须)</td>
<td> Microsoft.XMLHTTP <%If Not IsObjInstalled(theInstalledObjects(22)) Then%>
<font color="red">×</font> <%else%> <font color="0076AE">√</font> <%end if%>
(采集系统必须) Adodb.Stream <%If Not IsObjInstalled(theInstalledObjects(23)) Then%>
<font color="red">×</font> <%else%> <font color="0076AE">√</font> <%end if%>
</td>
</tr>
<tr bgcolor="#FAFAFA" height="30">
<td colspan="2"> 客户端浏览器版本：<%
Dim Agent,Browser,version,tmpstr
Agent=Request.ServerVariables("HTTP_USER_AGENT")
Agent=Split(Agent,";")
If InStr(Agent(1),"MSIE")>0 Then
Browser="MS Internet Explorer "
version=Trim(Left(Replace(Agent(1),"MSIE",""),6))
ElseIf InStr(Agent(4),"Netscape")>0 Then
Browser="Netscape "
tmpstr=Split(Agent(4),"/")
version=tmpstr(UBound(tmpstr))
ElseIf InStr(Agent(4),"rv:")>0 Then
Browser="Mozilla "
tmpstr=Split(Agent(4),":")
version=tmpstr(UBound(tmpstr))
If InStr(version,")") > 0 Then
tmpstr=Split(version,")")
version=tmpstr(0)
End If
End If
response.Write(""&Browser&" "&version&"")
%> [ 需要IE6.0或以上,服务器建议采用Windows 2000或Windows 2003 Server ]</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="1"></td>
</tr>
</table>
<table width="100%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#1f3566" bordercolordark="#FFFFFF">
<tr>
<td colspan="2" bgcolor="#1C3566" height="32"> <font color="#FFFFFF"><strong>联系我们</strong></font></td>
</tr>
<tr bgcolor="#FAFAFA">
<td width="13%" height="30" align="center">
产品开发
</td>
<td> 终点 （联系：<a target="_blank" href="http://www.cnend.net/">http://www.cnend.net/</a>
QQ:<a target="_blank" href="http://wpa.qq.com/msgrd?V=1&Uin=46653654&Site=www.cnend.net&Menu=yes">46653654</a>
Mail:<a href="mailto:liuyanhaoxin@yahoo.com.cn">liuyanhaoxin@yahoo.com.cn</a>）</td>
</tr>
<tr bgcolor="#FAFAFA">
<td colspan="2" bgcolor="#1C3566" height="32" align="center"><font color="#FFFFFF">
Copyright © 2004-2008 All rights reserved.<b><a target="_blank" href="http://www.cnend.net/"><font color="#FFFFFF">终点网络</font></a></b>
studio Power By <b>终点</b></font>
</td>
</tr>
</table>
<br>
</div>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -