📄 user_index.asp
字号:
Next
End if
Set rsLeft=Nothing
%>
<table cellpadding="0" cellspacing="0" width="158" align="center">
<tr width="100%">
<td height="25" class="menu_title" onmouseover="this.className='menu_title2';" onmouseout="this.className='menu_title';" background="Images/User_left.gif" onclick="showsubmenu(57)" style="cursor:hand;"><span><img src="Images/open.gif" style="float:left;margin:2 5 0px;" id="imgMenu57" align="absmiddle" alt="" />用户插件中心</td>
</tr>
<tr>
<td style="width:100%;display:none" id="submenu57">
<table class="sec_menu" cellpadding="0" cellspacing="1" align="center" width="100%">
<%
Set rsLeft=Cl.Execute("Select ID,PlusName,UserLink From Cl_Plus Where IsUse=0 And UserType=0 Order By OrderID Desc")
if Not rsLeft.Eof then
SQL = rsLeft.GetRows(-1)
for i=0 to ubound(sql,2)
If sql(2,i)<>"" Then%>
<tr height="20" class="tdbg">
<td> <a href="<%=sql(2,i)%>" target="main"><%=sql(1,i)%>管理</a></td></tr><% End if
next
SQL=Empty
else%>
<tr height="20" class="tdbg">
<td> 暂无任何插件</td></tr>
<%end if
Set rsLeft=Nothing
%></table>
<table cellpadding="0" cellspacing="0" align="center" width="100%">
<tr><td height="15"></td></tr>
</table>
</td>
</tr>
</table>
<% Dim ArrItem,Item,MenuItem
Set rsLeft=Cl.Execute("Select ID,PlusName,UserMenu From Cl_Plus Where IsUse=0 And UserType=1 Order By OrderID Desc")
if Not rsLeft.Eof then
SQL = rsLeft.GetRows(-1)
for i=0 to ubound(sql,2)
%>
<table cellpadding="0" cellspacing="0" width="158" align="center">
<tr width="100%">
<td height="25" class="menu_title" onmouseover="this.className='menu_title2';" onmouseout="this.className='menu_title';" background="Images/User_left.gif" onclick="showsubmenu(11<%=sql(0,i)%>)" style="cursor:hand;"><span><img src="Images/open.gif" style="float:left;margin:2 5 0px;" id="imgMenu11<%=sql(0,i)%>" align="absmiddle" alt="" /><%=sql(1,i)%>管理</span></td>
</tr>
<tr>
<td style="width:100%;display:none" id="submenu11<%=sql(0,i)%>">
<table class="sec_menu" cellpadding="0" cellspacing="1" align="center" width="100%">
<%ArrItem=Split(sql(2,i),VbCrlf)
For Each Item In ArrItem
Response.Write "<tr class='tdbg'><td height='20'> "&Item&"</td></tr>"
Next%>
</table>
<table cellpadding="0" cellspacing="0" align="center" width="100%">
<tr><td height="15"></td></tr>
</table>
</td>
</tr>
</table>
<%
next
SQL=Empty
end if
Set rsLeft=Nothing
%>
<table cellpadding="0" cellspacing="0" width="158" align="center">
<tr width="100%">
<td height="25" class="menu_title" onmouseover="this.className='menu_title2';" onmouseout="this.className='menu_title';" background="Images/User_left.gif" onclick="showsubmenu(51)" style="cursor:hand;"><span><img src="Images/open.gif" style="float:left;margin:2 5 0px;" id="imgMenu51" align="absmiddle" />版权信息</td>
</tr>
<tr>
<td colspan="3" style="width:170" id="submenu51">
<table class="sec_menu" cellpadding="0" cellspacing="1" align="center" width="100%">
<tr class="tdbg"><td height="20"><br /> 版权所有： <a href="http://www.aspoo.cn/" target="_blank">创 力 网</a><br />
技术支持： <a href="http://bbs.aspoo.cn/" target="_blank">创力论坛</a><br />
<br />
</td></tr>
</table> </td>
</tr>
</table>
</body>
</html>
<%
End Sub
Sub User_top()
%>
<html>
<head>
<title><%=Cl.Web_Info(0)%>后台管理页面</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type=text/css>
body { margin:0px; font:normal 12px 宋体;
SCROLLBAR-FACE-COLOR: #009ace; SCROLLBAR-HIGHLIGHT-COLOR: #ffffff;
SCROLLBAR-SHADOW-COLOR: #009ace; SCROLLBAR-DARKSHADOW-COLOR: #009ace;
SCROLLBAR-3DLIGHT-COLOR: #009ace; SCROLLBAR-ARROW-COLOR: #def0fa;
SCROLLBAR-TRACK-COLOR: #def0fa;
}
table { border:0px; }
td { font:normal 12px 宋体; }
img { vertical-align:bottom; border:0px; }
a { font:normal 12px 宋体; color:#000000; text-decoration:none; }
a:hover { color:#428EFF;text-decoration:underline; }
.sec_menu { border-left:1px solid white; border-right:1px solid white; border-bottom:1px solid white; overflow:hidden; background:#def0fa; }
.menu_title span { position:relative; top:2px; left:8px; color:#215DC6; font-weight:bold; }
.menu_title2 span { position:relative; top:2px; left:8px; color:#428EFF; font-weight:bold; }
th,.title{FONT-WEIGHT: bold; FONT-SIZE: 12px; BACKGROUND-COLOR: #009ace; Height: 20; COLOR: white; }
.border{BORDER-RIGHT: #009ace 1px solid; BORDER-TOP: #009ace 1px solid;
BORDER-LEFT: #009ace 1px solid; WIDTH: 100%; BORDER-BOTTOM: #009ace 1px solid; BACKGROUND-COLOR: #ffffff}
</style>
<base target="main">
<script src="../Inc/Js/Admin.js" language="JavaScript"></script>
<script language="JavaScript" type="text/javascript">
var displayBar=true;
function switchBar(obj)
{
if (displayBar)
{
parent.frame.cols="0,*";
displayBar=false;
obj.src="Images/User_top_open.gif";
obj.title="打开左边管理菜单";
}
else{
parent.frame.cols="180,*";
displayBar=true;
obj.src="Images/User_top_close.gif";
obj.title="关闭左边管理菜单";
}
}
function Goto(url)
{
parent.main.location.href=url;
}
function UGoto(url)
{
parent.location.href=url;
}
</script>
</head>
<body leftmargin="0" topmargin="0">
<table width="100%" border=0 cellpadding=0 cellspacing=1 class="border">
<tr class=title><td>
<table width="100%" border=0 cellpadding=0 cellspacing=0>
<tr valign=middle>
<td width=30>
<img onclick="switchBar(this)" src="Images/User_top_close.gif" title="关闭左边管理菜单" style="cursor:hand" width=28 height=26>
</td>
<td width="66" height=28><a onclick="UGoto('../Index.asp')" style="cursor:hand"><b><font color=red>返回首页</font></b></a></td>
<td height=28 align=right>
<%if Cl.UserGroupID=1 then%>
<a onclick="UGoto('../<%=Cl.Web_Info(14)%>Admin_Index.asp')" style="cursor:hand"><b><font color=red>后台管理</font></b></a>
<%end if%>
<a onclick="Goto('User_UserInfo.asp')" style="cursor:hand"><b><font color=#ffffff>修改资料</font></b></a>
<a onclick="Goto('../User/User_Message.asp')" style="cursor:hand"><b><font color=#ffffff>查看短信</font></b></a>
<a onclick="Goto('User_Index.asp?action=User_main')" style="cursor:hand"><b><font color=#ffffff>管理首页</font></b></a>
<a onclick="Goto('User_UserInfo.asp?Action=ShowInfo')" style="cursor:hand"><b><font color=#ffffff>用户信息</font></b></a>
<a onclick="UGoto('Logout.asp')" style="cursor:hand"><b><font color=#ffffff>退出登录</font></b></a>
</td>
<td width=30> </td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>
<%
End Sub
Sub User_main()
%>
<html>
<head>
<title><%=Cl.Web_Info(0)%>后台管理首页</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../Skins/Css/User.Css">
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table cellpadding="2" cellspacing="1" border="0" class="border" align="center">
<tr>
<td colspan="2" class="title">创力网站管理系统(<%=ClCMS_Version%>)信息</td>
</tr>
<tr><td class="title2" height="23" colspan="2">本网站管理系统由创力网（<b>Aspoo.CN</b>）授权给 <b><%=Cl.Web_Info(0)%></b> 使用，当前使用版本为:<b><% Response.Write ClCMS_Version
if IsSqlDataBase=1 then
Response.Write " SQL"
Else
Response.Write " Access"
End if%></b>数据库</td></tr>
<tr class="tdbg">
<td width="15%" align="right" ><strong>开发团队：</strong></td>
<td align="left"> 梅傲风 GDW尼奥 画荣 无刀</td>
</tr>
<tr class="tdbg2">
<td width="15%" align="right"><strong>特别感谢：</strong></td>
<td align="left"> 老胡 7K MCCAD 若非 小林 所有支持创力的朋友</td>
</tr>
<tr class="tdbg">
<td width="15%" align="right"><strong>版权所有：</strong></td>
<td align="left"> 创力网 / 北京今日学易科技有限公司</td>
</tr>
<tr class="tdbg2">
<td width="15%" align="right" rowspan="2"><strong>官方网站：</strong></td>
<td align="left"> 官方主页：<a href="http://www.aspoo.CN" target="_blank">http://www.aspoo.cn</a> <a href="http://www.aspoo.com" target="_blank">http://www.aspoo.com</a></td>
</tr>
<tr class="tdbg2">
<td align="left"> 技术支持：<a href="http://bbs.aspoo.CN" target="_blank">http://bbs.aspoo.cn</a> <a href="http://bbs.aspoo.Com" target="_blank">http://bbs.aspoo.com</a></td>
</tr>
<tr class="tdbg">
<td width="15%" align="right"><strong>系统介绍</strong>：</td>
<td align="left"> 《创力网站管理系统》英文全名《CreateLiveCMS》<br />是由创力网（Aspoo.CN）和北京今日学易（zxxk.com）开发编写的一个<font color="red"><b>安全</b></font>、<font color="red"><b>快速</b></font>、高效、实用、功能强大的网站管理系统，<br />当前版本为《CreateLiveCMS v4.0》，具有以下特色：<br />
1、包含文章、下载、图片、影视、商城、留言、用户等模块。 <br />
2、各模块栏目无限级分类。<br />
3、强大的防SQL注入功能和IP来访限定，确保网站能安全的正常运行。<br />
4、软件、图片防盗连处理，（下载文件自动随机重命名）。 <br />
5、强大的模板功能，界面和程序分离，所有模块均通过标记调用，可以非常容易的制作模板。 <br />
6、无限下载、图片、影片地址添加。<br />
7、应用了缓存技术，运行速度快。<br />
<font color="red">8、全静态HTML文件生成。</font><br />
9、脏话过滤功能，注册字符过滤。<br />
10、超强的上传文件功能，支持选择上传组件，支持图片水印，支持更改上传目录。<br />
11、超强的邮件群发功能，支持选择发送组件，支持分组发送，批量用户发送。<br />
12、……。<b><a href="http://www.aspoo.cn" target="_blank">详细了解，请进入 www.aspoo.cn</a></b><br />
</td>
</tr>
</table>
<p align="Center">
Copyright (c) 2004-2005 <a href="http://www.aspoo.cn" target="_blank"><font Arial, Helvetica, sans-serif>Aspoo.CN</font></a> .All Rights Reserved.<br />
</p>
</body>
</html>
<%
End Sub
%>
<%
'===================================================
' CreateLive CMS Version 4.0
' Powered by Aspoo.CoM
'===================================================
' Mail: support@aspoo.cn, Info@aspoo.cn
' Q Q: 3315263, 596197794
' Msn : support@aspoo.cn, Clw866@hotmail.com
' Web : http://www.aspoo.com, http://www.aspoo.net
' Bbs : http://bbs.aspoo.com, http://bbs.aspoo.net
' Copyright (C) 2005 Aspoo.CoM All Rights Reserved.
'===================================================
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -