<!--#include file="top.asp"-->
<!--#include file="usercookies.asp"-->
<%function HTMLEncode(fString)
if not isnull(fString) then
    fString = replace(fString, ">", "&gt;")
    fString = replace(fString, "<", "&lt;")
    fString = Replace(fString, CHR(32), "&nbsp;")
    fString = Replace(fString, CHR(9), "&nbsp;")
    fString = Replace(fString, CHR(34), "&quot;")
    fString = Replace(fString, CHR(39), "&#39;")
    fString = Replace(fString, CHR(13), "")
    fString = Replace(fString, CHR(10) & CHR(10), "</P><P> ")
    fString = Replace(fString, CHR(10), "<BR> ")
    HTMLEncode = fString
end if
end function
dim ok
ok=trim(request("ok"))

dim ThisPage,Pagesize,Allrecord,Allpage,tj

if request("page")="" then
  ThisPage=1		
else
  ThisPage=request("page")
end if
%><head>
<title>我的回答--<%=title%>--百问百答</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK HREF="fox.css" REL="stylesheet" TYPE="text/css">
</head>

<body>
<script LANGUAGE=JavaScript>
  function textLimitCheck1(thisArea, maxLength){
    if (thisArea.value.length > maxLength){
      alert(maxLength + ' 个字限制. \r超出的将自动去除.');
      thisArea.value = thisArea.value.substring(0, maxLength);
      thisArea.focus();
    }
    /*回写span的值，当前填写文字的数量*/
    messageCount1.innerText = thisArea.value.length;
  }
  </script>
<script language="JavaScript">
  function checkinput(){

        	if(form_fox.company.value.length<5 || form_fox.company.value.length>30 ){
            alert("问题内容在5-30字之间！");
            form_fox.company.focus();
            return false;
        }
 }
</script>
<div align="center">
	<table border="0" width="760" id="table31" cellspacing="0" cellpadding="0">
		<tr>
			<td width="570" valign="top">
		<div align="right">
			<table cellSpacing="0" cellPadding="0" width="570" border="0" id="table40">
				<tr>
					<td width="100%" style="font-size: 12px">
					<table cellSpacing="0" cellPadding="0" width="100%" border="0" id="table41">
						<tr>
							<td width="24%" style="font-size: 12px">
							<img border="0" src="images/wodeh.gif" width="147" height="44"></td>
							<td width="69%" background="images/fuwubg2.gif" style="font-size: 12px">
							<table cellSpacing="0" cellPadding="0" width="104%" border="0" id="table42">
								<tr>
									<td style="font-size: 12px">　</td>
								</tr>
								<tr>
									<td height="10" style="font-size: 12px">
									<div class="style10" align="right">
										<marquee onmouseover="this.stop()" onmouseout="this.start()" scrollAmount="2" hspace="4" vspace="5" scrollDelay="80" width="100%"><%=tong%></marquee></div>
									</td>
								</tr>
							</table>
							</td>
							<td width="7%" style="font-size: 12px">
							<img height="44" src="images/fuwu3.gif" width="40"></td>
						</tr>
					</table>
					</td>
				</tr>
				<tr>
					<td background="images/fuwubgg.gif" height="64" style="font-size: 12px" align="center">
					<table border="1" width="96%" id="table67" bordercolorlight="#FF9005" bordercolordark="#FFA613" style="border-collapse: collapse" cellpadding="5" cellspacing="5">
						<tr>
							<td bgcolor="#FF8915" align="center">
							<a href="myhf.asp?ok=0">未评回复</a></td>
							<td bgcolor="#FF8915" align="center">
							<a href="myhf.asp?ok=1">评为推荐</a></td>
						</tr>
						<tr>
							<td bgcolor="#FFFFFF" colspan="3">
							<table border="0" width="100%" id="table171" cellspacing="0" cellpadding="0">
								<tr>
									<td>回复内容</td>
									<td width="38">对应</td>
									<td width="38">状态</td>
									<td width="53">回复时间</td>
								</tr>
							</table>
							</td>
						</tr>
					</table>
					<table cellSpacing="0" cellPadding="0" width="96%" align="center" border="0" id="table43">
						<tr>
							<td width="100%" style="font-size: 12px">
							<table cellPadding="0" width="100%" border="0" id="table44">
								<tr>
									<td style="font-size: 12px" valign="top">
									<div align="center">
<%dim rsfoxf,sqlfoxf
tj=1
set rsfoxf=server.createobject("adodb.recordset")
 sqlfoxf="SELECT * FROM FOX_hf where username='"&rsuser("username")&"' and"
  If ok<>"" Then sqlfoxf=sqlfoxf&" ok="&ok&" and"

' if right(sqlfoxf,5)="where" then sqlfoxf=left(sqlfoxf,clng(len(sqlfoxf))-5)
 if right(sqlfoxf,3)="and" then sqlfoxf=left(sqlfoxf,clng(len(sqlfoxf))-3)
 sqlfoxf=sqlfoxf&" order by hfsj desc"
 rsfoxf.Open sqlfoxf,conn,1,3
 rsfoxf.Pagesize=18
Pagesize=rsfoxf.Pagesize
Allrecord=rsfoxf.Recordcount
Allpage=rsfoxf.Pagecount
if ThisPage<1 then                           
ThisPage=1                           
end if
On Error Resume Next
rsfoxf.move (ThisPage-1)*Pagesize
if rsfoxf.eof then
response.write "暂时没有！"
else
%>
<table width="100%" border="1" cellpadding="0" cellspacing="0" bordercolor="#C0C0C0" style="border-collapse: collapse" id="table169" bordercolorlight="#FF8915" bordercolordark="#FF8915">

            <%do while not rsfoxf.eof%>
            
            <tr>
              <td height="22" width="4%" bgcolor="#FF9005">
              <a href="delhf.asp?id=<%=rsfoxf("id")%>&username=<%=rsfoxf("username")%>">删</a></td>
              <td height="22" width="71%">
              <%=HTMLEncode(left(rsfoxf("neirong"),50))%></td>
              <td height="22" width="8%" bgcolor="#FF9005">
              　<a href="wenlist.asp?fox=<%=rsfoxf("xxid")%>"><%=rsfoxf("xxid")%></a></td>
              <td height="22" width="7%">
              　<%if rsfoxf("ok")=1 then%><img src="images/icn_ok.gif"><%else%><img src="images/icn_time.gif"><%end if%></td>
              <td height="22" width="11%">
              　<%=month(rsfoxf("hfsj"))%>-<%=day(rsfoxf("hfsj"))%></td>
            </tr>
            <%
        tj=tj+1
        if tj>=Pagesize then exit do
        rsfoxf.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="163" class="p9t"><p align="center"> 
					<font color="#CC5200"><%=Pagesize%></font> 条/页 &nbsp;共 <font color="#CC5200"><%=Allrecord%></font> 条记录</td>
                  <td height="25" width="103" class="p9t"><p align="center">共 <font color="#CC5200"><%=Allpage%></font> 页</td>
                  <td height="25" width="78" 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&class1="&class1&"&class2="&class2&">首页</a>&nbsp;"
response.write "<a href=?page="&ThisPage-1&"&class1="&class1&"&class2="&class2&">上一页</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)&"&class1="&class1&"&class2="&class2&">下一页</a>&nbsp;"   
response.write "<a href=?page="&Allpage&"&class1="&class1&"&class2="&class2&">尾页</a>&nbsp;"     
end if
%>  
                    </td>
                </tr>
              </table>


 <%end if
 rsfoxf.close
 set rsfoxf=nothing%>  

									</div>
									</td>
								</tr>
								</table>
							</td>
						</tr>
					</table>
					</td>
				</tr>
				<tr>
					<td style="font-size: 12px">
					<img height="12" src="images/fuwu4.gif" width="570"></td>
				</tr>
			</table>
		</div>
			<p>　</td>
			<td width="15">　</td>
			<td valign="top">
							<table cellSpacing="0" cellPadding="0" width="89%" border="0" id="table49">
								<tr>
									<td style="font-size: 12px">
									<a target="_blank" style="text-decoration: none; color: #000000" href="http://61.156.25.12/bianmin/helpPeople.htm">
									<img height="32" src="images/bm1.gif" width="165" border="0"></a></td>
								</tr>
								<tr>
									<td background="images/bm2.gif" style="font-size: 12px">
									<table cellSpacing="6" cellPadding="0" width="100%" border="0" id="table50">
										<tr>
											<td style="font-size: 12px">
											<table cellSpacing="3" cellPadding="0" width="100%" border="0" id="table51">
											<tr class="xiaxian">
													<td style="font-size: 12px" colspan="2">
													<font color="#CC3300"><%=username%></font></td>
												</tr>
<%if rsuser.eof then%>
											<tr class="xiaxian">
													<td style="font-size: 12px">
													<font color="#CC3300">你非知道会员</font>
													　</td>
													<td style="font-size: 12px">
													<a href="regchk.asp?username=<%=username%>">成为知道会员</a>
													　</td>
												</tr>
<%else%>
											<tr class="xiaxian">
													<td style="font-size: 12px">
													<font color="#CC3300">知道会员</font>
													　</td>
													<td style="font-size: 12px">现积 <font color="#FF0000"><%=rsuser("zhidaojf")%></font> 分
													　</td>
												</tr>
<%end if%>
											</table>
											</td>
										</tr>
									</table>
									</td>
								</tr>
								<tr>
									<td style="font-size: 12px">
									<img height="7" src="images/bm3.gif" width="165"></td>
								</tr>
							</table>
							<table border="0" width="100%" id="table65" cellpadding="0" cellspacing="3">
	<form name="form_fox" onsubmit="return checkinput()" method="post" action="addmyhf.asp">
								<tr>
									<td>
									<textarea  class="button02" rows="3" onkeyUp="textLimitCheck1(this, 30);" name="company" cols="20"></textarea>&nbsp;<font color="#FF0000">*</font><br><font color=#666666>限 5-30 个字符  已输入 <font color="#CC0000"><span id="messageCount1">0</span></font> 个</font></td>
								</tr>
								<tr>
									<td>
			<input class="inputb" border="0" name="I5" type="submit" value="提交问题"></td>
								</tr></form>
							</table>
							<table cellSpacing="0" cellPadding="0" width="89%" border="0" id="table62">
								<tr>
									<td style="font-size: 12px">
									<img border="0" src="images/bm11.gif" width="165" height="32"></td>
								</tr>
								<tr>
									<td background="images/bm2.gif" style="font-size: 12px">
									　<table cellSpacing="4" cellPadding="0" width="95%" align="center" border="0" id="table66">
<%dim rsbo,sqlbo,aej
set rsbo=server.createobject("adodb.recordset")
sqlbo="select top 10 * from [FOX_xinxi] where youxiao<5 and yz=1 order by fbsj asc"
rsbo.open sqlbo,conn,1,1%>
<%if rsbo.eof then%>
										<tr>
											<td class="xiaxian" width="100%">还没有！</td>
										</tr>
<%else
do while not rsbo.eof%>

										<tr>
											<td class="xiaxian" width="100%">
											<font color="#CC3300">·</font> <a class="scap1" href="wenlist.asp?fox=<%=rsbo("id")%>"><%=rsbo("company")%></a></td>
										</tr>
<%aej=aej+1
if aej>=10 then exit do
rsbo.movenext
loop
end if
rsbo.close
set rsbo=nothing%>
										</table></td>
								</tr>
								<tr>
									<td style="font-size: 12px">
									<img height="7" src="images/bm3.gif" width="165"></td>
								</tr>
							</table>
							</td>
		</tr>
	</table>
</div>
</body>
<!--#include file="bottom.asp"-->