admin_index_main.asp

个人网站比较简短

  </tr>
</table>
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td width="20" rowspan="2">&nbsp;</td>
    <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>
  <tr class="tdbg" height=23>
    <td width="50%">服务器类型：      <%=Request.ServerVariables("OS")%>(IP:<%=Request.ServerVariables("LOCAL_ADDR")%>)</td>
    <td width="50%">脚本解释引擎：
    <%
    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 class="tdbg" height=23>
    <td width="50%">站点物理路径：      <%=request.ServerVariables("APPL_PHYSICAL_PATH")%></td>
    <td width="50%">数据库使用：<%ShowObjectInstalled("adodb.connection")%></td>
  </tr>
  <tr class="tdbg" height=23>
    <td width="50%">FSO文本读写：<%ShowObjectInstalled(objName_FSO)%></td>
    <td width="50%">数据流读写：<%ShowObjectInstalled("Adodb.Stream")%></td>
  </tr>
  <tr class="tdbg" height=23>
    <td width="50%">XMLHTTP组件支持：<%ShowObjectInstalled("Microsoft.XMLHTTP")%></td>
    <td width="50%">XMLDOM组件支持：<%ShowObjectInstalled("Microsoft.XMLDOM")%></td>
  </tr>
  <tr class="tdbg" height=23>
    <td width="50%">XML组件支持：<%ShowObjectInstalled("MSXML2.XMLHTTP")%></td>
    <td width="50%">AspJpeg组件支持：<%ShowObjectInstalled("Persits.Jpeg")%></td>
  </tr>
  
  <tr class="tdbg" height=23>
    <td width="50%">Jmail组件支持：<%ShowObjectInstalled("JMail.SMTPMail")%></td>
    <td width="50%">CDONTS组件支持：<%ShowObjectInstalled("CDONTS.NewMail")%></td>
  </tr>
  <tr class="tdbg" height=23>
    <td width="50%">ASPEMAIL组件支持：<%ShowObjectInstalled("Persits.MailSender")%></td>
    <td width="50%">WebEasyMail组件支持：<%ShowObjectInstalled("easymail.MailSend")%></td>
  </tr>
  <tr class="tdbg" height=23>
    <td width="50%"> </td>
    <td width="50%" align="right"><a href="Admin_ServerInfo.asp">点此查看更详细的服务器信息&gt;&gt;&gt;</a></td>
  </tr>
</table>
<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 2005-2008 &copy; <%=SiteName%> All Rights Reserved.</span>
  </tr>
</table>
<div id="peinfo3" style="height:1;overflow=auto;visibility:hidden;">
<script src="http://www.cns520.com/Cns520_Info.asp?Action=ShowAnnounce"></script>
</div>
<div id="peinfo4" style="height:1;overflow=auto;visibility:hidden;">
<script src="http://www.cns520.com/Cns520_Info.asp?Action=ShowPatchAnnounce"></script>
</div>
<script language="JavaScript">
marqueesHeight=30;
scrillHeight=20;
scrillspeed=60;
stoptimes=50;
stopscroll=false;preTop=0;currentTop=0;stoptime=0;
peinfo1.scrollTop=0;
with (peinfo1)
{
  style.width=300;
  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

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

Function ShowUnPassedChannel(ChannelModuleType)
    Dim rsChannel, rsChannelCount, ModuleName, NoneInfo
    
    Select Case PE_CLng(ChannelModuleType)
    Case 1
        ModuleName = "Article"
    Case 2
        ModuleName = "Soft"
    Case 3
        ModuleName = "Photo"
    Case Else
    
    End Select
    NoneInfo = True
    Set rsChannel = Conn.Execute("select ChannelID,ChannelName from PE_Channel where ModuleType = " & PE_CLng(ChannelModuleType))
    Do While Not rsChannel.EOF
        Set rsChannelCount = Conn.Execute("select count(" & ModuleName & "ID) from PE_" & ModuleName & " where Deleted=" & PE_False & " and ChannelID = " & rsChannel("ChannelID") & " and Status=0")
        If rsChannelCount(0) > 0 Then
            response.write "<a href=Admin_" & ModuleName & ".asp?ChannelID=" & PE_CLng(rsChannel("ChannelID")) & "&Action=Manage&ClassID=0&SpecialID=0&Status=0 target=main>" & rsChannel("ChannelName") & "</a>:[<span style='color:#ff0000'>" & rsChannelCount(0) & "</span>]  "
        NoneInfo = False
        End If
    rsChannel.movenext
    Loop
    If NoneInfo = True Then
        response.write "没有待审核信息"
    End If
    rsChannelCount.Close
    Set rsChannelCount = Nothing
    rsChannel.Close
    Set rsChannel = Nothing
    
End Function

Function ShowUnPassedComment()
    Dim rsChannelCount, rs, rsChannel
    Set rsChannel = Conn.Execute("select count(CommentID) from PE_Comment where Passed =" & PE_False)
    If rsChannel(0) > 0 Then
        response.write "待审核评论:[<span style='color:#ff0000'>" & rsChannel(0) & "</span>]"
    Else
        response.write "没有待审核评论"
    End If
    Set rsChannelCount = Conn.Execute("select top 20 * from PE_Comment where Passed = " & PE_False)
    rsChannel.Close
    Set rsChannel = Nothing
End Function


Function ShowUnPassedGuestBook()
    Dim rsChannelCount
    Set rsChannelCount = Conn.Execute("select count(GuestID) from PE_GuestBook where GuestIsPassed =" & PE_False)
    If rsChannelCount(0) > 0 Then
        response.write "<a href='Admin_GuestBook.asp?Passed=False' target=main>留言版</a>:[<span style='color:#ff0000'>" & rsChannelCount(0) & "</span>]"
    Else
        response.write "没有待审核留言"
    End If
    rsChannelCount.Close
    Set rsChannelCount = Nothing
End Function

Function ShowUnPassedUser()
    Dim rsChannelCount
    Set rsChannelCount = Conn.Execute("select count(UserID) from PE_User where GroupID = 7")
    If rsChannelCount(0) > 0 Then
        response.write "<a href='Admin_User.asp?SearchType=11&GroupID=7' target=main>待审批会员</a>:[<span style='color:#ff0000'>" & rsChannelCount(0) & "</span>]<br>"
    Else
        response.write "没有待审批会员<br>"
    End If
    Set rsChannelCount = Conn.Execute("select count(UserID) from PE_User where GroupID = 8")
    If rsChannelCount(0) > 0 Then
        response.write "<a href='Admin_User.asp?SearchType=11&GroupID=8' target=main>未验证会员</a>:[<span style='color:#ff0000'>" & rsChannelCount(0) & "</span>]"
    Else
        response.write "没有未验证会员"
    End If
        
    rsChannelCount.Close
    Set rsChannelCount = Nothing
End Function

%>