📄 admin_index.asp

📁 1
💻 ASP
📖 第 1 页 / 共 2 页
字号:
上一页 12
   <TD bgColor="#ffffff" height="1"></TD>
</TR>
<TR>
   <TD height="5" background="../images/admin/menu_1.gif"></TD>
</TR>
</TABLE>
    <div class="menutitle">&nbsp;&nbsp;<img src="../images/admin/left_fold1.gif" alt="" border="0"> 个人信息
	<TABLE width="158" cellSpacing="0" cellPadding="0" border="0">
	  <TR>
	    <TD height="5"></TD>
	  </TR>
	  <TR>
	     <TD bgColor="#ffffff" height="1"></TD>
	  </TR>
	 </TABLE>
     </div>

	<TABLE cellSpacing="0" cellPadding="0" width="158" background="../images/admin/menu_2.gif" border="0">
	  <TR>
	     <td width="5%"></td><TD height=25 width="95%"><img src="../images/admin/left_fold2.gif" alt="" border="0"> 帐号：<strong><%=request.cookies(FY_cookies)("AdminName")%></strong></TD>
	  </TR>
	  <TR>
	     <td width="5%"></td><TD height=25 width="95%"><img src="../images/admin/left_fold2.gif" alt="" border="0"> 等级：<strong><font color="#FF0000"><%=Admin_Name_Q(request.cookies(FY_cookies)("AdminFlag"))%></font></strong></TD>
	  </TR>
         </table>

        <TABLE width="158" cellSpacing="0" cellPadding="0" border="0">
	  <TR>
	     <TD height="5" background="../images/admin/menu_1.gif"></TD>
	 </TR>
       </TABLE>

<%
	dim j,i
	dim tmpmenu
	dim menuname
	dim menurl
for i=0 to ubound(menu,1)
If menu(i,0)<>"" Then
%>
<div class="menutitle" onClick="SwitchMenu('sub<%=i%>')">&nbsp;&nbsp;<img src="../images/admin/left_fold1.gif" alt="" border="0"> <%=menu(i,0)%>
       <TABLE width="158" cellSpacing="0" cellPadding="0" border="0">
         <TR>
           <TD height="5"></TD>
         </TR>
         <TR>
           <TD bgColor="#ffffff" height="1"></TD>
         </TR>
       </TABLE>
    </div>

    <span class="submenu" 
<%if i=0 or i=1 or i=2 or i=3 or i=4 then%>
<%else%>
<%end if%>
 id='sub<%=i%>'>
	<TABLE cellSpacing="0" cellPadding="0" width="158" background="../images/admin/menu_2.gif" border="0">
	<%
	for j=1 to ubound(menu,2)
	if isempty(menu(i,j)) then exit for
	If menu(i,j)<>"" Then
	%>
	  <TR>
	     <td width="10%"></td><TD height=25 width="90%"><img src="../images/admin/left_fold2.gif" alt="" border="0"> <%=menu(i,j)%></TD>
	  </TR>

<%End if
	next
%>

         </table>
      </span>
	<TABLE width="158" cellSpacing="0" cellPadding="0" border="0">
	  <TR>
	     <TD height="5" background="../images/admin/menu_1.gif"></TD>
	   </TR>
	</TABLE>

<%
End if
next%>
       <TABLE width="158" cellSpacing="0" cellPadding="0" border="0" background="../images/admin/menu_1.gif" height=70>
          <TR>
	    <TD height="20"><img src="../images/admin/left_fold1.gif" alt="" border="0"> 技术支持：飞云</TD>
	  </TR>
          <TR>
	    <TD height="20"><img src="../images/admin/left_fold1.gif" alt="" border="0"> 程序开发：<a href="http://www.KenQiao.Net" target="_blank">飞云博客</a></TD>
	  </TR>
          <TR>
	    <TD height="20"><img src="../images/admin/left_fold1.gif" alt="" border="0"> 当前版本：Ver <%=FY_Ver%></TD>
	  </TR>
	  <TR>
	     <TD bgColor="#ffffff" height="1"></TD>
	  </TR>
       </TABLE>
<BR>
<%
end sub
sub admin_main()
Dim theInstalledObjects(4)
theInstalledObjects(1) = "Scripting.FileSystemObject"
theInstalledObjects(2) = "adodb.connection"
'theInstalledObjects(3) = "JMail.SMTPMail"
'theInstalledObjects(4) = "CDONTS.NewMail"
%>
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK href="../images/admin/admin.css" type=text/css rel=stylesheet>
<META content="MSHTML 6.00.2800.1126" name=GENERATOR>
<TITLE>管理中心—首页</TITLE>
<script>if(top==self)top.location="Admin_Index.asp" </script>
</head><body>
<table width="100%" align="center" border="1" cellspacing="0" cellpadding="4" class=KenQiao_Net_bk style="border-collapse: collapse">
  <tr class=KenQiao_Net_ss> 
    <td align="center" colspan="2">欢迎使用飞云小说系统免费版 &nbsp;Ver <%=FY_Ver%> Build <%=FY_Build%></td>
  </tr>
  <tr class=KenQiao_Net_qs> 
   <td align="right" width="10%">官方公告：</td>
   <td align="center" width="90%" id="FYannounce">...正在加载官方公告</td>
  </tr>
  <tr>
    <td class="KenQiao_Net_ds" colspan="2">&nbsp;<a target="_blank" href="http://www.kenqiao.net">如果您发现<font color="#FF0000">BUG</font>，请点这里及时报告我们，以便我们为您及时解决。如果想第一时间得到更新，请勿删除！</a></td>
  </tr>
</table>
<BR>
<table width="100%" align="center" border="1" cellspacing="0" cellpadding="4" class=KenQiao_Net_bk style="border-collapse: collapse">
  <tr> 
    <td class=KenQiao_Net_ss align="center" colspan="2">
      友情提示</td>
  </tr>
 <tr>
    <td width="50%" class="KenQiao_Net_ds"><font color="#FF0000">商业版优惠价格【<b>240元</b>】，商业版拥有完善的 友情链接功能，广告系统，采集，TXT保存等优先使用的系统功能，欢迎用户联系QQ 1366024进行咨询和购买！</font><p><a target="_blank" href="http://www.kenqiao.net"><b>如果您不反馈错误，错误将永远存在；如果您不发表意见，程序将原地踏步!</b></a></td>
  </tr>
</table>
<br>
<table width="100%" align="center" border="1" cellspacing="0" cellpadding="4" class=KenQiao_Net_bk style="border-collapse: collapse">
  <tr> 
    <td class=KenQiao_Net_ss align="center" colspan="9">官方 技术/风格 精华帖</td>
  </tr>
 <tr class="KenQiao_Net_ds">
    <td width="100%" colspan="5" id="FYannounce2">...正在加载官方技术服务信息</td>
 </tr>
</table>
<BR>
<table width="100%" align="center" border="1" cellspacing="0" cellpadding="4" class=KenQiao_Net_bk style="border-collapse: collapse">
  <tr> 
    <td class=KenQiao_Net_ss align="center" colspan="2">网站管理系统技术支持</td>
  </tr>
 <tr>
 <td width="10%" class="KenQiao_Net_ds" height=23>技术支持</td>
 <td width="90%" class="KenQiao_Net_ds">飞云 </td>
  </tr>
 <tr>
 <td width="10%" class="KenQiao_Net_ds" height=23>官方博客</td>
 <td width="90%" class="KenQiao_Net_ds"><a href="http://www.KenQiao.Net" target='_blank'>Www.KenQiao.Net</a> </td>
  </tr>
  <tr>
 <td width="10%" class="KenQiao_Net_ds" height=23>联系方式</td>
 <td width="90%" class="KenQiao_Net_ds" style="LINE-HEIGHT: 150%">ＱＱ: 1366024 [<font color="#FF0000"><b>商业版从12月7号开始正式出售</b></font>，如果您是建设大型小说站点的，请联系官方购买]</td>
  </tr>
  <tr>
 <td width="10%" class="KenQiao_Net_ds" height=23><font color="#FF0000"><b>商业版优势</b></font></td>
 <td width="90%" class="KenQiao_Net_ds" style="LINE-HEIGHT: 150%">商业版比普通版多了<font color="#FF0000"><b>采集</b></font>，<font color="#FF0000"><b>TXT保存</b></font>，还有<font color="#FF0000"><b>权限设置</b></font>！</td>
  </tr>
</table>
<BR>
<table width="100%" align="center" border="1" cellspacing="0" cellpadding="4" class=KenQiao_Net_bk style="border-collapse: collapse">
  <tr> 
    <td class=KenQiao_Net_ss align="center" colspan="2">网站管理系统版本</td>
  </tr>
 <tr>
 <td width="10%" class="KenQiao_Net_ds" height=23>目前版本</td>
 <td width="90%" class="KenQiao_Net_ds">　飞云小说系统免费版 &nbsp;Ver <%=FY_Ver%> Build <%=FY_Build%></td>
  </tr>
  <tr>
 <td width="10%" class="KenQiao_Net_ds" height=23>版权声明</td>
 <td width="90%" class="KenQiao_Net_ds" style="LINE-HEIGHT: 150%">　1、本软件为共享软件,未经书面授权，不得向任何第三方提供本软件系统;<BR>
　2、用户自由选择是否使用,在使用中出现任何问题和由此造成的一切损失作者将不承担任何责任;<BR>
　3、您可以对本系统进行修改和美化，但必须保留完整的版权信息，否则后果自负; <BR></td>
  </tr>
</table>
<div id="FYannounce_true" style="display:none;">
<script src="http://Www.KenQiao.Net/News.asp?GetName=A&Build=<%=FY_Build%>"></script>
</div>
<div id="FYannounce2_true" style="display:none;">
<script src="http://Www.KenQiao.Net/News.asp?GetName=B&Build=<%=FY_Build%>"></script>
</div>
<SCRIPT LANGUAGE="JavaScript">
<!--
document.getElementById("FYannounce").innerHTML = document.getElementById("FYannounce_true").innerHTML;
document.getElementById("FYannounce2").innerHTML = document.getElementById("FYannounce2_true").innerHTML;
//-->
</SCRIPT>
<%
call admin_footer()
end sub 

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

%>
上一页 12
⌨️ 快捷键说明

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