<!--#include file="usertop.asp"-->
<!--#include file="usercookies.asp"-->
<%
dim ts,rsbo,sqlbo
dim ThisPage,Pagesize,Allrecord,Allpage,tj
ts=trim(request("ts"))
if request("page")="" then
  ThisPage=1		
else
  ThisPage=request("page")
end if
%>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>对话本站--<%=title%>--<%=web%></title>
</head>

<body>

<div align="center">
<table cellSpacing="0" cellPadding="0" width="760" border="0" id="table1">
		<tr>
			<td  height="25" colspan="2" class="tdtop"><b>&nbsp;<img border="0" src="images/z1.gif" width="50" height="18"> 您的位置  
			<font color="#FFFFFF">-></font> <a class="scap1" href="index.htm"><%=title%></a>
			<font color="#FFFFFF">-></font> 对话本站：</b></td>
		</tr>
		<tr bgColor="#d9ebe5">
			<td  width="255" bgcolor="#FFFFFF" rowspan="2" valign="top">
            <!--#include file="caozuo.asp"-->
			</td>
		<tr bgColor="#d9ebe5">
			<td valign="top" width="505" height="315" bgcolor="#FFFFFF">
			<table border="1" width="100%" id="table2" bordercolorlight="#D9EBE5" bordercolordark="#D9EBE5" style="border-collapse: collapse" cellpadding="0" cellspacing="0">
				<tr>
					<td class="tdtxt07" bgcolor="#D9EBE5">&nbsp;<img border="0" src="images/a01.gif" width="25" height="25">
用户：<font color="#FF0000"><%=username%></font>，您好，欢迎来到会员中心！您登陆本站共<font color="#FF0000"><%=rsuser("dlcs")%></font>次。<br>
您目前级别：<%if rsuser("huitype")="0" then%><font color="#FF0000"><%=aname%>会员</font><%elseif rsuser("huitype")="1" then%><font color="#FF0000"><%=bname%>会员</font><%elseif rsuser("huitype")="2" then%><font color="#FF0000"><%=cname%>会员</font><%end if%>
，验证状态：<%if rsuser("yz")="0" then%><font color="#FF0000">没有通过验证</font>，验证后才可以享受更多权利！<%elseif rsuser("yz")="1" then%><font color="#FF0000">已通过验证</font>，祝您愉快！<%end if%></td>
				</tr>
				<tr>
					<td class="tdtxt07" bgcolor="#D9EBE5" height="20">
					<table border="0" width="100%" id="table3" cellspacing="1">
						<tr>
							<td bgcolor="#FFFFFF" height="40">
							<p align="center">
							<img border="0" src="images/a03.gif" width="25" height="25">
							<b><a href="gbook.asp">
							<span style="text-decoration: none">我的对话记录</span></a></b></td>
							<td bgcolor="#FFFFFF" height="40">
							<img border="0" src="images/a03.gif" width="25" height="25">
							<b><a href="gbook.asp?ts=2">
							<span style="text-decoration: none">所有与本站对话</span></a></b></td>
						</tr>
						<tr>
							<td bgcolor="#FFFFFF" height="40" colspan="2">
            <%
tj=1
set rsbo=server.createobject("adodb.recordset")
Select Case ts
Case "1"
sqlbo="select username,gbook1,gbook2,hfsj from FOX_gbook where lx=1 and hf=1 order by fbsj desc"
Case "2"
sqlbo="select username,gbook1,gbook2,hfsj from FOX_gbook where lx=0 and hf=1 order by fbsj desc"
Case Else
sqlbo="select username,gbook1,gbook2,hfsj from FOX_gbook where username='"&username&"' order by fbsj desc"
End Select
rsbo.open sqlbo,conn,1,1
rsbo.Pagesize=5
Pagesize=rsbo.Pagesize
Allrecord=rsbo.Recordcount
Allpage=rsbo.Pagecount
if ThisPage<1 then                           
ThisPage=1                           
end if
On Error Resume Next
rsbo.move (ThisPage-1)*Pagesize
if rsbo.eof then
response.write "还没有留言！"
else
%>
<table width="100%" border="0" cellpadding="0" cellspacing="0" bordercolor="#C0C0C0" style="border-collapse: collapse" id="table169">

            <%do while not rsbo.eof%>
            <tr bgcolor="#CCCCCC">
              <td colspan="4" height="1"></td>
            </tr> 
                       <tr valign="middle" bgcolor="#F7F7F7">
              <td height="35" colspan="2" class="p10t">
				<p align="center">
				<img border="0" src="images/edit.gif" width="16" height="16"></td>
              <td height="35" colspan="2" class="p10t"><strong style="font-weight: 400"><font color="#cc0000"> &nbsp;管理员</font><font color="#000000">答复</font><font color="#009933"><b><%=rsbo("username")%></b></font>提出的问题</strong>&nbsp;&nbsp;回复时间：<font color="#666666"><%=rsbo("hfsj")%></font></td>
            </tr>

            <tr>
              <td height="22" width="5%" class="p9t" bgcolor="#F5F5F5">
				<p style="margin-top: 0; margin-bottom: 0" align="right"> 
				<font color="#009933">
				<img border="0" src="images/more2.gif" width="16" height="13">&nbsp; </font></td>
              <td height="22" class="p9t" bgcolor="#F5F5F5" colspan="2">
				<font color="#009933">留言：</font></td>
              <td height="22" width="84%" class="index_bk2" valign="top"><%=rsbo("gbook1")%></td>
            </tr>
            <tr>
              <td height="22" width="5%" class="p9t" bgcolor="#F5F5F5">
				<p style="margin-top: 0; margin-bottom: 0" align="right">
				<font color="#FF0000">
				<img border="0" src="images/more.gif" width="16" height="13">&nbsp; </font></td>
              <td height="22" class="p9t" bgcolor="#F5F5F5" colspan="2">
				<font color="#FF0000">回答：</font></td>
              <td height="22" width="84%" class="p9t"><font color="#FF0000"><%if rsbo("gbook2")<>"" then%><%=rsbo("gbook2")%><%else%>管理员暂未回复，请等待！<%end if%></font></td>
            </tr>
            <%
        tj=tj+1
        if tj>=Pagesize then exit do
        rsbo.movenext
        loop
        %>
        </table>

				<table width="100%" border="0" cellpadding="0" cellspacing="0" bordercolor="#111111" style="border-collapse: collapse" id="table170">
                <tr>
                  <td height="25" width="151" class="p9t"><p align="center"> 共有&nbsp;<font color="#CC5200"><%=Allrecord%></font>&nbsp;条记录</td>
                  <td height="25" width="126" class="p9t"><p align="center">共 <font color="#CC5200"><%=Allpage%></font> 页</td>
                  <td height="25" width="118" class="p9t"><p align="center">现在是第 <font color="#CC5200"><%=ThisPage%></font> 页</td>
                  <td height="25" width="187" class="p9t"><p align="center">
 <%
if ThisPage<2 then     
response.write "<font color=""#808080"">首页</font>&nbsp;"
response.write "<font color=""#808080"">上一页</font>&nbsp;"     
else     
response.write "<a href=?page=1&ts="&ts&">首页</a>&nbsp;"
response.write "<a href=?page="&ThisPage-1&"&ts="&ts&">上一页</a>&nbsp;"     
end if
if Allpage-ThisPage<1 then     
response.write "<font color=""#808080"">下一页</font>&nbsp;"
response.write "<font color=""#808080"">尾页</font>&nbsp;"  
else     
response.write "<a href=?page="&(ThisPage+1)&"&ts="&ts&">下一页</a>&nbsp;"   
response.write "<a href=?page="&Allpage&"&ts="&ts&">尾页</a>&nbsp;"     
end if
%>  
                    </td>
                </tr>
              </table>


 <%end if
 rsbo.close
 set rsbo=nothing%>       
<table class="font_10_e_black" cellSpacing="0" cellPadding="3" width="100%" align="center" border="0" id="table173">
     <form name="myform" method="POST" action="gbookchk.asp">
            <tr bgcolor="#FAFAFA">
              <td height="17" colspan="4" bgcolor="#D9EBE5"><span class="p10t">　发表发馈信息：</span></td>
            </tr>
            <tr>
              <td height="1" colspan="4">
              </td>
            </tr>
                            <tr>
                              <td width="62" class="p9t"><p align="left">类型</td>
                              <td width="425" class="p9t"><select size="1" style="BACKGROUND-COLOR: #eeeeee; BORDER-BOTTOM: #FFFFFF 1px solid; BORDER-LEFT: #a2a2a2 1px solid; BORDER-RIGHT: #ffffff 1px solid; BORDER-TOP: #a2a2a2 1px solid; COLOR: #333333; FONT-SIZE: 9pt; HEIGHT: 19px;" name="gbook">
                                  <option value="0">《 普通问题 》</option>
                                  <option  <%if ts="1" then%> selected <%end if%> value="1">《 投诉留言 》</option>
                              </select></td>
                            </tr>
                            <tr>
                              <td width="62" class="p9t"><p align="left">用户：</td>
                              <td width="425" class="p9t">
                      <font color="#FF0000">
                      <input type="hidden" name="username" size="24" value="<%=username%>"><%=username%>
						</font></td>
                            </tr>
                            <tr>
                              <td class="p9t"><p align="center">
                              内容                              <td>
									<textarea class="textarea" style="BACKGROUND-COLOR: #eeeeee; BORDER-BOTTOM: 1px solid #FFFFFF; BORDER-LEFT: 1px solid #a2a2a2; BORDER-RIGHT: 1px solid #ffffff; BORDER-TOP: 1px solid #a2a2a2; COLOR: #333333; FONT-SIZE: 9pt; HEIGHT: 62;width:395" onfocus="this.value=''" name="memo" rows="6" cols="38">欢迎给我们留言，你的建议和投诉都会帮助我们的工作。</textarea>
								</td>
                            </tr>
                            <tr>
                              <td width="62">　</td>
                              <td>
								<table width="100%"  border="0" cellspacing="0" cellpadding="0" id="table174" height="19">
                                  <tr>
                                    <td height="19"><div align="center">
                                      <input class="inputb" border="0" name="I1" type="submit" value="确认留言">
                                    </div></td>
                                    <td><div align="center">
                                      <input name="I2" type="reset" class="inputb" id="I2" value="取消留言" border="0">
                                    </div></td>
                                  </tr>
                                </table>
</td>
                            </tr>
                          </form>
                      </table>
 </td>
						</tr>
					</table>
					</td>
				</tr>
			</table>
			</td>
			</tr>

</table>
<%rsuser.close
set rsuser=nothing%>
</div>

</body>
<!--#include file="userbottom.asp"--></body></html>