list_little.asp

类似于baidu的百度知道

<table cellSpacing=0 cellPadding=0 width="100%" border=0>
  <tr>
    <td height=22>&#8226; <a href="user.asp?lei=mywen" target="_blank">我的提问</a></td>                
    <td>&#8226; <a href="user.asp" target="_blank">个人中心</a></TD>                
  </tr>
  <tr>
    <td>&#8226; <a href="user.asp?lei=myda" target="_blank">我的回答</a></td>                
    <td>&#8226; <a href="Exit.asp">退出</a><%rs.close%></td>           
  </tr>
  <%end if%><%if session("person")="" then%><tr><form method=post action=List_Big.asp?id=<%=id%>><td align="center" valign="top">
	<p>用&nbsp;户: <input name="name" type="text" id="name" size="12" class="ip22"><br>密&nbsp;码: <input name="pwd" type="password" id="pwd" size="12" class="ip22"><br>验证码:<input type="text" size=3 maxlength=4 name=verifycode class="ip22"> <%Call GetSafeCode%><br><input class="ip2" name="login" type="submit" id="login" value="登录">&nbsp;&nbsp;          
    <a href="Reg.asp">注册</a>
</td></form><%end if%></tr>
</table>
<tr>
                    <td width="100%" height="10"></td>
                  </tr>
                </table>
              </div>
            </td>
          </tr>
          <tr>
            <td width="100%" valign="top">
              <div align="right">
                <table border="0" width="95%" cellspacing="0" cellpadding="0">
                  <tr><%rs2.open"select * from gonggao where flid=2 order by time desc",conn,1,1
                  if rs2.eof then
                  rs3.open"select * from gonggao where flid=1 order by time desc",conn,1,1
                  if rs3.eof then
                  gonggao="暂时未有公告"
                  else
                  gonggao=rs3("text")
                  end if
                  rs3.close
                  else
                  gonggao=rs2("text")
                  end if
                  rs2.close
                  %>
                    <td valign=center ><%=gonggao%></td>
                  </tr>
                </table>
              </div>
            </td>
          </tr>
        </table>
</td>
	</tr>
</table>
<br></td>
	</tr>
</table>
		</td>
	</tr>
</table>
<br>
<table border="0" width="100%" cellspacing="0" cellpadding="0" class="t1">
	<tr>
		<td>
<table border="0" width="100%" cellspacing="0" cellpadding="0">
	<tr><%
rs3.open"select top 5 * from zhuanjia where flid="&shu&" order by fljifen desc",conn,1,1
if rs3.eof then
gengduo=""
else
gengduo="<a class=lmore href=List_ZhuanJia.asp?id="&id&" target=_blank>更多&gt;&gt;</a>"
end if
%>

		<td height="36" align="center" onmouseover="this.className='tbb'" onmouseout="this.className='taa'" class="taa"><strong>分类专家</strong></td>
	</tr>
	<tr>
		<td align=center><br>
<table border="0" width="95%" cellspacing="0" cellpadding="0">
	<tr>
		<td><table border="0" width="98%" cellspacing="0" cellpadding="0">
	<tr>
<td>
<table border="0" width="100%" cellspacing="0" cellpadding="0">
                          <tr>
 <td>
<table border="0" width="100%" cellspacing="0" cellpadding="0">
  <tr>
    <td width="100%">
      <table class="zhtable" cellSpacing="0" cellPadding="0"border="0">
        <tbody><%
        while NOT rs3.EOF
        rs.open"select * from person where name='"&rs3("user")&"'",conn,1,1
        if rs.eof then%>暂时没有专家
        <%rs.close
        else
jf=rs("jifen")
rs.close
end if
        %>
          <tr>
            <td><a href=Show_User.asp?name=<%=rs3("user")%> target=_blank><%=rs3("user")%></a></td>
            <td width="70"><font color="red" size="3">↑</font><%=jf%></td>
          </tr><%rs3.movenext 
          wend%>
        </tbody>
      </table></td>
<tr><td align="right">
      <%=gengduo%></td>
  </tr></tr><%rs3.close%>
</table>


</td>
                          </tr>
                        </table>
                        </td>
	</tr>
</table></td>
	</tr>
</table>
<br></td>
	</tr>
</table>
		</td>
	</tr>
</table>
<br>
<table border="0" width="100%" cellspacing="0" cellpadding="0" class="t1">
	<tr>
		<td>
<table border="0" width="100%" cellspacing="0" cellpadding="0" height="100%">
	<tr>
		<td height="36" align="center" onmouseover="this.className='tbb'" onmouseout="this.className='taa'" class="taa"><strong>本类共享资料</strong></td>
	</tr>
	<tr>
		<td align=center><br>
<%if gx=1 then%><table border="0" width="98%" cellspacing="0" cellpadding="0">
	<tr>
<td>
<table border="0" width="100%" cellspacing="0" cellpadding="0">
  <tr>
                    <td width="100%" height="14">

                        <table border="0" width="100%" cellspacing="0" cellpadding="0">
                          <tr>
 <td>
<table border="0" width="100%" cellspacing="0" cellpadding="0">
  <tr>
    <td width="100%">
      <table class="zhtable" cellSpacing="0" cellPadding="0" border="0">
        <tbody>
        <%rs3.open"select top 5 * from Share where flid="&id&"",conn,1,1
        if rs3.eof then%>本类暂时没有共享资料
        <%rs3.close
        else
        while NOT rs3.EOF
        %>
          <tr>
            <td class="ln23"><a href=Share_View.asp?id=<%=rs3("id")%> target=_blank><%=rs3("ftitle")%></a></td>
          </tr>
          <%rs3.movenext 
          wend
          rs3.close
          end if%>
        </tbody>
      </table>
      <p align="right">
      <a href=List_Share.asp?id=<%=id%> target=_blank>更多&gt;&gt;</a><br><a href="User_Share_Add.asp" target="_blank">我要上传</a></td>
  </tr>
</table>
<%end if%>

</td>
                          </tr>
                        </table>
                    </td>
                  </tr>
</table>

</td>
	</tr>
</table>
<br></td>
	</tr>
</table>
		</td>
	</tr>
</table>
<br>
<table border="0" width="100%" id="table3" cellspacing="0" cellpadding="0">
					<tr>
						<td><table border="0" width="100%" cellspacing="0" cellpadding="0" class="t1">
	<tr>
		<td>
<table border="0" width="100%" cellspacing="0" cellpadding="0" height="100%">
	<tr>
		<td height="36" align="center" onmouseover="this.className='tbb'" onmouseout="this.className='taa'" class="taa"><strong>快捷问答</strong></td>
	</tr>
	<tr>
		<td align=center><br>
<table border="0" width="98%" cellspacing="0" cellpadding="0">
	<tr>
<td>
<div align="center">
<table border="0" cellspacing="0" cellpadding="0">
       <tr>
        <form name=fbop method=post action=Search.asp>
          <td nowrap height="26">
			<p align="center">
			<input name="content" type="text" id="content" value="<%=HTMLcode(request("content"))%>" size="21" class="ip22"></td> 
        </tr>
       <tr>
          <td height="29">&nbsp;<input class="ip2" type="submit" name="Submit" value="搜索答案">&nbsp;&nbsp;     
            <span><font color="#ffffff"><input class="ip2" onclick="ask(fbop);" type="button" value="我要提问"></font></span></td>
       </tr></form>
      </table>
      </div>
      </td>
	</tr>
</table>
<br></td>
	</tr>
</table>
		</td>
	</tr>
</table>
<br>
</td>
</tr>
</table>
</td>
	</tr>
</table><br>
<!--#include file=end.asp-->
<%else%>
参数错误!
<%
end if
%><%
Set rs=nothing
Set rs1=nothing
Set rs2=nothing
Set rs3=nothing
conn.Close
set conn=nothing
%>