admin_index_main.asp

一本关于大学的书

    <td width="100" align="center" class="topbg"><a class="Class" href="Admin_Channel.asp" target="main" title="网站管理系统中，频道是指某一功能模板的集合。某一频道可以是具备文章系统功能，或具备下载系统、图片系统的功能。">网站频道管理</a></td>
    <td width="300">&nbsp;</td>
    <td width="40" rowspan="2">&nbsp;</td>
    <td width="100" align="center" class="topbg"><a class="Class" href="Admin_Advertisement.asp" target="main">网站广告管理</a></td>
    <td width="300">&nbsp;</td>
    <td width="21" rowspan="2">&nbsp;</td>
  </tr>
  <tr class="topbg2">
    <td height="1" colspan="2"></td>
    <td colspan="2"></td>
  </tr>
</table>
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td width="20">&nbsp;</td>
    <td width="400">　　<a href="Admin_Channel.asp" target="main">管理网站的各个频道的功能模块，如文章、下载、图片和留言等频道。</a>频道可分为<a href="#" title="系统内部频道指的是在MY动力现有功能模块（新闻、文章、图片等）基础上添加新的频道，新频道具备和所使用功能模块完全相同的功能。"><U>系统内部频道</U></a>与<a href="#" title="外部频道指链接到MY动力系统以外的地址中。当此频道准备链接到网站中的其他系统时"><U>外部频道</U></a>。频道类型请慎重选择，频道一旦添加后就不能再更改频道类型。</td>
    <td width="40">&nbsp;</td>
    <td width="400">　　系统提供强大的<a href="Admin_Advertisement.asp" target=main title="在线编辑器能够在网页上实现许多桌面编辑软件（如：Word）所具有的强大可视编辑内容的功能。"><u>网站广告管理</u></a>功能，对网站的广告版位及广告进行增加、修改、删除等操作。<br>
    快捷菜单：<a href="Admin_Advertisement.asp?Action=ZoneList" target="main"><u><font color="#FF0000">广告版位管理</font></u></a> | <a href="Admin_Advertisement.asp?Action=AddZone" target="main"><u><font color="#FF0000">添加新版位</font></u></a> | <a href="Admin_Advertisement.asp?Action=ADList" target="main"><u><font color="#FF0000">网站广告管理</font></u></a> | <a href="Admin_GuestBook.asp?Passed=All" target="main"></a><a href="Admin_Advertisement.asp?Action=AddAD" target="main"><u><font color="#FF0000">添加新广告</font></u></a></td>
    <td width="21">&nbsp;</td>
  </tr>
</table>
<br>
<table cellpadding="2" cellspacing="1" border="0" width="100%" class="border" align=center>
  <tr align="center">
    <td height=25 colspan=2 class="topbg"><span class="Glow">服 务 器 信 息</span><tr>
    <td width="50%"  class="tdbg" height=23>服务器类型：      <%=Request.ServerVariables("OS")%>(IP:<%=Request.ServerVariables("LOCAL_ADDR")%>)</td>
    <td width="50%" class="tdbg">脚本解释引擎：
    <%
    response.write ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion
    If CSng(ScriptEngineMajorVersion & "." & ScriptEngineMinorVersion) < 5.6 Then
        response.write "&nbsp;&nbsp;<a href='http://www.microsoft.com/downloads/release.asp?ReleaseID=33136' target='_blank'><font color='green'>版本过低，请点此更新</font></a>"
    End If
    %>
    </td>
  </tr>
  <tr>
    <td width="50%" class="tdbg" height=23>站点物理路径：      <%=request.ServerVariables("APPL_PHYSICAL_PATH")%></td>
    <td width="50%" class="tdbg">数据库使用：<%ShowObjectInstalled("adodb.connection")%></td>
  </tr>
  <tr>
    <td width="50%" class="tdbg" height=23>FSO文本读写：<%ShowObjectInstalled(objName_FSO)%></td>
    <td width="50%" class="tdbg">数据流读写：<%ShowObjectInstalled("Adodb.Stream")%></td>
  </tr>
  <tr>
    <td width="50%" class="tdbg" height=23>XMLHTTP组件支持：<%ShowObjectInstalled("Microsoft.XMLHTTP")%></td>
    <td width="50%" class="tdbg">XMLDOM组件支持：<%ShowObjectInstalled("Microsoft.XMLDOM")%></td>
  </tr>
  <tr>
    <td width="50%" class="tdbg" height=23>XML组件支持：<%ShowObjectInstalled("MSXML2.XMLHTTP")%></td>
    <td width="50%" class="tdbg">AspJpeg组件支持：<%ShowObjectInstalled("Persits.Jpeg")%></td>
  </tr>
  
  <tr>
    <td width="50%" class="tdbg" height=23>Jmail组件支持：<%ShowObjectInstalled("JMail.SMTPMail")%></td>
    <td width="50%" class="tdbg">CDONTS组件支持：<%ShowObjectInstalled("CDONTS.NewMail")%></td>
  </tr>
  <tr>
    <td width="50%" class="tdbg" height=23>ASPEMAIL组件支持：<%ShowObjectInstalled("Persits.MailSender")%></td>
    <td width="50%" class="tdbg">WebEasyMail组件支持：<%ShowObjectInstalled("easymail.MailSend")%></td>
  </tr>
  <tr>
    <td class="tdbg" height=23>动易组件支持：
      <%If Not IsObjInstalled("PE_Common6.GetVersion") Then%>
      <font color="red"><b>×</b> 请联系你的空间商安装组件，否则将不能使用本系统！<span id='version'></span></font>
      <%else%>
      <b>√</b> <font color='red'>组件版本：<span id='version'><%=Get_PE_Version()%></span></font>
      <%end if%>
      <br>官方最新组件版本：<font color='blue'><span id='peversion'><script src="http://www.powereasy.net/PowerEasy2006_Info.asp?Action=ShowVersion"></script></span></font> <span id='tips'> </span>
    </td>
    <td align="right" class="tdbg"><a href="Admin_ServerInfo.asp">点此查看更详细的服务器信息&gt;&gt;&gt;</a></td>
  </tr>
</table>
<script language='javascript'>
  if(document.getElementById("version").innerText<document.getElementById("peversion").innerText){
    document.getElementById("tips").innerHTML="<font color='green'>请联系空间商安装最新版的动易组件！</font>";
  }
</script>
<br>
<table cellpadding="2" cellspacing="1" border="0" width="100%" class="border" align=center>
  <tr align="center">
    <td height=25 class="topbg"><span class="Glow">Copyright 2003-2006 &copy; <%=SiteName%> All Rights Reserved.</span>
  </tr>
</table>
<div id="peinfo3" style="height:1;overflow=auto;visibility:hidden;">
<script src="http://www.powereasy.net/PowerEasy2006_Info.asp?Action=ShowAnnounce"></script>
</div>
<div id="peinfo4" style="height:1;overflow=auto;visibility:hidden;">
<script src="http://www.powereasy.net/PowerEasy2006_Info.asp?Action=ShowPatchAnnounce"></script>
</div>
<script language="JavaScript">
marqueesHeight=36;
scrillHeight=20;
scrillspeed=60;
stoptimes=50;
stopscroll=false;preTop=0;currentTop=0;stoptime=0;
peinfo1.scrollTop=0;
with (peinfo1)
{
  style.width=0;
  style.height=marqueesHeight;
  style.overflowX='visible';
  style.overflowY='hidden';
  noWrap=true;
  onmouseover=new Function("stopscroll=true");
  onmouseout=new Function("stopscroll=false");
}
function init_srolltext()
{
  peinfo2.innerHTML='';
  peinfo2.innerHTML+=peinfo3.innerHTML;
  peinfo1.innerHTML=peinfo3.innerHTML+peinfo3.innerHTML;
  setInterval("scrollUp()",scrillspeed);
}

function init_peifo()
{
  peinfo5.innerHTML=peinfo4.innerHTML;
}
function scrollUp()
{
  if(stopscroll==true) return;
  currentTop+=1;
  if(currentTop==scrillHeight)
  {
   stoptime+=1;
   currentTop-=1;
   if(stoptime==stoptimes) { currentTop=0; stoptime=0; }
  }
  else
  {
   preTop=peinfo1.scrollTop;
   peinfo1.scrollTop+=1;
   if(preTop==peinfo1.scrollTop){ peinfo1.scrollTop=peinfo2.offsetHeight-marqueesHeight; peinfo1.scrollTop+=1; }
  }
}
init_peifo();
setInterval("",1000);
init_srolltext();
</script>
</body>
</html>
<%
Call CloseConn


Function ShowUnPassedInfo()
    Dim rsCount, UnPassed_Article, UnPassed_Soft, UnPassed_Photo, UnPassed_Message, strInfo
    Set rsCount = Conn.Execute("select count(ArticleID) from PE_Article where Deleted=" & PE_False & " and Status=0")
    If Not (rsCount.EOF And rsCount.bof) Then
        UnPassed_Article = rsCount(0)
    Else
        UnPassed_Article = 0
    End If
    Set rsCount = Conn.Execute("select count(SoftID) from PE_Soft where Deleted=" & PE_False & " and Status=0")
    If Not (rsCount.EOF And rsCount.bof) Then
        UnPassed_Soft = rsCount(0)
    Else
        UnPassed_Soft = 0
    End If
    Set rsCount = Conn.Execute("select count(PhotoID) from PE_Photo where Deleted=" & PE_False & " and Status=0")
    If Not (rsCount.EOF And rsCount.bof) Then
        UnPassed_Photo = rsCount(0)
    Else
        UnPassed_Photo = 0
    End If
    Set rsCount = Conn.Execute("select count(GuestID) from PE_GuestBook where GuestIsPassed=" & PE_False)
    If Not (rsCount.EOF And rsCount.bof) Then
        UnPassed_Message = rsCount(0)
    Else
        UnPassed_Message = 0
    End If
    Set rsCount = Nothing
    strInfo = strInfo & "<img src='Images/img_u.gif' align='absmiddle'>待审文章："
    strInfo = strInfo & "<font color=red>" & UnPassed_Article & "</font>篇&nbsp;&nbsp;"
    strInfo = strInfo & "<img src='Images/img_u.gif' align='absmiddle'>待审下载："
    strInfo = strInfo & "<font color=red>" & UnPassed_Soft & "</font>个<br>"
    strInfo = strInfo & "<img src='Images/img_u.gif' align='absmiddle'>待审图片："
    strInfo = strInfo & "<font color=red>" & UnPassed_Photo & "</font>个&nbsp;&nbsp;"
    strInfo = strInfo & "<img src='Images/img_u.gif' align='absmiddle'>待审留言："
    strInfo = strInfo & "<font color=red>" & UnPassed_Message & "</font>条"
    ShowUnPassedInfo = strInfo
End Function

Function Get_PE_Version()
    On Error Resume Next
    Dim PE_Version, strVersion
    Set PE_Version = server.CreateObject("PE_Common6.GetVersion")
    If Err Then
        Err.Clear
        strVersion = "未知"
    Else
        strVersion = PE_Version.strVersion
    End If
    Set PE_Version = Nothing
    Get_PE_Version = strVersion
End Function

Sub ShowObjectInstalled(strObjName)
	If IsObjInstalled(strObjName) Then
		Response.Write "<b>√</b>"
	Else
		Response.Write "<font color='red'><b>×</b></font>"
	End If
End Sub
%>