<!--#include file="top.asp"-->
<!--#include file="hack.asp"-->
<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>16 ){
            alert("问题标题在5-16字之间！");
            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">
							<a target="_blank">
							<img height="44" src="images/fuwu1.gif" width="147" border="0"></a></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">
					<table cellSpacing="0" cellPadding="0" width="96%" align="center" border="0" id="table43">
						<tr>
							<td width="56%" style="font-size: 12px" valign="top">
							<table cellSpacing="2" cellPadding="0" width="87%" border="0" id="table44">
								<tr>
									<td style="font-size: 12px" valign="top">
									<div align="center">

									<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 8 * from [FOX_xinxi] where yz=1 and tj=1 and youxiao>0 and ok=1 order by fbsj desc"
rsbo.open sqlbo,conn,1,1%>
<%if rsbo.eof then%>
										<tr>
											<td class="xiaxian" width="100%">还没有！</td>
										</tr>
<%else
do while not rsbo.eof%>
<%dim rsfo,sqlfo,class2c
set rsfo=server.createobject("adodb.recordset")
sqlfo="select class2 from [FOX_class2] where id="&rsbo("class2")&""
rsfo.open sqlfo,conn,1,1
class2c=rsfo("class2")
rsfo.close
set rsfo=nothing%>
										<tr>
											<td class="xiaxian" width="100%">
											<font color="#CC3300">·</font>[<a class="scap1" href="wen.asp?class1=<%=rsbo("class2")%>&fox=1"><b><font color="#FF0000"><%=class2c%></font></b></a>] <a class="scap1" href="wenlist.asp?fox=<%=rsbo("id")%>"><%=rsbo("company")%></a></td>
										</tr>
<%aej=aej+1
if aej>=8 then exit do
rsbo.movenext
loop
end if
rsbo.close
set rsbo=nothing%>
										</table>
									</div>
									</td>
								</tr>
								<tr>
									<td style="font-size: 12px">
									<img height="38" src="images/fuwu-leibie2.gif" width="322"></td>
								</tr>
								<tr>
									<td style="font-size: 12px">
									<table cellSpacing="4" cellPadding="0" width="95%" align="center" border="0" id="table66">
<%dim aej1
set rsbo=server.createobject("adodb.recordset")
sqlbo="select top 16 * from [FOX_xinxi] where yz=1 and ok=0 and youxiao>0 order by fbsj desc"
rsbo.open sqlbo,conn,1,1%>
<%if rsbo.eof then%>
										<tr>
											<td class="xiaxian" width="100%">还没有！</td>
										</tr>
<%else
do while not rsbo.eof%>
<%
set rsfo=server.createobject("adodb.recordset")
sqlfo="select class2 from [FOX_class2] where id="&rsbo("class2")&""
rsfo.open sqlfo,conn,1,1
class2c=rsfo("class2")
rsfo.close
set rsfo=nothing%>
										<tr>
											<td class="xiaxian" width="100%">
											<font color="#CC3300">·</font>[<a class="scap1" href="wen.asp?class1=<%=rsbo("class2")%>&fox=1"><b><font color="#FF0000"><%=class2c%></font></b></a>] <a class="scap1" href="wenlist.asp?fox=<%=rsbo("id")%>"><%=rsbo("company")%></a></td>
										</tr>
<%aej1=aej1+1
if aej1>=16 then exit do
rsbo.movenext
loop
end if
rsbo.close
set rsbo=nothing%>
										</table>
									</td>
								</tr>
							</table>
							</td>
							<td width="100%" style="font-size: 12px" valign="top">
							<table cellPadding="0" width="100%" border="0" id="table57">
								<tr>
									<td style="font-size: 12px">
									<img border="0" src="images/fuwu-leibie21.gif" width="200" height="38"></td>
								</tr>
								<tr>
									<td style="font-size: 12px">
									<div align="center">
									<table cellSpacing="0" cellPadding="3" width="100%" border="0" id="table66">
<%dim aej2
set rsbo=server.createobject("adodb.recordset")
sqlbo="select top 26 * from [FOX_xinxi] where yz=1 and ok=1 and youxiao>0 order by fbsj desc"
rsbo.open sqlbo,conn,1,1%>
<%if rsbo.eof then%>
										<tr>
											<td class="xiaxian" width="100%">还没有！</td>
										</tr>
<%else
do while not rsbo.eof%>
<%
set rsfo=server.createobject("adodb.recordset")
sqlfo="select class2 from [FOX_class2] where id="&rsbo("class2")&""
rsfo.open sqlfo,conn,1,1
class2c=rsfo("class2")
rsfo.close
set rsfo=nothing%>
										<tr>
											<td class="xiaxian" width="100%">
											<font color="#CC3300">·</font> <a class="scap1" href="wenlist.asp?fox=<%=rsbo("id")%>"><%=rsbo("company")%></a></td>
										</tr>
<%aej2=aej2+1
if aej2>=26 then exit do
rsbo.movenext
loop
end if
rsbo.close
set rsbo=nothing%>
										</table>
									</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="addwen.asp">
								<tr>
									<td>
									<textarea  class="button02" rows="2" onkeyUp="textLimitCheck1(this, 16);" name="company" cols="20"></textarea>&nbsp;<font color="#FF0000">*</font><br><font color=#666666>限 5-16 个字符  已输入 <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">
									<a target="_blank" style="text-decoration: none; color: #000000" href="http://61.156.25.12/bianmin/helpPeople.htm">
									<img height="32" src="images/bm111.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="table63">
										<tr>
											<td style="font-size: 12px">
													<%
dim Nclasslie,sql,classlie,classid,id
Set Nclasslie =Server.CreateObject("ADODB.Recordset") 
sql="select * from FOX_class1"        
Set classlie = Server.CreateObject("ADODB.Recordset")                          
classlie.open sql,conn,1,1
if not classlie.eof then
do while not classlie.eof
classid=classlie("id")%> 
<div align="center">
<TABLE width=100% border=0 cellpadding="0" cellSpacing=1 bgColor=#FFFFFF style="border-collapse: collapse">
  <TBODY>
    <TR bgcolor="#fafafa">
      <TD height="24" colspan="6">
		<table cellSpacing="0" cellPadding="0" width="100%" border="0" id="table63" height="26">
			<tr>
				<td valign="bottom" width="21">
				<img border="0" src="images/icn_point.gif" width="16" height="16"></td>
				<td valign="bottom"><a class="scap1" href=wen.asp?class1=<%=classid%>&fox=1><b><%=classlie("class1")%></b></a>
          <%
                dim rs
                set rs=conn.execute("select count(id) from [FOX_xinxi] where class1="&classid&"")
                %>
        [<%=rs(0)%>]
</td>
			</tr>
			</table>
 </TD>
    </TR>
    <%
        sql="select * from [FOX_class2] where class1="&classid  
		Nclasslie.open sql,conn,1,1  
		do while not Nclasslie.eof
		%>
    <TR bgcolor="#f7f7f7">
      <TD height="21" align=center vAlign=middle><%if not Nclasslie.eof then%>
          <a class="scap1" href=wen.asp?class1=<%=classid%>&class2=<%=Nclasslie("id")%>&fox=2><%=Nclasslie("class2")%></a>
          <%
              set rs=conn.execute("select count(id) from [FOX_xinxi] where class1="&classid&" and class2="&Nclasslie("id")&"")
              response.write "["&rs(0)&"]"
              Nclasslie.movenext
              end if%>
      </TD>
       </TR>
    <%
loop               
Nclasslie.Close               
%>
  </TBODY>
</TABLE>
</div>
<%
classlie.movenext               
loop  
end if  
classlie.close  
set classlie=nothing  
set Nclasslie=nothing 
%>
											</td>
										</tr>
									</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"-->