<!--#include file="user_Head.Asp" -->
<%
if not (session("MemName")<>"" and session("MemLogin")="Succeed") then
  response.Write "<script language=javascript>alert('请先登录！');location.href='/';</script>"
  response.end
end if
%>

<TABLE width="960" border=0 align="center" cellPadding=0 cellSpacing=0 bgcolor="#FFFFFF">
  <TR>
    <TD height="5"></TD>
  </TR>
  <TR> 
    <TD height="172" ><table width="960" height="100%" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr> 
          <td class="tdbg_left"  width="190" height="179" valign="top" > <table width="100%" border="0" cellspacing="0" cellpadding="0">

              <tr> 
                <td height="34" class="title_left">&nbsp;&nbsp;&nbsp;<img src="../images/good.gif" width="10" height="10">&nbsp;&nbsp;用户登陆 
                </td>
              </tr>
              <tr> 
                <td height="5"></td>
              </tr>
              <tr> 
                <td height="10"><table width="88%" border="0" align="center" cellpadding="0" cellspacing="0">
                    <tr> 
                      <td> 
                       
	<iframe src="/Dynamic/user_Login.asp"  frameborder="0" border="0px" scrolling="no" class="frame" height="120px" width="200px"></iframe>
                      </td>
                    </tr>
                  </table></td>
              </tr>
              <tr> 
                <td height="5"></td>
              </tr>
            </table>
            <table width="100%" border="0" cellpadding="0" cellspacing="0">
              <tr> 
                <td height="34" class="title_left">&nbsp;&nbsp;&nbsp;<img src="../images/good.gif" width="10" height="10">&nbsp;&nbsp;会员中心</td>
              </tr>
     
 	<%=WebMenu()%>

            </table></td>
          <td width="6"></td>
          <td valign="top"><table Class=border width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
              <tr> 
                <td height="206" valign="top"> <table width="100%" border="0" cellspacing="0" cellpadding="0">

			<TR> 
              <TD    
                  height=1> 
 <table width="100%" height="19" border="0" align="center" cellpadding="0" cellspacing="0">
                  <tr> 
                            <td width="80%" height="18" bgcolor="#eeeeee">我的留言</td>
                        <td width="79%" bgcolor="#eeeeee">&nbsp; </td>
                  </tr>
                  <tr> 
                    <td height="1" colspan="2" bgcolor="#999999"></td>
                  </tr>
                </table>
                <table width="100%" border="0" align="center" cellpadding="0" cellspacing="3" bgcolor="#FBFEFF">
                  <tr> 
                    <td height="8"></td>
                  </tr>
                 
                  <tr> 
                        <td>
		<table border="0" cellpadding="0" cellspacing="0" width="100%">
        <tr>
<td>
<table width="750" border="0" cellpadding="0" cellspacing="0" class="ty1">
<%
page=clng(request.querystring("page"))
If request("ppage")<>"" Then page=clng(request("ppage"))
Call OpenConn
set rs=server.createobject("adodb.recordset")
sql="select * from BokeCMS_Message where username='"&session("MemName")&"'"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
Response.Write "<p><br>暂无您的留言!"
else 
rs.pagesize=10
if page=0 then page=1 
pages=rs.pagecount
if page > pages then page=pages
rs.absolutepage=page  
for j=1 to rs.pagesize%>
        <tr> 
          <td height="24" align="center" >
		  <%Response.Write "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">"&VbCrLf
	Response.Write "  <tr>"&VbCrLf
	Response.Write "    <td width=""70%"" height=""25"" bgcolor=""#820000"" align=""center""><font color=""#FFFFFF""> </font></td>"&VbCrLf	
	Response.Write "    <td width=""45%"" height=""25"" bgcolor=""#820000"" align=""right"" style=""padding-right: 8px""><font color=""#ffffff"">留言时间："&rs("Addtime")&"</font></td>"&VbCrLf
	Response.Write "  </tr>"&VbCrLf
	Response.Write "</table>"&VbCrLf
	Response.Write "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""1"">"&VbCrLf
	Response.Write "  <tr align=""left"">"&VbCrLf
	Response.Write "    <td width=""15%"" height=""20"" align=""right"" style=""padding-right: 8px""><b>咨询主题：</b></td>"&VbCrLf
	Response.Write "    <td>"&rs("MesName")&"</td>"&VbCrLf
	Response.Write "  </tr>"&VbCrLf
	Response.Write "  <tr align=""left"">"&VbCrLf
	Response.Write "    <td height=""20"" align=""right"" style=""padding-right: 8px""><b>咨询内容：</b></td>"&VbCrLf
	Response.Write "    <td style=""padding-right: 5px"">"&rs("Content")&"</td>"&VbCrLf
	Response.Write "  </tr>"&VbCrLf
	If rs("ReplyContent") <> "" Then
	Response.Write "  <tr align=""left"">"&VbCrLf
	Response.Write "    <td height=""20"" align=""right"" style=""padding-right: 8px""><b>站长回复：</b></td>"&VbCrLf
	Response.Write "    <td style=""padding-right: 5px"">"&rs("ReplyContent")&"</td>"&VbCrLf
	Response.Write "  </tr>"&VbCrLf
	End If
	Response.Write "  <tr>"&VbCrLf
	Response.Write "    <td colspan=""2"" height=""5""></td>"&VbCrLf
	Response.Write "  </tr>"&VbCrLf
	Response.Write "</table>"&VbCrLf%></td>
        </tr>
<%rs.movenext
if rs.eof then exit for
next
response.write"<tr valign='bottom'><td height='100%' colspan='3' align='center'>" 
   response.write"<form method=post action='user_MemberMessage.Asp?page="&page&"'>"  
      if page<2 then      
    response.write "首页 上一页&nbsp;"
  else
    response.write "<a href=user_MemberMessage.Asp?page=1>首页</a>&nbsp;"
    response.write "<a href=user_MemberMessage.Asp?page=" & page-1 & ">上一页</a>&nbsp;"
  end if
  if rs.pagecount-page<1 then
    response.write "下一页 尾页"
  else
    response.write "<a href=user_MemberMessage.Asp?page=" & (page+1) & ">"
    response.write "下一页</a> <a href=user_MemberMessage.Asp?page="&rs.pagecount&">尾页</a>"
  end if
   response.write "&nbsp;页次：<strong><font color=red>"&page&"</font>/"&rs.pagecount&"</strong>页 "
    response.write "&nbsp;共<b><font color='#ff0000'>"&rs.recordcount&"</font></b>条记录 <b>"&rs.pagesize&"</b>条记录/页"
   response.write " 转到：<input type='text' name='ppage' size=4 maxlength=10 class=input value="&page&">"
   response.write " <input class=input type='submit'  value=' goto '  name='cndok'></span></p>"     
response.write"</form></td></tr>"
end if
Call CloseRs(rs)%>

      </table>
</td>
        </tr>
        <tr>
          <td height="20">&nbsp;</td>
        </tr>
      </table>
			</td>
                  </tr>             
                  <tr> 
                    <td height="8"><div align="right"></div></td>
                  </tr>
                </table> 
                      </TD>
            </TR>
                  </table>
                  
                </td>
              </tr>
			  
            </table></td>
        </tr>
      </table></td>
  </tr>
</table>
<TABLE  width="960" border=0 align="center" cellPadding=0 cellSpacing=0 > 
    <TR> 
      <TD height="5"></TD>
    </TR>
    <TR> 
    <TD> 
      <DIV align=center class="title"> 
        <br />
		<DIV align=center> 
           <ul class="AllUl" style="list-style:none;">

    
</ul>
      </DIV></TD>
    </TR>
  </TBODY>
</TABLE>
</BODY></HTML>