?? 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 + -