📄 loginmenu.asp
字号:
<%@LANGUAGE="VBSCRIPT"%>
<%
' *** Restrict Access To Page: Grant or deny access to this page
MM_authorizedUsers=""
MM_authFailedURL="left.asp"
MM_grantAccess=false
If Session("MM_Username") <> "" Then
If (true Or CStr(Session("MM_UserAuthorization"))="") Or _
(InStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) Then
MM_grantAccess = true
End If
End If
If Not MM_grantAccess Then
MM_qsChar = "?"
If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&"
MM_referrer = Request.ServerVariables("URL")
if (Len(Request.QueryString()) > 0) Then MM_referrer = MM_referrer & "?" & Request.QueryString()
MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" & Server.URLEncode(MM_referrer)
Response.Redirect(MM_authFailedURL)
End If
%>
<!--#include file="myzb.asp" -->
<%
Dim Recordset1
Dim Recordset1_numRows
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_myzb_STRING
Recordset1.Source = "update usero set lipadd='"&Request.ServerVariables("REMOTE_ADDR")&"' where dengluming='"&Session("MM_Username")&"'"
Recordset1.Source = "update usero set zhdl='"&Now()&"' where dengluming='"&Session("MM_Username")&"'"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()
Set Recordset1 = Nothing
Recordset1_numRows = 0
%>
<%
Dim Recordset2
Dim Recordset2_numRows
Set Recordset2 = Server.CreateObject("ADODB.Recordset")
Recordset2.ActiveConnection = MM_myzb_STRING
Recordset2.Source = "SELECT * FROM usero where dengluming='"&Session("MM_Username")&"'"
Recordset2.CursorType = 0
Recordset2.CursorLocation = 2
Recordset2.LockType = 1
Recordset2.Open()
Recordset2_numRows = 0
%>
<%
Dim Recordset3
Dim Recordset3_numRows
Set Recordset3 = Server.CreateObject("ADODB.Recordset")
Recordset3.ActiveConnection = MM_myzb_STRING
Recordset3.Source = "SELECT * FROM ms where jsr='"&Session("MM_Username")&"'and zt = '1'"
Recordset3.CursorType = 0
Recordset3.CursorLocation = 2
Recordset3.LockType = 1
Recordset3.Open()
Recordset3_numRows = 0
%>
<%
' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables
Dim Recordset3_total
Dim Recordset3_first
Dim Recordset3_last
' set the record count
Recordset3_total = Recordset3.RecordCount
' set the number of rows displayed on this page
If (Recordset3_numRows < 0) Then
Recordset3_numRows = Recordset3_total
Elseif (Recordset3_numRows = 0) Then
Recordset3_numRows = 1
End If
' set the first and last displayed record
Recordset3_first = 1
Recordset3_last = Recordset3_first + Recordset3_numRows - 1
' if we have the correct record count, check the other stats
If (Recordset3_total <> -1) Then
If (Recordset3_first > Recordset3_total) Then
Recordset3_first = Recordset3_total
End If
If (Recordset3_last > Recordset3_total) Then
Recordset3_last = Recordset3_total
End If
If (Recordset3_numRows > Recordset3_total) Then
Recordset3_numRows = Recordset3_total
End If
End If
%>
<%
' *** Recordset Stats: if we don't know the record count, manually count them
If (Recordset3_total = -1) Then
' count the total records by iterating through the recordset
Recordset3_total=0
While (Not Recordset3.EOF)
Recordset3_total = Recordset3_total + 1
Recordset3.MoveNext
Wend
' reset the cursor to the beginning
If (Recordset3.CursorType > 0) Then
Recordset3.MoveFirst
Else
Recordset3.Requery
End If
' set the number of rows displayed on this page
If (Recordset3_numRows < 0 Or Recordset3_numRows > Recordset3_total) Then
Recordset3_numRows = Recordset3_total
End If
' set the first and last displayed record
Recordset3_first = 1
Recordset3_last = Recordset3_first + Recordset3_numRows - 1
If (Recordset3_first > Recordset3_total) Then
Recordset3_first = Recordset3_total
End If
If (Recordset3_last > Recordset3_total) Then
Recordset3_last = Recordset3_total
End If
End If
%>
<HTML>
<HEAD>
<TITLE>未标题-1</TITLE>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<style type="text/css">
<!--
body {
background-image: url(images/bg.gif);
}
body,td,th {
font-family: 宋体;
font-size: 12px;
}
a {
font-size: 12px;
color: #000000;
}
a:link {
text-decoration: none;
}
a:visited {
text-decoration: none;
color: #000000;
}
a:hover {
text-decoration: underline;
color: #0033FF;
}
a:active {
text-decoration: none;
color: #0066FF;
}
.style1 {color: #FF0000}
-->
</style>
<base target="main">
</HEAD>
<BODY topmargin="0" leftmargin="0" oncontextmenu="return false" ondragstart="return false" onselectstart ="return false" onselect="document.selection.empty()" oncopy="document.selection.empty()" onbeforecopy="return false" BGCOLOR=#FFFFFF LEFTMARGIN=0 TOPMARGIN=0 MARGINWIDTH=0 MARGINHEIGHT=0>
<!-- ImageReady Slices (未标题-1) -->
<TABLE WIDTH=244 height="316" BORDER=0 CELLPADDING=0 CELLSPACING=0>
<TR>
<TD height="22"><img src="images/member.gif" width="244" height="22"></TD>
</TR>
<TR>
<TD height="112" align="left" valign="top"><table width="242" border="0">
<tr align="center" valign="middle">
<td colspan="2" scope="col"></td>
</tr>
<tr align="center" valign="middle">
<td colspan="2" scope="col"><div align="left"><img src="<%=(Recordset2.Fields.Item("face").Value)%>"><%=Session("MM_Username")%>你好!权限:<span class="style1">
<% zt=(Recordset2.Fields.Item("mb").Value)
if zt = "1" then Response.Write("普通用户")%>
<% zt=(Recordset2.Fields.Item("mb").Value)
if zt = "2" then Response.Write("认证用户")%>
</span> </div></td>
</tr>
<tr align="center" valign="middle" class="unnamed1">
<td colspan="2" scope="col"><div align="center"><img src="images/ms.gif" width="16" height="16"> 您有<span class="style1"><%=(Recordset3_total)%></span>条未读短消息 <img src="images/sx.gif" width="15" height="15"><a href="#" target="_self" onclick="window.open('msg.asp','callwindow','top=0,left=0,width=410,height=310,status=no,resizable=no,scrollbars=no')">收取</a> <img src="images/quote.gif" width="16" height="18"><a href="#" target="_self" onclick="window.open('fmsg.asp','callwindow','top=0,left=0,width=350,height=300,status=no,resizable=no,scrollbars=no')">发送</a></div></td>
</tr>
<tr align="left">
<td colspan="2"><div align="left"></div></td>
</tr>
<tr align="center" valign="middle">
<td width="104"><a href="user/myshow.asp" target="mainFrame">修改我的信息</a></td>
<td width="128"><a href="chat.asp" target="mainFrame">金融聊天室</a></td>
</tr>
<tr align="center" valign="middle">
<td><a href="user/finduser.asp?b7= " target="mainFrame">查看他人信息</a></td>
<td><a href="q_a.asp" target="mainFrame">向专家提问</a></td>
</tr>
<tr align="center" valign="middle">
<td><a href="fbsp.asp" target="mainFrame">发布您的商品</a></td>
<td><a href="jh.asp" target="mainFrame">本站精华区</a></td>
</tr>
<tr align="center" valign="middle">
<td><% zt=(Recordset2.Fields.Item("mb").Value)
if zt = "2" then Response.Write("<a href="&"wz/admin/ target="&"_blank"&""&">"&"发布金融信息"&"</a>") end if%></td>
<td><% zt=(Recordset2.Fields.Item("mb").Value)
if zt = "2" then Response.Write("<a href="&"admin/index.asp target="&"_blank"&""&">"&"认证用户登陆"&"</a>") end if%></td>
</tr>
</table></TD>
</TR>
<TR>
<TD height="26"><img src="images/memu.gif" width="244" height="22"></TD>
</TR>
<TR>
<TD align="left" valign="top"><table width="239" height="156" border="0">
<tr>
<td height="14" scope="row"><div align="center">行业新闻</div></td>
<td><div align="center">关注热点</div></td>
</tr>
<tr>
<td height="14" scope="row"><div align="center">政策法规</div></td>
<td><div align="center">今日动态</div></td>
</tr>
<tr>
<td height="14" scope="row"><div align="center">技术应用</div></td>
<td><div align="center">商家名录</div></td>
</tr>
<tr>
<td height="14" scope="row"><div align="center">财富之门</div></td>
<td><div align="center"><a href="download.asp" target="mainFrame">资源下载</a></div></td>
</tr>
<tr>
<td height="14" scope="row"><div align="center"><a href="forum.asp" target="mainFrame">金融论坛</a></div></td>
<td><div align="center"><a href="guestbook.asp" target="mainFrame">有话要留</a></div></td>
</tr>
<tr>
<td height="21" scope="row"><div align="center"><a href="exit.asp" target="_self">退出系统</a></div></td>
<td><div align="center"></div></td>
</tr>
</table> </TD>
</TR>
</TABLE>
<!-- End ImageReady Slices --></BODY>
<%
Recordset2.Close()
Set Recordset2 = Nothing
%>
</HTML>
<%
Recordset3.Close()
Set Recordset3 = Nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -