index.asp

完整的九洲问吧。优秀的问答网站。由ASP+Access开发。

      </tr></table>
<!--结束登录框-->
<div class="magBtm12"><a href="send.asp"><img src="img/btn_zdcq.gif" width="170" height="40" border="0"/></a></div>

<table width="100%" border="0" cellspacing="0" cellpadding="0" class="magBtm12 zhtable">
<tr><td class="bgtleYl" nowrap>公告区</td></tr>
<tr> <td class="bgcntBor3Yl f14">
&#8226; <a href="help.asp" target=_blank class="gn">如何使用问吧</a><br>               
&#8226; <a href="userexpert.asp" target=_blank>网友专家团</a><br><%rs2.open"select top 8 * from gonggao where flid=0 order by time desc",conn,1,1     
	  if rs2.eof then%><%else
	  while not rs2.eof
	  %>&#8226; <a href="gonggao.asp?id=<%=rs2("id")%>" target=_blank><%=rs2("title")%></a><br>     
	  <%rs2.movenext
	  wend
	  end if
	  rs2.close%>
	  </td></tr>
</table>

    <table width="100%" border="0" cellspacing="0" cellpadding="0" class="magBtm12 zhtable">
<tr><td class="bgtleYl" nowrap><%=webname%>之星</td></tr><%rs.open"select top 1 * from person order by jifen desc",conn,1,1
	  if rs.eof then%>未有问吧之星<%
	  rs.close
	  else
	  while not rs.eof%>
<tr><td class="bgcntBor3Yl"><a href="showperson.asp?id=<%=rs("id")%>" target=_blank><%=rs("name")%></a><br>
<%=rs("touxian")%><br>  
(<%=rs("jifen")%>) <br>
专精领域：<%rs2.open"select top 1 * from zhuanjia where user='"&rs("name")&"' order by fljifen desc",conn,1,1
if rs2.eof then%>未有专精领域<%
	  rs2.close
	  else
flid1=rs2("flid")
rs2.close
rs2.open"select * from assort where id="&flid1&"",conn,1,1
lingyu=rs2("topic")
rs2.close
end if
%><a href="assort1.asp?id=<%=flid1%>"><%=lingyu%></a><br>
精选回答：<br><%rs2.open"select top 3 * from reply where replyer='"&rs("name")&"' and isdeal=1 order by replytime desc",conn,1,1
while not rs2.eof
rs3.open"select * from question where id="&rs2("replyid")&"",conn,1,1
%>
<a href="showquestion.asp?id=<%=rs2("replyid")%>" target="_blank"><%=rs3("title")%></a><br>            
<%
rs3.close
rs2.movenext
	  wend
rs2.close
rs.movenext
	  wend
	  rs.close
	  end if
	  %></td>
</tr></table>
      <table width="100%" border="0" cellspacing="0" cellpadding="0" class="magBtm12 zhtable">
        <tr>
          <td class="bgtleYl" nowrap><a href="listuser.asp?lei=jifen" class="lbk">总积分排行榜</a></td>
        </tr>
        <tr>
          <td class="bgcntBor3Yl"><table width=153 border=0 cellspacing=0 cellpadding=0 >
          <%rs2.open"select top "&IndexUserpai&" * from person where jifen>0 order by jifen desc",conn,1,1
	  if rs2.eof then%>暂未有用户<%
	  rs2.close
	  else
	  while not rs2.eof
	  i=i+1
	  %>
              <tr>
                <td width="20" class="ln23" align=center><%=i%></td>
                <td class="ln23" width=102> <a href="showperson.asp?id=<%=rs2("id")%>" target="_blank"><%=rs2("name")%></a></td>
                <td width="48" class="ln23" align=center><%=rs2("jifen")%></td>
              </tr>
              <%rs2.movenext
	  wend
	  end if
	  rs2.close%>
              <tr> <td>&nbsp;</td>
                <td height="24" ><a href="listuser.asp?lei=jifen" class="lmore">更多&gt;&gt;</a></td>
	<td>&nbsp;</td>
              </tr>
          </table></td>
        </tr>
      </table>
      <table width="100%" border="0" cellspacing="0" cellpadding="0" class="magBtm12 zhtable">
        <tr>
          <td class="bgtleYl" nowrap><a href="listuser.asp?lei=new" class="lbk">最新注册用户</a></td>
        </tr>
        <tr>
          <td valign="top" class="bgcntBor3Yl"><table width=153 border=0 cellspacing=0 cellpadding=0 >
          <%rs2.open"select top "&IndexUserjin&" * from person order by time desc",conn,1,1
	  if rs2.eof then%>
          <td>暂时没有新进用户!<%
          else
	  while not rs2.eof
	  i1=i1+1
	  %>
              <tr>
              <td width="20" class="ln23" align=center><%=i1%></td>
                <td width=102 class="ln23"><a href="showperson.asp?id=<%=rs2("id")%>" target=_blank><%=rs2("name")%></a></td>
                <td width="48" align=center class="ln23"><%=rs2("jifen")%></td>
              </tr>
              <%rs2.movenext
	  wend
	  end if
	  rs2.close%>
              <tr> <td>&nbsp;</td>
                <td height="24" ><a href="listuser.asp?lei=new" class="lmore">更多&gt;&gt;</a></td>
              <td>&nbsp;</td>
              </tr>
          </table>
	</td>
        </tr>
      </table>
<table width="100%" border="0" cellpadding="0" cellspacing="0"  class="zhtable">
<tr><td valign="top" class="yelB4">
如要投诉或提出意见建议，请到<a href="/tb/t.asp?/=%BE%C5%D6%DE%CE%CA%B0%C9%CD%B6%CB%DF" target="_blank"><%=webname%>投诉吧</a>反馈。
</td></tr></table>
</div>
<div id="midContent" style="width:388px;float:right">
<table width="376" border="0" cellpadding="0" cellspacing="0">
<tr><td colspan="4" nowrap class="bgtle">新手入门</td></tr>
<tr>
<td width="80" height="97"><a href="help.asp#zn1" target="_blank">
<img src="img/p_zn1.gif" width="80" height="80" border=0></a></td>
<td width="92"><a href="help.asp#zn2" target="_blank"><img src="img/p_zn2.gif" width="92" height="80"  border=0></a></td>
<td width="92"><a href="help.asp#zn3" target="_blank"><img src="img/p_zn3.gif" width="92" height="80"  border=0></a></td>
<td width="92"><a href="help.asp#zn4" target="_blank"><img src="img/p_zn4.gif" width="92" height="80"  border=0></a></td>
</tr></table> 
<table width="376" border="0" cellpadding="0" cellspacing="0"  class="magBtm12 zhtable">
<tr> <td class="bgtle" nowrap><a href="list.asp?lei=tui" class="lbk">精彩推荐</a></td>
</tr>
<tr><td class="bgcntBor3 f14">
<%
rs.open"select top "&Indextui&" * from question where tui=1 order by id desc",conn,1,1
if rs.eof then%>
暂时未有推荐问题<br>
<%
rs.close
else
	  while not rs.eof
%>
<A href="showquestion.asp?id=<%=rs("id")%>" target=_blank><%if len(rs("title"))>30 then%><%=left(rs("title"),20)&"..."%><%else%><%=rs("title")%><%end if%></A>&nbsp;[<A class=lgy href="assort1.asp?id=<%=rs("fenleiid")%>"><%=rs("topic")%></A>]<BR>           
<%
rs.movenext
	  wend
	  rs.close
	  end if
%>
<a href="list.asp?lei=tui" class="lmore" target="_blank">更多&gt;&gt;</a></td>           
</tr></table>
<div style="margin-bottom:12px;width:376px;height:38px;border:1px solid #dc4848;background-color:#ffe9e9;font-size:14px"><a target="_blank"><img src="img/gn.gif" border="0" align="absmiddle"></a><%=welcome%></div>
<table width="376" border="0" cellpadding="0" cellspacing="0" class="zhtable">
<tr><td class="bgcntBor4 f14">
<div class=f14B><a href="list.asp?lei=weijie" class="lbk">待解决的问题</a>:</div>
<%
rs.open"select top "&Indexdaijie&" * from question where jie=0 order by id desc",conn,1,1
if rs.eof then%>
暂时未有待解决问题<br>
<%
rs.close
else
	  while not rs.eof
%>
<A href="showquestion.asp?id=<%=rs("id")%>" target=_blank><%if len(rs("title"))>30 then%><%=left(rs("title"),20)&"..."%><%else%><%=rs("title")%><%end if%></A>&nbsp;[<A class=lgy href="assort1.asp?id=<%=rs("fenleiid")%>"><%=rs("topic")%></A>]<BR>         
<%
rs.movenext
	  wend
	  rs.close
	  end if
%>
<a href="list.asp?lei=weijie" class="lmore" target="_blank">更多&gt;&gt;</a>         
<div style="padding-top:5px;padding-bottom:5px;"><hr size="1" color="#999999"></div>
<div class=f14B><a href="list.asp?lei=jie" class="lbk">新解决的问题</a>:</div>
<%
rs.open"select top "&Indexxinjie&" * from question where jie=1 order by id desc",conn,1,1
if rs.eof then%>
暂时未有新解决问题<br>
<%
rs.close
else
	  while not rs.eof
%>
<A href="showquestion.asp?id=<%=rs("id")%>" target=_blank><%if len(rs("title"))>30 then%><%=left(rs("title"),20)&"..."%><%else%><%=rs("title")%><%end if%></A>&nbsp;[<A class=lgy href="assort1.asp?id=<%=rs("fenleiid")%>"><%=rs("topic")%></A>]<BR>         
<%
rs.movenext
	  wend
	  rs.close
	  end if
%> 
<a href="list.asp?lei=jie" class="lmore" target="_blank">更多&gt;&gt;</a>         
<div style="padding-top:5px;padding-bottom:5px;"><hr size="1" color="#999999"></div>
<div class=f14B><a href="list.asp?lei=tou" class="lbk">投票中的问题</a>:</div>
<%
rs.open"select top "&Indexts&" * from question where jie=4 order by sendtime desc",conn,1,1
if rs.eof then%>
暂时未有投票中的问题<br>
<%
else
	  while not rs.eof
%>
<A href="showquestion.asp?id=<%=rs("id")%>" target=_blank><%if len(rs("title"))>30 then%><%=left(rs("title"),20)&"..."%><%else%><%=rs("title")%><%end if%></A>&nbsp;[<A class=lgy href="assort1.asp?id=<%=rs("fenleiid")%>"><%=rs("topic")%></A>]<BR>         
<%
rs.movenext
	  wend
	  rs.close
	  end if
%> 
<a href="list.asp?lei=tou" class="lmore" target="_blank">更多&gt;&gt;</a>         
<div style="padding-top:5px;padding-bottom:5px;"><hr size="1" color="#999999"></div>
<span class="f14B">其他热点:</span><br>
<a href="list.asp?lei=gaofen" target="_blank"> 高分问题</a>&nbsp;&#8226;&nbsp;<a href="list.asp?lei=re" target="_blank">热点问题</a>
</td></tr></table>
<!-- -->

</div></div>
<br>
<div id="footer"><!--#include file=end.asp--></div>
</center>
</body>
</html>
<%
Set rs=nothing
Set rs1=nothing
Set rs2=nothing
Set rs3=nothing
conn.Close
set conn=nothing
%>