📄 user_index.asp
字号:
<!--#include file="../Conn.asp"-->
<!--#include file="../Inc/Cl_ClsSysTem.asp"-->
<!--#include file="../inc/Cl_Md5.asp"-->
<!--#include file="../inc/Cl_Function_Public.asp"-->
<%
Cl.Get_WebSetting()
if Cl.ChkUserLogin = False then
Response.Redirect "Login.asp"
Response.end
End if
select case request("action")
case "User_left"
call User_left()
case "User_main"
call User_main()
case "User_top"
call User_top()
case Else
call main()
end Select
CloseAllObj
Sub main()
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=Cl.Web_Info(0)%>用户控制面版</title>
</head>
<frameset id="frame" cols="180,*" framespacing="0" frameborder="0" marginwidth="0" marginheight="0">
<frame name="left" src="User_Index.asp?Action=User_left" scrolling="auto" noresize="noresize" />
<frameset rows="32,*" framespacing="0" frameborder="0" marginwidth="0" marginheight="0">
<frame name="top" src="User_Index.asp?Action=User_top" scrolling="no" noresize="noresize" />
<%
Response.write("<frame name=""main"" src=""")
Select Case Lcase(request("action"))
Case "inbox" : Response.write("User_Message.asp?action=inbox")
Case "outbox" : Response.write("User_Message.asp?action=outbox")
Case "issend" : Response.write("User_Message.asp?action=issend")
Case "recycle" : Response.write("User_Message.asp?action=recycle")
Case "friend" : Response.write("User_Friend.asp")
Case "newmsg" : Response.write("User_Message.asp?action=new")
Case "addarticle": Response.write("User_Article.asp?ChannelID="&request("ChannelID")&"&Action=Add")
Case "addsoft" : Response.write("User_Soft.asp?ChannelID="&request("ChannelID")&"&Action=Add")
Case "addphoto" : Response.write("User_Photo.asp?ChannelID="&request("ChannelID")&"&Action=Add")
Case "addmovie" : Response.write("User_Movie.asp?ChannelID="&request("ChannelID")&"&Action=Add")
Case "myarticle": Response.write("User_Article.asp")
Case "mysoft" : Response.write("User_Soft.asp")
Case "myphoto" : Response.write("User_Photo.asp")
Case "mymovie" : Response.write("User_Movie.asp")
Case "pluscz" : Response.write("User_UserCz.asp")
Case "favorite" : Response.write("User_Favorite.asp")
Case "consume" : Response.write("User_ConsumeLog.asp")
Case "modifyinfo": Response.write("User_UserInfo.asp")
Case "collect" : Response.write("User_Collect.asp?Action=Add&InfoID="&Request("InfoID")&"")
Case Else : Response.write("User_UserInfo.asp?Action=ShowInfo")
End Select
Response.write(""" scrolling=""auto"" />")
%>
</frameset>
</frameset>
<body>
</body>
</html>
<%
End Sub
Sub User_left()
Dim SQL,i,rsLeft,sID,sItemName,sItemUnit,TempID,TempStr
Dim ModuleID,sModuleName,sChannelName
%>
<html>
<head>
<title><%=Cl.Web_Info(0)%>管理导航</title>
<style type="text/css">
body { background:#009ace; 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; }
</style>
<script language="JavaScript" type="text/javascript">
function showsubmenu(sid)
{
var whichEl = document.getElementById("submenu" + sid);
var imageId = document.getElementById("imgMenu" + sid)
if (whichEl.style.display == "none")
{
whichEl.style.display="";
imageId.src="Images/close.gif";
}
else
{
whichEl.style.display="none"
imageId.src="Images/open.gif";
}
}
</script>
</head>
<body leftmargin="0" topmargin="0" marginheight="0" marginwidth="0">
<table width="158" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="38" valign="bottom">
<img src="Images/title.gif" width="158" height="38" /> </td>
</tr>
</table>
<table cellpadding="0" cellspacing="0" width="158" align="center">
<tr>
<td height="25" class="menu_title" onmouseover="this.className='menu_title2';" onmouseout="this.className='menu_title';" background="Images/title_bg_quit.gif" id="menuTitle0">
<span><a href="User_Index.asp?Action=User_main" target="main"><b>管理首页</b></a> | <a href="logout.asp?ComeUrl=Index.asp" target="_top"><b>退出</b></a></span> </td>
</tr>
<tr>
<td style="display:" id='submenu0'>
<div class="sec_menu" style="width:158">
<table cellpadding="0" cellspacing="0" align="center" width="135">
<tr><td height="20">用 户 名：<%=Cl.MemberName%></td></tr>
<tr><td height="20">您的身份：<%=Cl.User_Group.SelectSingleNode("@groupname").text%></td></tr>
<%if Cl.UserGroupID=1 then%>
<tr><td height="20">【<a href="../<%=Cl.Web_Info(14)%>Admin_Index.asp" target="_top"><font color="#FF0033">转到网站后台管理</font></a>】</td></tr>
<%end if%>
</table>
</div>
<div style="width:158">
<table cellpadding="0" cellspacing="0" align="center" width="135">
<tr><td height="15"></td></tr>
</table>
</div> </td>
</tr>
</table>
<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(50)" style="cursor:hand;"><span><img src="Images/open.gif" style="float:left;margin:2 5 0px;" id="imgMenu50" align="absmiddle" />用户信息管理</span></td>
</tr>
<tr>
<td style="width:100%" id="submenu50">
<table class="sec_menu" cellpadding="0" cellspacing="1" align="center" width="100%">
<tr class="tdbg"><td height="20"> <a href="User_UserInfo.asp?Action=ShowInfo" target="main">我的用户信息</a></td></tr>
<tr class="tdbg"><td height="20"> <a href="User_UserInfo.asp" target="main">修改用户信息</a></td></tr>
<tr class="tdbg"><td height="20"> <a href="User_Message.asp" target="main">用户短信管理</a></td></tr>
<%if SysTemVersion>10 then%>
<tr class="tdbg"><td height="20"> <a href="User_Collect.asp" target="main"><font color=red>我的应征资料管理</a></td></tr>
<%end if%>
<tr class="tdbg"><td height="20"> <a href="User_ConsumeLog.asp" target="main"><font color="blue">我的消费记录查询</font></a></td></tr>
<tr class="tdbg"><td height="20"> <a href="User_UserCz.asp?Action=CzMain" target="main">充值卡充值</a> | <a href="User_UserCz.asp" target="main">记录</a></td></tr>
<tr class="tdbg"><td height="20"> <a href="User_UserCz.asp?Action=BuyCard" target="main">购买充值卡</a> | <a href="User_UserCz.asp?Action=MyBuyLog" target="main">记录</a></td></tr>
<tr class="tdbg"><td height="20"> <a href="User_UserCz.asp?Action=Transfer" target="main">对外转帐</a> | <a href="User_UserCz.asp?Action=TransferLog" target="main">转帐记录</a></td></tr>
<tr class="tdbg"><td height="20"> <a href="User_Favorite.asp?Action=MyFav" target="main">我的收藏</a> | <a href="User_Favorite.asp?Action=Public" target="main">共享收藏</a></td></tr>
<tr class="tdbg"><td height="20"> <a href="../PayOnline/PayOnline.asp" target="_blank"><font color="red">在线支付</font></a> | <a href="User_Payment.asp" target="main">支付查询</a></td></tr>
<%if SysTemVersion>2 then%>
<tr class="tdbg"><td height="20"> <a href="User_Order.asp" target="main">我的订单</a> | <a href="Cart.asp" target="_blank">我的购物车</a></td></tr>
<%end if%>
<%if UserTableType="Dvbbs" then%>
<tr class="tdbg"><td height="20"> <a href="User_ConverPoint.asp" target="main"><font color="#0000ff">论坛金钱与网站点数互换</font></a></td></tr>
<%end if%>
</table>
<table cellpadding="0" cellspacing="0" align="center" width="100%">
<tr><td height="15"></td></tr>
</table> </td>
</tr>
</table>
<%
Select Case SysTemVersion
Case 0,1
SQL = "select ChannelID,ChannelName,ChannelItemName,ChannelItemUnit,ChannelDir,IsCreateHtml,ModuleID from Cl_Channel Where ModuleID Not In (0,4,5) and ChannelType<2 and IsDisabled=0 order by OrderID Asc,ChannelID Asc"
Case 2
SQL = "select ChannelID,ChannelName,ChannelItemName,ChannelItemUnit,ChannelDir,IsCreateHtml,ModuleID from Cl_Channel Where ModuleID Not In (0,5) and ChannelType<2 and IsDisabled=0 order by OrderID Asc,ChannelID Asc"
Case else
SQL = "select ChannelID,ChannelName,ChannelItemName,ChannelItemUnit,ChannelDir,IsCreateHtml,ModuleID from Cl_Channel Where ModuleID Not In (0) and ChannelType<2 and IsDisabled=0 order by OrderID Asc,ChannelID Asc"
End Select
Set rsLeft=Cl.Execute(SQL)
TempID=11111
If Not RsLeft.eof then
SQL = rsLeft.GetRows(-1)
For i=0 to Ubound(SQL,2)
sID = SQL(0,i) : sChannelName= SQL(1,i)
sItemName = SQL(2,i) : sItemUnit = SQL(3,i)
ModuleID = SQL(6,i) : TempStr = ""
if Cl.TrueChannelPurview_U(6,sID) then
Select Case ModuleID
Case 1
sModuleName="Article"
TempStr=""
if SysTemVersion > 0 then TempStr=TempStr & "<tr class=""tdbg""><td height=20> <a href=""User_MyReceiveList.asp?ChannelID="&sID&""" target=main>我的签收"&sItemName&"列表</a></td></tr>"
Case 2
sModuleName="Soft"
TempStr=""
Case 3
sModuleName="Photo"
TempStr=""
Case 4
sModuleName="Movie"
TempStr=""
Case 5
sModuleName="Product"
TempStr=""
'TempStr=TempStr&"<tr class=""tdbg""><td height=20> <a href=""User_Bankroll.asp"" target=main>资金明细</a></td></tr>"&vbcrlf
'TempStr=TempStr&"<tr class=""tdbg""><td height=20> <a href=""User_ConsumeLog.asp"" target=main>消费明细</a></td></tr>"&vbcrlf
'TempStr=TempStr&"<tr class=""tdbg""><td height=20> <a href=""User_Down.asp"" target=main>下载产品</a></td></tr>"&vbcrlf
'TempStr=TempStr&"<tr class=""tdbg""><td height=20> <a href=""Cart.asp"" target=_blank>我的购物车</a></td></tr>"&vbcrlf
'TempStr=TempStr&"<tr class=""tdbg""><td height=20> <a href=""User_Favorite.asp?ChannelID="&sID&""" target=main>我收藏的商品</a></td></tr>"&vbcrlf
Case 6
sModuleName="Supply"
TempStr=""
End Select
TempID=TempID+1
%>
<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(<%=TempID%>)" style="cursor:hand;"><span><img src="Images/open.gif" style="float:left;margin:2 5 0px;" id="imgMenu<%=TempID%>" align="absmiddle" /><%=sChannelName%>管理</span></td>
</tr>
<tr>
<td style="width:100%;display:none" id="submenu<%=TempID%>">
<table class="sec_menu" cellpadding="0" cellspacing="1" align="center" width="100%">
<%if ModuleID<>5 then%>
<%if Cl.TrueChannelPurview_U(5,sID) then%>
<tr class="tdbg"><td height="20"> <a href="User_<%=sModuleName%>.asp?ChannelID=<%=sID%>&Action=Add" target="main">添加<%=sItemName%></a></td></tr>
<tr class="tdbg"><td height="20"> <a href="User_<%=sModuleName%>.asp?ChannelID=<%=sID%>" target="main"><%=sItemName%>管理</a> | <a href="User_<%=sModuleName%>.asp?ChannelID=<%=sID%>&Action=Check" target="main">审核</a></td></tr>
<tr class="tdbg"><td height="20"> <a href="User_<%=sModuleName%>.asp?ChannelID=<%=sID%>&ManageType=MyInfo" target="main"><font color="#0000ff">我添加的<%=sItemName%></font></a></td></tr>
<%end if%>
<tr class="tdbg"><td height="20"> <a href="User_<%=sModuleName%>.asp?ChannelID=<%=sID%>&Action=NoPass&ManageType=MyInfo" target="main">被退回的<%=sItemName%></a></td></tr>
<%end if%>
<%=TempStr%>
<tr class="tdbg"><td height="20"> <a href="User_Comment.asp?ChannelID=<%=sID%>" target="main">我发表的<%=sItemName%>评论</a></td></tr>
</table>
<table cellpadding="0" cellspacing="0" align="center" width="100%">
<tr><td height="15"></td></tr>
</table> </td>
</tr>
</table>
<%
End if
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -