<!--#include file="CommonCode.asp"-->
<!--#include file="../Include/PowerEasy.Edition.asp"-->
<!--增加使userlogin.asp不能脱离框架结构的判断 -->
<script language="javascript">
if(self==top){self.location.href="index.asp";}
</script>
<!--完毕-->
<%

Response.Write "<html>" & vbCrLf
Response.Write "<head>" & vbCrLf
Response.Write "<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>" & vbCrLf
Response.Write "<title>管理导航菜单</title>" & vbCrLf
Response.Write "<script src=""User_Skin/prototype.js""></script>"
Response.Write "<link href='User_Skin/Admin_left.CSS' rel='stylesheet' type='text/css'>" & vbCrLf
Response.Write "</head>" & vbCrLf
Response.Write "<BODY leftmargin='0' topmargin='0' marginheight='0' marginwidth='0'>" & vbCrLf
Response.Write "<table width=180 border='0' align=center cellpadding=0 cellspacing=0>" & vbCrLf
Response.Write "  <tr>" & vbCrLf
Response.Write "    <td height=44 valign=top><img src='User_Skin/title.gif'></td>" & vbCrLf
Response.Write "  </tr>" & vbCrLf
Response.Write "</table>" & vbCrLf
Response.Write "<table cellpadding=0 cellspacing=0 width=180 align=center>" & vbCrLf
Response.Write "  <tr>" & vbCrLf
Response.Write "    <td height=26 class=menu_title onmouseover=""this.className='menu_title2';"" onmouseout=""this.className='menu_title';"" background='User_Skin/title_bg_quit.gif' id='menuTitle0'>&nbsp;&nbsp;<a href='Main.asp' target='main'><b><span class='glow'>管理首页</span></b></a><span class='glow'> | </span><a href='User_Logout.asp' target='_top'><b><span class='glow'>退出</span></b></a> </td>" & vbCrLf
Response.Write "  </tr>" & vbCrLf
Response.Write "  <tr>" & vbCrLf
Response.Write "    <td height=97 background='User_Skin/title_bg_admin.gif' style='display:' id='submenu0'><div style='width:180'>" & vbCrLf
Response.Write "        <table cellpadding=0 cellspacing=0 align=center width=130>" & vbCrLf
Response.Write "          <tr>" & vbCrLf
Response.Write "            <td height=20>您的用户名：" & UserName &"</td>" & vbCrLf
Response.Write "          </tr>" & vbCrLf
Response.Write "          <tr>" & vbCrLf
Response.Write "            <td height=20>您的身份：" & GroupName & "</td></tr>" & vbCrLf
Dim MessageMsg
If UnreadMsg <> "" And CLng(UnreadMsg) > CLng(0) Then
            MessageMsg = " <b><font color=red>" & UnreadMsg & "</font></b> "
Else
            MessageMsg = " <b><font color=gray>0</font></b> "
End If
Response.Write "          <tr>" & vbCrLf
Response.Write "            <td height=20>上线次数：" & LoginTimes & "</td>" & vbCrLf
Response.Write "          </tr>" & vbCrLf
Response.Write "          <tr><td height=20>待阅短信：" & vbCrLf
If UnreadMsg <> "" And PE_CLng(UnreadMsg) > 0 Then
    Response.Write " <b><font color=red>" & MessageMsg & "</font></b> 条"
Else
    Response.Write " <b><font color=gray>0</font></b> 条"
End If
Response.Write "            </td>" & vbCrLf
Response.Write "          </tr>" & vbCrLf
Response.Write "        </table>" & vbCrLf
Response.Write "      </div>" & vbCrLf
Response.Write "        <div  style='width:167'>" & vbCrLf
Response.Write "          <table cellpadding=0 cellspacing=0 align=center width=130>" & vbCrLf
Response.Write "            <tr>" & vbCrLf
Response.Write "              <td height=10></td>" & vbCrLf
Response.Write "            </tr>" & vbCrLf
Response.Write "          </table>" & vbCrLf
Response.Write "      </div></td>" & vbCrLf
Response.Write "  </tr>" & vbCrLf
Response.Write "</table>" & vbCrLf
%>

<%
Dim sqlChannel, rsChannel
sqlChannel = "select * from PE_Channel where ChannelType<=1 and Disabled=" & PE_False
Select Case SystemEdition
Case "CMS", "eShop"
    sqlChannel = sqlChannel & " and ModuleType<4"
Case "GPS", "EPS", "ECS"
    sqlChannel = sqlChannel & " and (ModuleType<4 or ModuleType=8)"
Case "IPS"
    sqlChannel = sqlChannel & " and (ModuleType<4 or ModuleType=6 or ModuleType=7)"
Case "All"
    sqlChannel = sqlChannel & " and (ModuleType<4 or ModuleType>5)"
End Select
sqlChannel = sqlChannel & " order by OrderID"
Set rsChannel = Conn.Execute(sqlChannel)
Do While Not rsChannel.EOF
    ChannelID = rsChannel("ChannelID")
    ChannelName = Trim(rsChannel("ChannelName"))
    ChannelShortName = Trim(rsChannel("ChannelShortName"))
    ChannelDir = Trim(rsChannel("ChannelDir"))
    Select Case rsChannel("ModuleType")
    Case 1
        ModuleName = "Article"
    Case 2
        ModuleName = "Soft"
    Case 3
        ModuleName = "Photo"
    Case 6
        ModuleName = "Supply"
    Case 7
        ModuleName = "House"
    Case 8
        ModuleName = "Job"
    End Select
    If ChannelID = 998 Then
    Response.Write "<table cellpadding=0 cellspacing=0 width=167 align=center>" & vbCrLf
    Response.Write "  <tr>" & vbCrLf
    Response.Write "    <td height=28 class=menu_title onmouseover=this.className='menu_title2'; onmouseout=this.className='menu_title'; background='User_Skin/Admin_left_" & rsChannel("ModuleType") & ".gif' id=menuTitle" & ChannelID & " onclick=""new Element.toggle('submenu" & ChannelID & "')"" style='cursor:hand;'><a href='User_" & ModuleName & ".asp?ChannelID=" & ChannelID & "' target='main'><span class=glow>" & ChannelName & "管理</span></a></td>" & vbCrLf
    Response.Write "  </tr>" & vbCrLf
    Response.Write "  <tr>" & vbCrLf
    Response.Write "    <td style='display:none' align='right' id='submenu" & ChannelID & "'><div class=sec_menu style='width:165'>" & vbCrLf
    Response.Write "        <table cellpadding=0 cellspacing=0 align=center width=130>" & vbCrLf

        Dim rsHouseClass
	Set rsHouseClass = Conn.Execute("select * from PE_HouseConfig")
        Do While Not rsHouseClass.EOF

    Response.Write "          <tr>" & vbCrLf
    Response.Write "            <td height=20><a href='User_" & ModuleName & ".asp?ChannelID=" & ChannelID & "&ClassID=" & rsHouseClass("ClassID") & "&Action=Add' target=main>发布" & rsHouseClass("ClassName") & "信息</a></td>" & vbCrLf
    Response.Write "          </tr>" & vbCrLf
    Response.Write "          <tr>" & vbCrLf
    Response.Write "            <td height=20><a href='User_" & ModuleName & ".asp?ChannelID=" & ChannelID & "&ClassID=" & rsHouseClass("ClassID") & "&Action=Manage' target='main'>管理" & rsHouseClass("ClassName") & "信息</a></td>" & vbCrLf
    Response.Write "          </tr>" & vbCrLf

            rsHouseClass.MoveNext
        Loop

    Response.Write "        </table>" & vbCrLf
    Response.Write "      </div>" & vbCrLf
    Response.Write "        <div  style='width:167'>" & vbCrLf
    Response.Write "          <table cellpadding=0 cellspacing=0 align=center width=130>" & vbCrLf
    Response.Write "            <tr>" & vbCrLf
    Response.Write "              <td height=5></td>" & vbCrLf
    Response.Write "            </tr>" & vbCrLf
    Response.Write "          </table>" & vbCrLf
    Response.Write "      </div></td>" & vbCrLf
    Response.Write "  </tr>" & vbCrLf
    Response.Write "</table>" & vbCrLf

    End If

    If ChannelID = 997 Then

    Response.Write "<table cellpadding=0 cellspacing=0 width=167 align=center>" & vbCrLf
    Response.Write "  <tr>" & vbCrLf
    Response.Write "    <td height=28 class=menu_title onmouseover=this.className='menu_title2'; onmouseout=this.className='menu_title'; background='User_Skin/Admin_left_607.gif' id=menuTitle607 onclick=""new Element.toggle('submenu607')"" style='cursor:hand;'><a href='User_" & ModuleName & ".asp?ChannelID=" & ChannelID & "&Action=Resume' target='main'><span class=glow>我的简历管理</span></a></td>" & vbCrLf
    Response.Write "  </tr>" & vbCrLf
    Response.Write "  <tr>" & vbCrLf
    Response.Write "    <td style='display:none' align='right' id='submenu607'><div class=sec_menu style='width:165'>" & vbCrLf
    Response.Write "        <table cellpadding=0 cellspacing=0 align=center width=130>" & vbCrLf

    Response.Write "          <tr>" & vbCrLf
    Response.Write "            <td height=20><a href='../Job/Searchresult.asp' target='main'>查询职位信息</a></td>" & vbCrLf
    Response.Write "          </tr>" & vbCrLf
    Response.Write "          <tr>" & vbCrLf
    Response.Write "            <td height=20><a href='User_" & ModuleName & ".asp?ChannelID=" & ChannelID & "&Action=Resume' target='main'>维护我的简历</a></td>" & vbCrLf
    Response.Write "          </tr>" & vbCrLf
    Response.Write "          <tr>" & vbCrLf
    Response.Write "            <td height=20><a href='User_" & ModuleName & ".asp?ChannelID=" & ChannelID & "&Action=Supply' target='main'>我申请的职位</a></td>" & vbCrLf
    Response.Write "          </tr>" & vbCrLf

    Response.Write "        </table>" & vbCrLf
    Response.Write "      </div>" & vbCrLf
    Response.Write "        <div  style='width:167'>" & vbCrLf
    Response.Write "          <table cellpadding=0 cellspacing=0 align=center width=130>" & vbCrLf
    Response.Write "            <tr>" & vbCrLf
    Response.Write "              <td height=5></td>" & vbCrLf
    Response.Write "            </tr>" & vbCrLf
    Response.Write "          </table>" & vbCrLf
    Response.Write "      </div></td>" & vbCrLf
    Response.Write "  </tr>" & vbCrLf
    Response.Write "</table>" & vbCrLf

    End If

    If FoundInArr(arrClass_Input, ChannelDir & "none", ",") = False And ChannelID <> 997 And ChannelID <> 998 Then '增加不显示房产的条件

    Response.Write "<table cellpadding=0 cellspacing=0 width=167 align=center>" & vbCrLf
    Response.Write "  <tr>" & vbCrLf
    Response.Write "    <td height=28 class=menu_title onmouseover=this.className='menu_title2'; onmouseout=this.className='menu_title'; background='User_Skin/Admin_left_" & rsChannel("ModuleType") & ".gif' id=menuTitle" & ChannelID & " onclick=""new Element.toggle('submenu" & ChannelID & "')"" style='cursor:hand;'><a href='User_" & ModuleName & ".asp?ChannelID=" & ChannelID & "' target='main'><span class=glow>" & ChannelName & "管理</span></a></td>" & vbCrLf
    Response.Write "  </tr>" & vbCrLf
    Response.Write "  <tr>" & vbCrLf
    Response.Write "    <td style='display:none' align='right' id='submenu" & ChannelID & "'><div class=sec_menu style='width:165'>" & vbCrLf
    Response.Write "        <table cellpadding=0 cellspacing=0 align=center width=130>" & vbCrLf


        If CheckUser_ChannelInput() = True Then
    Response.Write "          <tr>" & vbCrLf
    Response.Write "            <td height=20><a href='User_" & ModuleName & ".asp?ChannelID=" & ChannelID & "&Action=Add' target='main'>添加" & ChannelShortName & "</a></td>" & vbCrLf
    Response.Write "          </tr>" & vbCrLf
        End If

    Response.Write "          <tr>" & vbCrLf
    Response.Write "            <td height=20><a href='User_" & ModuleName & ".asp?ChannelID=" & ChannelID & "&Action=Manage' target='main'>我添加的" & ChannelShortName & "</a></td>" & vbCrLf
    Response.Write "          </tr>" & vbCrLf
    Response.Write "          <tr>" & vbCrLf
    Response.Write "            <td height=20><a href='User_Favorite.asp?ChannelID=" & ChannelID & "' target='main'>我收藏的" & ChannelShortName & "</a></td>" & vbCrLf
    Response.Write "          </tr>" & vbCrLf
    Response.Write "          <tr>" & vbCrLf
    Response.Write "            <td height=20><a href='User_Comment.asp?ChannelID=" & ChannelID & "' target='main'>我评论的" & ChannelShortName & "</a></td>" & vbCrLf
    Response.Write "          </tr>" & vbCrLf

        If rsChannel("ModuleType") = 1 Then
    Response.Write "          <tr>" & vbCrLf
    Response.Write "            <td height=20><a href='User_" & ModuleName & ".asp?ChannelID=" & ChannelID & "&Action=Manage&ManageType=Receive&Passed=All' target='main'>签收文章管理</a></td>" & vbCrLf
    Response.Write "          </tr>" & vbCrLf
        End If

    Response.Write "        </table>" & vbCrLf
    Response.Write "      </div>" & vbCrLf
    Response.Write "        <div  style='width:167'>" & vbCrLf
    Response.Write "          <table cellpadding=0 cellspacing=0 align=center width=130>" & vbCrLf
    Response.Write "            <tr>" & vbCrLf
    Response.Write "              <td height=5></td>" & vbCrLf
    Response.Write "            </tr>" & vbCrLf
    Response.Write "          </table>" & vbCrLf
    Response.Write "      </div></td>" & vbCrLf
    Response.Write "  </tr>" & vbCrLf
    Response.Write "</table>" & vbCrLf

    Else
    End If
    rsChannel.MoveNext
Loop
rsChannel.Close
Set rsChannel = Nothing

If FoundInArr(AllModules, "Classroom", ",") Then
    Response.Write "<table cellpadding=0 cellspacing=0 width=167 align=center>" & vbCrLf
    Response.Write "  <tr>" & vbCrLf
    Response.Write "    <td height=28 class=menu_title onmouseover=this.className='menu_title2'; onmouseout=this.className='menu_title'; background='User_Skin/Admin_left_" & rsChannel("ModuleType") & "2.gif' id=menuTitle" & ChannelID & "2 onclick=""new Element.toggle('submenu" & ChannelID & "2')"" style='cursor:hand;'><a href='User_Enrol.asp' target='main'><span class=glow>室场使用登记</span></a></td>" & vbCrLf
    Response.Write "  </tr>" & vbCrLf
    Response.Write "  <tr>" & vbCrLf
    Response.Write "    <td style='display:none' align='right' id='submenu" & ChannelID & "2'><div class=sec_menu style='width:165'>" & vbCrLf
    Response.Write "        <table cellpadding=0 cellspacing=0 align=center width=130>" & vbCrLf

    Response.Write "          <tr>" & vbCrLf
    Response.Write "            <td height=20><a href='User_Enrol.asp' target='main'>室场使用登记</a></td>" & vbCrLf
    Response.Write "          </tr>" & vbCrLf

    Response.Write "        </table>" & vbCrLf
    Response.Write "      </div>" & vbCrLf
    Response.Write "        <div  style='width:167'>" & vbCrLf
    Response.Write "          <table cellpadding=0 cellspacing=0 align=center width=130>" & vbCrLf
    Response.Write "            <tr>" & vbCrLf
    Response.Write "              <td height=5></td>" & vbCrLf
    Response.Write "            </tr>" & vbCrLf
    Response.Write "          </table>" & vbCrLf
    Response.Write "      </div></td>" & vbCrLf
    Response.Write "  </tr>" & vbCrLf
    Response.Write "</table>" & vbCrLf
End If

Dim rsChannel_Shop, NoShow_Shop
Set rsChannel_Shop = Conn.Execute("select Disabled from PE_Channel where ModuleType=5")
If Not (rsChannel_Shop.bof And rsChannel_Shop.EOF) Then
    NoShow_Shop = rsChannel_Shop(0)
Else
    NoShow_Shop = True
End If


If NoShow_Shop = False Then

    Response.Write "<table cellpadding=0 cellspacing=0 width=167 align=center>" & vbCrLf
    Response.Write "  <tr>" & vbCrLf
    Response.Write "    <td height=28 class=menu_title onmouseover=this.className='menu_title2'; onmouseout=this.className='menu_title'; background='User_Skin/Admin_left_1000.gif' id=menuTitle1000 onclick=""new Element.toggle('submenu1000')"" style='cursor:hand;'><span class=glow>商城管理</span></td>" & vbCrLf
    Response.Write "  </tr>" & vbCrLf
    Response.Write "  <tr>" & vbCrLf
    Response.Write "    <td style='display:none' align='right' id='submenu1000'><div class=sec_menu style='width:165'>" & vbCrLf
    Response.Write "        <table cellpadding=0 cellspacing=0 align=center width=130>" & vbCrLf

    If PE_Clng(UserSetting(30)) = 1 Then
    Response.Write "          <tr>" & vbCrLf
    Response.Write "            <td height=20><a href='User_Wholesale.asp' target='main'>批发商品</a></td>" & vbCrLf
    Response.Write "          </tr>" & vbCrLf
    End If
    If GroupType = 4 Then
    Response.Write "          <tr>" & vbCrLf
    Response.Write "            <td height=20><a href='User_Order.asp?OrderType=1' target='main'>我代理的订单</a></td>" & vbCrLf
    Response.Write "          </tr>" & vbCrLf
    Response.Write "          <tr>" & vbCrLf
    Response.Write "            <td height=20><a href='User_Bill.asp' target='main'>我的对账单</a></td>" & vbCrLf
    Response.Write "          </tr>" & vbCrLf
    Response.Write "          <tr>" & vbCrLf
    Response.Write "            <td height=20><a href='User_Complain.asp' target='main'>被投诉记录</a></td>" & vbCrLf
    Response.Write "          </tr>" & vbCrLf
    End If

    Response.Write "          <tr>" & vbCrLf
    Response.Write "            <td height=20><a href='User_Order.asp' target='main'>我的订单</a></td>" & vbCrLf
    Response.Write "          </tr>" & vbCrLf
    Response.Write "          <tr>" & vbCrLf
    Response.Write "            <td height=20><a href='../Shop/ShoppingCart.asp#user' target='main'>我的购物车</a></td>" & vbCrLf
    Response.Write "          </tr>" & vbCrLf
    Response.Write "          <tr>" & vbCrLf
    Response.Write "            <td height=20><a href='User_Favorite.asp?ChannelID=1000' target='main'>我收藏的商品</a></td>" & vbCrLf
    Response.Write "          </tr>" & vbCrLf
    Response.Write "          <tr>" & vbCrLf
    Response.Write "            <td height=20><a href='User_Comment.asp?ChannelID=1000' target='main'>我评论的商品</a></td>" & vbCrLf
    Response.Write "          </tr>" & vbCrLf
    Response.Write "          <tr>" & vbCrLf
    Response.Write "            <td height=20><a href='../Shop/PayOnline.asp#user' target='main'>在线支付</a></td>" & vbCrLf
    Response.Write "          </tr>" & vbCrLf
    Response.Write "          <tr>" & vbCrLf
    Response.Write "            <td height=20><a href='User_Payment.asp' target='main'>在线支付查询</a></td>" & vbCrLf
    Response.Write "          </tr>" & vbCrLf
    Response.Write "          <tr>" & vbCrLf
    Response.Write "            <td height=20><a href='User_Bankroll.asp' target='main'>资金明细查询</a></td>" & vbCrLf
    Response.Write "          </tr>" & vbCrLf
    Response.Write "          <tr>" & vbCrLf
    Response.Write "            <td height=20><a href='User_Down.asp' target='main'>下载购买的软件</a></td>" & vbCrLf
    Response.Write "          </tr>" & vbCrLf
    Response.Write "          <tr>" & vbCrLf
    Response.Write "            <td height=20><a href='User_Exchange.asp?Action=GetCard' target='main'>获取虚拟充值卡</a></td>" & vbCrLf
    Response.Write "          </tr>" & vbCrLf

    Response.Write "        </table>" & vbCrLf
    Response.Write "      </div>" & vbCrLf
    Response.Write "        <div  style='width:167'>" & vbCrLf
    Response.Write "          <table cellpadding=0 cellspacing=0 align=center width=130>" & vbCrLf
    Response.Write "            <tr>" & vbCrLf
    Response.Write "              <td height=5></td>" & vbCrLf
    Response.Write "            </tr>" & vbCrLf
    Response.Write "          </table>" & vbCrLf
    Response.Write "      </div></td>" & vbCrLf
    Response.Write "  </tr>" & vbCrLf
    Response.Write "</table>" & vbCrLf
End If

    Response.Write "<table cellpadding=0 cellspacing=0 width=167 align=center>" & vbCrLf
    Response.Write "  <tr>" & vbCrLf
    Response.Write "    <td height=28 class=menu_title onmouseover=this.className='menu_title2'; onmouseout=this.className='menu_title'; background='User_Skin/Admin_left_9000.gif' id=menuTitle9000 onclick=""new Element.toggle('submenu9000')"" style='cursor:hand;'><a href='User_Message.asp?Action=Manage&ManageType=Inbox' target='main'><span class=glow>短消息管理</span></a></td>" & vbCrLf
    Response.Write "  </tr>" & vbCrLf
    Response.Write "  <tr>" & vbCrLf
    Response.Write "    <td style='display:none' align='right' id='submenu9000'><div class=sec_menu style='width:165'>" & vbCrLf
    Response.Write "        <table cellpadding=0 cellspacing=0 align=center width=130>" & vbCrLf

    Response.Write "          <tr>" & vbCrLf
    Response.Write "            <td height=20><a href='User_Message.asp?Action=New' target='main'>撰写短消息</a></td>" & vbCrLf
    Response.Write "          </tr>" & vbCrLf
    Response.Write "          <tr>" & vbCrLf
    Response.Write "            <td height=20><a href='User_Message.asp?Action=Manage&ManageType=Inbox' target='main'>收件箱</a></td>" & vbCrLf
    Response.Write "          </tr>" & vbCrLf
    Response.Write "          <tr>" & vbCrLf
    Response.Write "            <td height=20><a href='User_Message.asp?Action=Manage&ManageType=Outbox' target='main'>草稿箱</a></td>" & vbCrLf
    Response.Write "          </tr>" & vbCrLf
    Response.Write "          <tr>" & vbCrLf
    Response.Write "            <td height=20><a href='User_Message.asp?Action=Manage&ManageType=IsSend' target='main'>已发送</a></td>" & vbCrLf
    Response.Write "          </tr>" & vbCrLf
    Response.Write "          <tr>" & vbCrLf
    Response.Write "            <td height=20><a href='User_Message.asp?Action=Manage&ManageType=Recycle' target='main'>废件箱</a></td>" & vbCrLf
    Response.Write "          </tr>" & vbCrLf

    Response.Write "        </table>" & vbCrLf
    Response.Write "      </div>" & vbCrLf
    Response.Write "        <div  style='width:167'>" & vbCrLf
    Response.Write "          <table cellpadding=0 cellspacing=0 align=center width=130>" & vbCrLf
    Response.Write "            <tr>" & vbCrLf
    Response.Write "              <td height=5></td>" & vbCrLf
    Response.Write "            </tr>" & vbCrLf
    Response.Write "          </table>" & vbCrLf
    Response.Write "      </div></td>" & vbCrLf
    Response.Write "  </tr>" & vbCrLf
    Response.Write "</table>" & vbCrLf


    Response.Write "<table cellpadding=0 cellspacing=0 width=167 align=center>" & vbCrLf
    Response.Write "  <tr>" & vbCrLf
    Response.Write "    <td height=28 class=menu_title onmouseover=this.className='menu_title2'; onmouseout=this.className='menu_title'; background='User_Skin/Admin_left_9001.gif' id=menuTitle9001 onclick=""new Element.toggle('submenu9001')"" style='cursor:hand;'><span class=glow>充值管理</span></td>" & vbCrLf
    Response.Write "  </tr>" & vbCrLf
    Response.Write "  <tr>" & vbCrLf
    Response.Write "    <td style='display:none' align='right' id='submenu9001'><div class=sec_menu style='width:165'>" & vbCrLf
    Response.Write "        <table cellpadding=0 cellspacing=0 align=center width=130>" & vbCrLf


If UserSetting(18) = 1 Then
    Response.Write "          <tr>" & vbCrLf
    Response.Write "            <td height=20><a href='User_Exchange.asp?Action=Exchange' target='main'>兑换" & PointName & "</a></td>" & vbCrLf
    Response.Write "          </tr>" & vbCrLf
End If
If UserSetting(19) = 1 Then
    Response.Write "          <tr>" & vbCrLf
    Response.Write "            <td height=20><a href='User_Exchange.asp?Action=Valid' target='main'>兑换有效期</a></td>" & vbCrLf
    Response.Write "          </tr>" & vbCrLf
End If
    Response.Write "          <tr>" & vbCrLf
    Response.Write "            <td height=20><a href='User_Exchange.asp?Action=Recharge' target='main'>充值卡充值</a></td>" & vbCrLf
    Response.Write "          </tr>" & vbCrLf
    Response.Write "          <tr>" & vbCrLf
    Response.Write "            <td height=20><a href='User_Money2Point.asp' target='main'>论坛金钱互换</a></td>" & vbCrLf
    Response.Write "          </tr>" & vbCrLf
If UserSetting(20) = 1 Then
    Response.Write "          <tr>" & vbCrLf
    Response.Write "            <td height=20><a href='User_Exchange.asp?Action=SendPoint' target='main'>赠送" & PointName & "</a></td>" & vbCrLf
    Response.Write "          </tr>" & vbCrLf
End If
    Response.Write "          <tr>" & vbCrLf
    Response.Write "            <td height=20><a href='User_Payment.asp' target='main'>在线支付明细查询</a></td>" & vbCrLf
    Response.Write "          </tr>" & vbCrLf
    Response.Write "          <tr>" & vbCrLf
    Response.Write "            <td height=20><a href='User_Bankroll.asp' target='main'>资金明细查询</a></td>" & vbCrLf
    Response.Write "          </tr>" & vbCrLf
    Response.Write "          <tr>" & vbCrLf
    Response.Write "            <td height=20><a href='User_ConsumeLog.asp' target='main'>" & PointName & "明细查询</a></td>" & vbCrLf
    Response.Write "          </tr>" & vbCrLf
    Response.Write "          <tr>" & vbCrLf
    Response.Write "            <td height=20><a href='User_RechargeLog.asp' target='main'>有效期明细查询</a></td>" & vbCrLf
    Response.Write "          </tr>" & vbCrLf
    Response.Write "        </table>" & vbCrLf
    Response.Write "      </div>" & vbCrLf
    Response.Write "        <div  style='width:167'>" & vbCrLf
    Response.Write "          <table cellpadding=0 cellspacing=0 align=center width=130>" & vbCrLf
    Response.Write "            <tr>" & vbCrLf
    Response.Write "              <td height=5></td>" & vbCrLf
    Response.Write "            </tr>" & vbCrLf
    Response.Write "          </table>" & vbCrLf
    Response.Write "      </div></td>" & vbCrLf
    Response.Write "  </tr>" & vbCrLf
    Response.Write "</table>" & vbCrLf

If UserSetting(25) = 1 Then

    Response.Write "<table cellpadding=0 cellspacing=0 width=167 align=center>" & vbCrLf
    Response.Write "  <tr>" & vbCrLf
    Response.Write "    <td height=28 class=menu_title onmouseover=this.className='menu_title2'; onmouseout=this.className='menu_title'; background='User_Skin/Admin_left_9002.gif' id=menuTitle9002 onclick=""new Element.toggle('submenu9002')"" style='cursor:hand;'><a href='User_Space.asp?Action=Manage' target='main'><span class=glow>我的聚合</span></a></td>" & vbCrLf
    Response.Write "  </tr>" & vbCrLf
    Response.Write "  <tr>" & vbCrLf
    Response.Write "    <td style='display:none' align='right' id='submenu9002'><div class=sec_menu style='width:165'>" & vbCrLf
    Response.Write "        <table cellpadding=0 cellspacing=0 align=center width=130>" & vbCrLf

    Dim rsspace, rsitem
    Set rsspace = Conn.Execute("select top 1 Passed from PE_Space where Type=1 and UserID=" & UserID)
    If rsspace.bof And rsspace.EOF Then
    Response.Write "          <tr>" & vbCrLf
    Response.Write "            <td height=20><a href='User_Space.asp?Action=Add' target='main'>申请聚合空间</a></td>" & vbCrLf
    Response.Write "          </tr>" & vbCrLf
    Else
        If rsspace("Passed") = True Then
    Response.Write "          <tr>" & vbCrLf
    Response.Write "            <td height=20><a href='User_Space.asp?Action=Add' target='main'>增加新栏目</a></td>" & vbCrLf
    Response.Write "          </tr>" & vbCrLf
            Set rsitem = Conn.Execute("select ID,Name,Type from PE_Space where (Type>=3 and Type<=7) and Passed=" & PE_True & " and UserID=" & UserID & " order by Type desc")
            Do While Not rsitem.EOF
                Select Case rsitem("Type")
                Case 3
    Response.Write "          <tr>" & vbCrLf
    Response.Write "            <td height=20>" & vbCrLf
    Response.Write "<table cellpadding=0 cellspacing=0 width=167 align=center>" & vbCrLf
    Response.Write "  <tr>" & vbCrLf
    Response.Write "    <td height=28 class=menu_title onmouseover=this.className='menu_title2'; onmouseout=this.className='menu_title'; background='User_Skin/Admin_left_9002.gif' id=menuTitle9002" & rsitem("ID") & " onclick=""new Element.toggle('submenu9002" & rsitem("ID") & "')"" style='cursor:hand;'><span class=glow>" & rsitem("Name") & "</span></td>" & vbCrLf
    Response.Write "  </tr>" & vbCrLf
    Response.Write "  <tr>" & vbCrLf
    Response.Write "    <td style='display:none' align='right' id='submenu9002" & rsitem("ID") & "'><div class=sec_menu style='width:165'>" & vbCrLf
    Response.Write "        <table cellpadding=0 cellspacing=0 align=center width=130>" & vbCrLf

    Response.Write "          <tr>" & vbCrLf
    Response.Write "            <td height=20><a href='User_SpaceDiary.asp?Action=Add&ID=" & rsitem("ID") & "' target='main'>写日志</a></td>" & vbCrLf
    Response.Write "          </tr>" & vbCrLf
    Response.Write "          <tr>" & vbCrLf
    Response.Write "            <td height=20><a href='User_SpaceDiary.asp?ID=" & rsitem("ID") & "' target='main'>我的日志管理</a></td>" & vbCrLf
    Response.Write "          </tr>" & vbCrLf

    Response.Write "        </table>" & vbCrLf
    Response.Write "      </div>" & vbCrLf
    Response.Write "        <div  style='width:167'>" & vbCrLf
    Response.Write "          <table cellpadding=0 cellspacing=0 align=center width=130>" & vbCrLf
    Response.Write "            <tr>" & vbCrLf
    Response.Write "              <td height=5></td>" & vbCrLf
    Response.Write "            </tr>" & vbCrLf
    Response.Write "          </table>" & vbCrLf
    Response.Write "      </div></td>" & vbCrLf
    Response.Write "  </tr>" & vbCrLf
    Response.Write "</table>" & vbCrLf
    Response.Write "            </td>" & vbCrLf
    Response.Write "          </tr>" & vbCrLf
                Case 4
    Response.Write "          <tr>" & vbCrLf
    Response.Write "            <td height=20>" & vbCrLf
    Response.Write "<table cellpadding=0 cellspacing=0 width=167 align=center>" & vbCrLf
    Response.Write "  <tr>" & vbCrLf
    Response.Write "    <td height=28 class=menu_title onmouseover=this.className='menu_title2'; onmouseout=this.className='menu_title'; background='User_Skin/Admin_left_9002.gif' id=menuTitle9002" & rsitem("ID") & " onclick=""new Element.toggle('submenu9002" & rsitem("ID") & "')"" style='cursor:hand;'><span class=glow>" & rsitem("Name") & "</span></td>" & vbCrLf
    Response.Write "  </tr>" & vbCrLf
    Response.Write "  <tr>" & vbCrLf
    Response.Write "    <td style='display:none' align='right' id='submenu9002" & rsitem("ID") & "'><div class=sec_menu style='width:165'>" & vbCrLf
    Response.Write "        <table cellpadding=0 cellspacing=0 align=center width=130>" & vbCrLf

    Response.Write "          <tr>" & vbCrLf
    Response.Write "            <td height=20><a href='User_SpaceMusic.asp?Action=Add&ID=" & rsitem("ID") & "' target='main'>添加音乐</a></td>" & vbCrLf
    Response.Write "          </tr>" & vbCrLf
    Response.Write "          <tr>" & vbCrLf
    Response.Write "            <td height=20><a href='User_SpaceMusic.asp?ID=" & rsitem("ID") & "' target='main'>我的音乐管理</a></td>" & vbCrLf
    Response.Write "          </tr>" & vbCrLf

    Response.Write "        </table>" & vbCrLf
    Response.Write "      </div>" & vbCrLf
    Response.Write "        <div  style='width:167'>" & vbCrLf
    Response.Write "          <table cellpadding=0 cellspacing=0 align=center width=130>" & vbCrLf
    Response.Write "            <tr>" & vbCrLf
    Response.Write "              <td height=5></td>" & vbCrLf
    Response.Write "            </tr>" & vbCrLf
    Response.Write "          </table>" & vbCrLf
    Response.Write "      </div></td>" & vbCrLf
    Response.Write "  </tr>" & vbCrLf
    Response.Write "</table>" & vbCrLf
    Response.Write "            </td>" & vbCrLf
    Response.Write "          </tr>" & vbCrLf
                Case 5
    Response.Write "          <tr>" & vbCrLf
    Response.Write "            <td height=20>" & vbCrLf
    Response.Write "<table cellpadding=0 cellspacing=0 width=167 align=center>" & vbCrLf
    Response.Write "  <tr>" & vbCrLf
    Response.Write "    <td height=28 class=menu_title onmouseover=this.className='menu_title2'; onmouseout=this.className='menu_title'; background='User_Skin/Admin_left_9002.gif' id=menuTitle9002" & rsitem("ID") & " onclick=""new Element.toggle('submenu9002" & rsitem("ID") & "')"" style='cursor:hand;'><span class=glow>" & rsitem("Name") & "</span></td>" & vbCrLf
    Response.Write "  </tr>" & vbCrLf
    Response.Write "  <tr>" & vbCrLf
    Response.Write "    <td style='display:none' align='right' id='submenu9002" & rsitem("ID") & "'><div class=sec_menu style='width:165'>" & vbCrLf
    Response.Write "        <table cellpadding=0 cellspacing=0 align=center width=130>" & vbCrLf

    Response.Write "          <tr>" & vbCrLf
    Response.Write "            <td height=20><a href='User_SpaceBook.asp?Action=Add&ID=" & rsitem("ID") & "' target='main'>添加新书</a></td>" & vbCrLf
    Response.Write "          </tr>" & vbCrLf
    Response.Write "          <tr>" & vbCrLf
    Response.Write "            <td height=20><a href='User_SpaceBook.asp?ID=" & rsitem("ID") & "' target='main'>我的图书管理</a></td>" & vbCrLf
    Response.Write "          </tr>" & vbCrLf

    Response.Write "        </table>" & vbCrLf
    Response.Write "      </div>" & vbCrLf
    Response.Write "        <div  style='width:167'>" & vbCrLf
    Response.Write "          <table cellpadding=0 cellspacing=0 align=center width=130>" & vbCrLf
    Response.Write "            <tr>" & vbCrLf
    Response.Write "              <td height=5></td>" & vbCrLf
    Response.Write "            </tr>" & vbCrLf
    Response.Write "          </table>" & vbCrLf
    Response.Write "      </div></td>" & vbCrLf
    Response.Write "  </tr>" & vbCrLf
    Response.Write "</table>" & vbCrLf
    Response.Write "            </td>" & vbCrLf
    Response.Write "          </tr>" & vbCrLf
                Case 6
    Response.Write "          <tr>" & vbCrLf
    Response.Write "            <td height=20>" & vbCrLf
    Response.Write "<table cellpadding=0 cellspacing=0 width=167 align=center>" & vbCrLf
    Response.Write "  <tr>" & vbCrLf
    Response.Write "    <td height=28 class=menu_title onmouseover=this.className='menu_title2'; onmouseout=this.className='menu_title'; background='User_Skin/Admin_left_9002.gif' id=menuTitle9002" & rsitem("ID") & " onclick=""new Element.toggle('submenu9002" & rsitem("ID") & "')"" style='cursor:hand;'><span class=glow>" & rsitem("Name") & "</span></td>" & vbCrLf
    Response.Write "  </tr>" & vbCrLf
    Response.Write "  <tr>" & vbCrLf
    Response.Write "    <td style='display:none' align='right' id='submenu9002" & rsitem("ID") & "'><div class=sec_menu style='width:165'>" & vbCrLf
    Response.Write "        <table cellpadding=0 cellspacing=0 align=center width=130>" & vbCrLf

    Response.Write "          <tr>" & vbCrLf
    Response.Write "            <td height=20><a href='User_SpacePhoto.asp?Action=Add&ID=" & rsitem("ID") & "' target='main'>添加新图片</a></td>" & vbCrLf
    Response.Write "          </tr>" & vbCrLf
    Response.Write "          <tr>" & vbCrLf
    Response.Write "            <td height=20><a href='User_SpacePhoto.asp?ID=" & rsitem("ID") & "' target='main'>我的图片管理</a></td>" & vbCrLf
    Response.Write "          </tr>" & vbCrLf

    Response.Write "        </table>" & vbCrLf
    Response.Write "      </div>" & vbCrLf
    Response.Write "        <div  style='width:167'>" & vbCrLf
    Response.Write "          <table cellpadding=0 cellspacing=0 align=center width=130>" & vbCrLf
    Response.Write "            <tr>" & vbCrLf
    Response.Write "              <td height=5></td>" & vbCrLf
    Response.Write "            </tr>" & vbCrLf
    Response.Write "          </table>" & vbCrLf
    Response.Write "      </div></td>" & vbCrLf
    Response.Write "  </tr>" & vbCrLf
    Response.Write "</table>" & vbCrLf
    Response.Write "            </td>" & vbCrLf
    Response.Write "          </tr>" & vbCrLf
                Case 7
    Response.Write "          <tr>" & vbCrLf
    Response.Write "            <td height=20>" & vbCrLf
    Response.Write "<table cellpadding=0 cellspacing=0 width=167 align=center>" & vbCrLf
    Response.Write "  <tr>" & vbCrLf
    Response.Write "    <td height=28 class=menu_title onmouseover=this.className='menu_title2'; onmouseout=this.className='menu_title'; background='User_Skin/Admin_left_9002.gif' id=menuTitle9002" & rsitem("ID") & " onclick=""new Element.toggle('submenu9002" & rsitem("ID") & "')"" style='cursor:hand;'><span class=glow>" & rsitem("Name") & "</span></td>" & vbCrLf
    Response.Write "  </tr>" & vbCrLf
    Response.Write "  <tr>" & vbCrLf
    Response.Write "    <td style='display:none' align='right' id='submenu9002" & rsitem("ID") & "'><div class=sec_menu style='width:165'>" & vbCrLf
    Response.Write "        <table cellpadding=0 cellspacing=0 align=center width=130>" & vbCrLf

    Response.Write "          <tr>" & vbCrLf
    Response.Write "            <td height=20><a href='User_SpaceLink.asp?Action=Add&ID=" & rsitem("ID") & "' target='main'>添加新链接</a></td>" & vbCrLf
    Response.Write "          </tr>" & vbCrLf
    Response.Write "          <tr>" & vbCrLf
    Response.Write "            <td height=20><a href='User_SpaceLink.asp?ID=" & rsitem("ID") & "' target='main'>我的链接管理</a></td>" & vbCrLf
    Response.Write "          </tr>" & vbCrLf

    Response.Write "        </table>" & vbCrLf
    Response.Write "      </div>" & vbCrLf
    Response.Write "        <div  style='width:167'>" & vbCrLf
    Response.Write "          <table cellpadding=0 cellspacing=0 align=center width=130>" & vbCrLf
    Response.Write "            <tr>" & vbCrLf
    Response.Write "              <td height=5></td>" & vbCrLf
    Response.Write "            </tr>" & vbCrLf
    Response.Write "          </table>" & vbCrLf
    Response.Write "      </div></td>" & vbCrLf
    Response.Write "  </tr>" & vbCrLf
    Response.Write "</table>" & vbCrLf
    Response.Write "            </td>" & vbCrLf
    Response.Write "          </tr>" & vbCrLf
                End Select
                rsitem.MoveNext
            Loop
            Set rsitem = Nothing
            If UserSetting(28) = 1 Then
    Response.Write "          <tr>" & vbCrLf
    Response.Write "            <td height=20><a href='User_Space.asp?Action=Template' target='main'>更换空间版式</a></td>" & vbCrLf
    Response.Write "          </tr>" & vbCrLf
            End If
    Response.Write "          <tr>" & vbCrLf
    Response.Write "            <td height=20><a href='../Space/" & UserName & UserID & "/' target='_blank'>查看我的聚合</a></td>" & vbCrLf
    Response.Write "          </tr>" & vbCrLf
        Else
    Response.Write "          <tr>" & vbCrLf
    Response.Write "            <td height=20>聚合空间审核中...</td>" & vbCrLf
    Response.Write "          </tr>" & vbCrLf
        End If
    End If
    Response.Write "        </table>" & vbCrLf
    Response.Write "      </div>" & vbCrLf
    Response.Write "        <div  style='width:167'>" & vbCrLf
    Response.Write "          <table cellpadding=0 cellspacing=0 align=center width=130>" & vbCrLf
    Response.Write "            <tr>" & vbCrLf
    Response.Write "              <td height=5></td>" & vbCrLf
    Response.Write "            </tr>" & vbCrLf
    Response.Write "          </table>" & vbCrLf
    Response.Write "      </div></td>" & vbCrLf
    Response.Write "  </tr>" & vbCrLf
    Response.Write "</table>" & vbCrLf
End If

    Response.Write "<table cellpadding=0 cellspacing=0 width=167 align=center>" & vbCrLf
    Response.Write "  <tr>" & vbCrLf
    Response.Write "    <td height=28 class=menu_title onmouseover=this.className='menu_title2'; onmouseout=this.className='menu_title'; background='User_Skin/Admin_left_9003.gif' id=menuTitle9003 onclick=""new Element.toggle('submenu9003')"" style='cursor:hand;'><span class=glow>好友管理</span></td>" & vbCrLf
    Response.Write "  </tr>" & vbCrLf
    Response.Write "  <tr>" & vbCrLf
    Response.Write "    <td style='display:none' align='right' id='submenu9003'><div class=sec_menu style='width:165'>" & vbCrLf
    Response.Write "        <table cellpadding=0 cellspacing=0 align=center width=130>" & vbCrLf

    Response.Write "          <tr>" & vbCrLf
    Response.Write "            <td height=20><a href='User_Friend.asp' target='main'>成员列表</a></td>" & vbCrLf
    Response.Write "          </tr>" & vbCrLf
    Response.Write "          <tr>" & vbCrLf
    Response.Write "            <td height=20><a href='User_Friend.asp?Action=AddFriend' target='main'>添加成员</a></td>" & vbCrLf
    Response.Write "          </tr>" & vbCrLf
    Response.Write "          <tr>" & vbCrLf
    Response.Write "            <td height=20><a href='User_Friend.asp?Action=CreateNewGroup' target='main'>创建新组</a></td>" & vbCrLf
    Response.Write "          </tr>" & vbCrLf
    Response.Write "          <tr>" & vbCrLf
    Response.Write "            <td height=20><a href='User_Friend.asp?Action=ManageGroup' target='main'>分组管理</a></td>" & vbCrLf
    Response.Write "          </tr>" & vbCrLf

    Response.Write "        </table>" & vbCrLf
    Response.Write "      </div>" & vbCrLf
    Response.Write "        <div  style='width:167'>" & vbCrLf
    Response.Write "          <table cellpadding=0 cellspacing=0 align=center width=130>" & vbCrLf
    Response.Write "            <tr>" & vbCrLf
    Response.Write "              <td height=5></td>" & vbCrLf
    Response.Write "            </tr>" & vbCrLf
    Response.Write "          </table>" & vbCrLf
    Response.Write "      </div></td>" & vbCrLf
    Response.Write "  </tr>" & vbCrLf
    Response.Write "</table>" & vbCrLf

    Response.Write "<table cellpadding=0 cellspacing=0 width=167 align=center>" & vbCrLf
    Response.Write "  <tr>" & vbCrLf
    Response.Write "    <td height=28 class=menu_title onmouseover=this.className='menu_title2'; onmouseout=this.className='menu_title'; background='User_Skin/Admin_left_9005.gif' id=menuTitle9005 onclick=""new Element.toggle('submenu9005')"" style='cursor:hand;'><a href='' target='main'><span class=glow>用户管理</span></a></td>" & vbCrLf
    Response.Write "  </tr>" & vbCrLf
    Response.Write "  <tr>" & vbCrLf
    Response.Write "    <td style='display:none' align='right' id='submenu9005'><div class=sec_menu style='width:165'>" & vbCrLf
    Response.Write "        <table cellpadding=0 cellspacing=0 align=center width=130>" & vbCrLf

    Response.Write "          <tr>" & vbCrLf
    Response.Write "            <td height=20><a href='User_Info.asp?Action=ModifyPwd' target='main'>修改密码</a></td>" & vbCrLf
    Response.Write "          </tr>" & vbCrLf
    Response.Write "          <tr>" & vbCrLf
    Response.Write "            <td height=20><a href='User_Info.asp?Action=Modify' target='main'>修改信息</a></td>" & vbCrLf
    Response.Write "          </tr>" & vbCrLf
'If UserType = 0 And CRM_Edition > 0 Then
    Response.Write "          <tr>" & vbCrLf
    Response.Write "            <td height=20><a href='User_Info.asp?Action=RegCompany' target='main'>注册我的企业</a></td>" & vbCrLf
    Response.Write "          </tr>" & vbCrLf
'End If
    Response.Write "          <tr>" & vbCrLf
    Response.Write "            <td height=20><a href='User_Logout.asp' target='_top'>退出登录</a></td>" & vbCrLf
    Response.Write "          </tr>" & vbCrLf

    Response.Write "        </table>" & vbCrLf
    Response.Write "      </div>" & vbCrLf
    Response.Write "        <div  style='width:167'>" & vbCrLf
    Response.Write "          <table cellpadding=0 cellspacing=0 align=center width=130>" & vbCrLf
    Response.Write "            <tr>" & vbCrLf
    Response.Write "              <td height=5></td>" & vbCrLf
    Response.Write "            </tr>" & vbCrLf
    Response.Write "          </table>" & vbCrLf
    Response.Write "      </div></td>" & vbCrLf
    Response.Write "  </tr>" & vbCrLf
    Response.Write "</table>" & vbCrLf



Response.Write "<table cellpadding=0 cellspacing=0 width=167 align=center>" & vbCrLf
Response.Write "  <tr>" & vbCrLf
Response.Write "    <td height=28 class=menu_title onmouseover=this.className='menu_title2'; onmouseout=this.className='menu_title'; background='User_Skin/Admin_left_10000.gif' id=menuTitle10000><span>系统信息</span> </td>" & vbCrLf
Response.Write "  </tr>" & vbCrLf
Response.Write "  <tr>" & vbCrLf
Response.Write "    <td align='right'><div class=sec_menu style='width:165'>" & vbCrLf
Response.Write "        <table cellpadding=0 cellspacing=0 align=center width=130>" & vbCrLf
Response.Write "          <tr>" & vbCrLf
Response.Write "            <td height=20><br>" & vbCrLf
Response.Write "              版权所有：&nbsp;<a href='" & SiteUrl & "' target=_blank>" & SiteName & "</a><br>" & vbCrLf
Response.Write "              设计制作：&nbsp;<a href='http://www.yz81.net/' target=_blank>雨哲工作室</a><BR>" & vbCrLf
Response.Write "              技术支持：&nbsp;<a href='http://help.yz81.net/' target=_blank>雨哲工作室</a><br>" & vbCrLf
Response.Write "              <br>" & vbCrLf
Response.Write "            </td>" & vbCrLf
Response.Write "          </tr>" & vbCrLf
Response.Write "        </table>" & vbCrLf
Response.Write "    </div></td>" & vbCrLf
Response.Write "  </tr>" & vbCrLf
Response.Write "</table>" & vbCrLf
Response.Write "</body>" & vbCrLf
Response.Write "</html>" & vbCrLf

Dim tMessageID, rsMessage
If request("Action") <> "ReadInbox" Then
    Set rsMessage = Conn.Execute("select Min(Id) from PE_Message where incept='" & UserName & "'and delR=0 and flag=0 and IsSend=1")
    If IsNull(rsMessage(0)) Then
        tMessageID = 0
    Else
        tMessageID = rsMessage(0)
    End If
    Set rsMessage = Nothing
    If tMessageID > 0 Then
        Response.Write "<script LANGUAGE='JavaScript'>" & vbCrLf
        Response.Write "var url = 'User_ReadMessage.asp?MessageID=" & tMessageID & "';" & vbCrLf
        Response.Write "window.open (url, 'newmessage', 'height=440, width=400, toolbar=no, menubar=no, scrollbars=auto, resizable=no, location=no, status=no')" & vbCrLf
        Response.Write "</script>" & vbCrLf
    End If
End If

Call CloseConn
%>

