<!--#include file="CommonCode.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=SiteName & " >> 用户管理中心"%></title>
</head>
<frameset rows="80,*" cols="*" frameborder="no" border="0" framespacing="0">
    <frame name="top" scrolling="no" src="Top.html">

   <frameset rows="*" cols="200,*" framespacing="0" frameborder="no" border="0">
<%

dim sqluser,rsUser
Set rsUser = Server.CreateObject("adodb.recordset")
sqluser = "select top 1 GroupID from PE_User where UserID="& UserID
    rsUser.Open sqlUser, Conn, 1, 1
    If Not rsUser.EOF Then
GroupID=rsUser("GroupID")
    End If
    rsUser.Close
    Set rsUser = Nothing
'判断是否审核会员
if GroupID=7 or GroupID=8 then
%>
  <frame name="left" scrolling="no" marginwidth="0" marginheight="0" src="Left1.asp">
  <frame name="main" scrolling="auto" src="Main1.asp">
<%
else
%>
  <frame name="left" scrolling="no" marginwidth="0" marginheight="0" src="Left.asp">
  <frame name="main" scrolling="auto" src="Main.asp">
<%
end if
%>
  </frameset>

</frameset><noframes></noframes>
  <body leftmargin="2" topmargin="0" marginwidth="0" marginheight="0">
  <p>你的浏览器版本过低！！！本系统要求IE5及以上版本才能使用本系统。</p>
  </body>
</noframes>
</html>
<%
Call CloseConn
%>
