📄 user_left.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%Option Explicit%>
<!--#include file="../../Conn.asp"-->
<!--#include file="../../SysCls/KS_CommonCls.asp"-->
<!--#include file="../Inc/Session.asp"-->
<%
'===================================================================================================================
'软件名称：科汛网站管理系统
'当前版本：科汛网站管理系统 V2.2 SP2 Free
'Copyright (C) 2006-2008 Kesion.Com All rights reserved.
'产品咨询QQ：9537636,41904294
'技术支持QQ：111394,54004407
'程序版权：科汛网络
'程序开发：科汛网络开发组（总策划：林文仲）
'E-Mail :kesioncms@hotmail.com webmaster@kesion.com
'官方网站：http://www.kesion.com
'演示站点：http://test.kesion.com
'郑重声明:
' ①、免费版本请在程序首页保留版权信息，并做上本站LOGO友情连接,商业版本无此要求;
' ②、任何个人或组织不得在授权允许的情况下删除、修改、拷贝本软件及其他副本上一切关于版权的信息；
' ③、科汛网络保留此软件的法律追究权利
'===================================================================================================================
Dim KSCls
Set KSCls = New User_Left
KSCls.Execute()
Set KSCls = Nothing
Class User_Left
Private KSCMS
Private Sub Class_Initialize()
Set KSCMS=New CommonCls
End Sub
Private Sub Class_Terminate()
Call KSCMS.CloseConn()
Set KSCMS=Nothing
End Sub
Sub Execute()
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<title>用户管理</title>
<script language="JavaScript" src="../JS/Common.js"></script>
<script language="JavaScript" src="../JS/TreeList.js"></script>
<script language="JavaScript" src="../JS/SetFocus.js"></script>
<link href="../Inc/ManageMent.css" rel="stylesheet" type="text/css">
<link href="../Inc/Admin_Style.CSS" rel="stylesheet">
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" bgcolor="#F1FAFA">
<DIV style="OVERFLOW:suto; WIDTH: 151px; HEIGHT: 96%" align=center>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD width="16%" height=20>
<table border="0" cellpadding="0" cellspacing="0">
<tr AllParentID="0" ParentID="0" ClassID="OrdinaryMan">
<td><table width="132" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="24" align="center"><img src="../Images/Folder/domain.gif" width="24" height="22"></td>
<td width="108" height="25" class="TempletItem">用户管理</td>
</tr>
</table></td>
</tr>
<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><table width="100%" border="0" cellpadding="0" cellspacing="0">
<%If Not KSCMS.ReturnPowerResult(0, "KMUA10001") Then%>
<tr disabled>
<td width="32%" nowrap><img src="../Images/Folder/blank.gif" width="16" height="22"><img src="../Images/Folder/Node.gif" width="16" height="22"><img src="../Images/Folder/doc.gif" width="16" height="18"></td>
<td width="68%" style="Cursor:default;" onMouseOver="this.className='LeftMouseOver'" onMouseOut="this.className='LeftMouseOut'">管理员管理</td>
</tr>
<%Else%>
<tr>
<td width="32%" nowrap><img src="../Images/Folder/blank.gif" width="16" height="22"><img src="../Images/Folder/Node.gif" width="16" height="22"><img src="../Images/Folder/doc.gif" width="16" height="18"></td>
<td width="68%" style="Cursor:default;" onMouseOver="this.className='LeftMouseOver'" onMouseOut="this.className='LeftMouseOut'"><span onClick="javascript:SelectObjItem(this,'用户管理 >> <font color=red>管理员管理</font>','Disabled','User_AdminMain.asp');">管理员管理</span></td>
</tr>
<%End If%>
</table></td>
</tr>
<tr>
<td><table width="100%" border="0" cellpadding="0" cellspacing="0">
<%If Not KSCMS.ReturnPowerResult(0, "KMUA10002") Then%>
<tr disabled>
<td width="32%" nowrap><img src="../Images/Folder/blank.gif" width="16" height="22"><img src="../Images/Folder/Node.gif" width="16" height="22"><img src="../Images/Folder/doc.gif" width="16" height="18"></td>
<td width="68%" style="Cursor:default;" onMouseOver="this.className='LeftMouseOver'" onMouseOut="this.className='LeftMouseOut'">用户短信管理</td>
</tr>
<%else%>
<tr>
<td width="32%" nowrap><img src="../Images/Folder/blank.gif" width="16" height="22"><img src="../Images/Folder/Node.gif" width="16" height="22"><img src="../Images/Folder/doc.gif" width="16" height="18"></td>
<td width="68%" style="Cursor:default;" onMouseOver="this.className='LeftMouseOver'" onMouseOut="this.className='LeftMouseOut'"><span onClick="javascript:SelectObjItem(this,'用户管理 >> <font color=red>用户短信管理</font>','Disabled','User_Message.asp');">用户短信管理</span></td>
</tr>
<%end if%>
</table></td>
</tr>
<tr>
<td><table width="100%" border="0" cellpadding="0" cellspacing="0">
<%If Not KSCMS.ReturnPowerResult(0, "KMUA10003") Then%>
<tr disabled>
<td width="32%" nowrap><img src="../Images/Folder/blank.gif" width="16" height="22"><img src="../Images/Folder/Node.gif" width="16" height="22"><img src="../Images/Folder/doc.gif" width="16" height="18"></td>
<td width="68%" style="Cursor:default;" onMouseOver="this.className='LeftMouseOver'" onMouseOut="this.className='LeftMouseOut'">注册用户管理</td>
</tr>
<%else%>
<tr>
<td width="32%" nowrap><img src="../Images/Folder/blank.gif" width="16" height="22"><img src="../Images/Folder/Node.gif" width="16" height="22"><img src="../Images/Folder/doc.gif" width="16" height="18"></td>
<td width="68%" style="Cursor:default;" onMouseOver="this.className='LeftMouseOver'" onMouseOut="this.className='LeftMouseOut'"><span onClick="javascript:SelectObjItem(this,'用户管理 >> <font color=red>注册用户管理</font>','Disabled','Admin_User.asp');">注册用户管理</span></td>
</tr>
<%end if%>
</table></td>
</tr>
<tr>
<td><table width="100%" border="0" cellpadding="0" cellspacing="0">
<%If Not KSCMS.ReturnPowerResult(0, "KMUA10004") Then%>
<tr disabled>
<td width="32%" nowrap><img src="../Images/Folder/blank.gif" width="16" height="22"><img src="../Images/Folder/Node.gif" width="16" height="22"><img src="../Images/Folder/doc.gif" width="16" height="18"></td>
<td width="68%" style="Cursor:default;" onMouseOver="this.className='LeftMouseOver'" onMouseOut="this.className='LeftMouseOut'">用户组管理</td>
</tr>
<%else%>
<tr>
<td width="32%" nowrap><img src="../Images/Folder/blank.gif" width="16" height="22"><img src="../Images/Folder/Node.gif" width="16" height="22"><img src="../Images/Folder/doc.gif" width="16" height="18"></td>
<td width="68%" style="Cursor:default;" onMouseOver="this.className='LeftMouseOver'" onMouseOut="this.className='LeftMouseOut'"><span onClick="javascript:SelectObjItem(this,'用户管理 >> <font color=red>用户组管理</font>','Disabled','Admin_UserGroup.asp');">用户组管理</span></td>
</tr>
<%end if%>
</table></td>
</tr>
<tr>
<td><table width="100%" border="0" cellpadding="0" cellspacing="0">
<%If Not KSCMS.ReturnPowerResult(0, "KMUA10003") Then%>
<tr disabled>
<td width="32%" nowrap><img src="../Images/Folder/blank.gif" width="16" height="22"><img src="../Images/Folder/lastnode.gif" width="16" height="22"><img src="../Images/Folder/doc.gif" width="16" height="18"></td>
<td width="68%" style="Cursor:default;" onMouseOver="this.className='LeftMouseOver'" onMouseOut="this.className='LeftMouseOut'">更新用户数据</td>
</tr>
<%else%>
<tr>
<td width="32%" nowrap><img src="../Images/Folder/blank.gif" width="16" height="22"><img src="../Images/Folder/lastnode.gif" width="16" height="22"><img src="../Images/Folder/doc.gif" width="16" height="18"></td>
<td width="68%" style="Cursor:default;" onMouseOver="this.className='LeftMouseOver'" onMouseOut="this.className='LeftMouseOut'"><span onClick="javascript:SelectObjItem(this,'用户管理 >> <font color=red>更新用户数据</font>','Disabled','Admin_User.asp?action=Update');">更新用户数据</span></td>
</tr>
<%end if%>
</table></td>
</tr>
</table> </td>
</tr>
</table> </TD>
</TR>
</TBODY>
</TABLE>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr AllParentID="0" ParentID="0">
<td> </td>
</tr>
<tr>
<td> </td>
</tr>
</table>
</DIV>
</body>
</html>
<%end sub
End Class
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -