list_user.asp

类似于baidu的百度知道

<!--#include file=conn.asp-->
<!--#include file="Function_QT.asp"-->
<!--#include file="Config.asp"-->
<!--#include file="md5.asp"-->
<%
if request("lei")<>"" then 
if request("lei")<>"new" and request("lei")<>"jifen" then
lei=""
else
lei=request("lei")
end if
end if
%>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=webname%>-<%if lei="" then%>最新注册用户<%elseif lei="new" then%>最新注册用户<%elseif lei="jifen" then%>总积分排行榜<%end if%></title>

<!--#include file=top.asp-->

<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr> 
<td height="24"><a href="<%=weburl%>"><%=webname%></a> &gt; <%if lei="" then%>最新注册用户<%elseif lei="new" then%>最新注册用户<%elseif lei="jifen" then%>总积分排行榜<%end if%>                 
</td>
</tr>
</table>


<table border="0" width="100%" id="table1" cellspacing="0" cellpadding="0">
	<tr>
		<td valign="top" width="200">
<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><%if session("person")<>"" then%>用户信息<%else%>用户登录<%end if%></strong></td>
	</tr>
	<tr>
		<td align=center><br>
<table border="0" width="95%" cellspacing="0" cellpadding="0">
	<tr>
<td>
<!--出现登陆框-->
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr> 
  <td>
    <%if request("login")="登录" then
jiance=request("name")
if InStr(jiance,"or")<>0 or InStr(jiance,"'")<>0 or InStr(jiance,"`")<>0 or InStr(jiance,"=")<>0 or InStr(jiance,"-")<>0 or InStr(jiance,",")<>0 or InStr(jiance,"and")<>0 then 
Response.Write "<script language=JavaScript>{alert('用户名非法！');history.back();}</script>"
Response.End 
end if
		if not IsNumeric(request("verifycode")) then
		Response.Write ("<script>alert('友情提示!\n\n验证编码必须是数字!');history.back();</script>")
		Response.end
	end if
	if (int(session("SafeCode"))<>int(request("verifycode"))) then
		Response.Write ("<script>alert('友情提示!\n\n验证编码输入错误!');history.back();</script>")
		Response.end
	end if
	  if request("name")="" then
	  response.write"<script>alert('用户名不能为空!');history.back();</script>"
	  elseif request("pwd")="" then
	  response.write"<script>alert('密码不能为空!');history.back();</script>"
	  else
	  name=request("name")
	  pwd=request("pwd")
	  rs.open"select * from person where name='"&name&"' and pwd='"&md5(pwd)&"'",conn,1,1
	  if rs.eof then
	  response.write"<script>alert('用户名或密码错误!');history.back();</script>"
	  else
	  rs3.open"select * from person where name='"&name&"'",conn,1,3
	  rs3("logintime")=now
	  rs3.update
	  rs3.close
	  session("person")=name
	  %>
	  <%end if
	  rs.close
	  end if
	  end if%>
	  
<table width="100%" border="0" cellpadding="0" cellspacing="0" class="zhtable"><%if session("person")<>"" then%>
              <tr> 
                <td >您好：<%=session("person")%> </td>
              </tr>
              <tr> 
                <td><%rs.open"select * from person where name='"&session("person")&"'",conn,1,1%> 
                  <a href="Help.asp#n5" target=_blank><%=rs("touxian")%></a> ( <%=rs("jifen")%> )</td>                 
              </tr>
      </table>
<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_User.asp?lei=<%=lei%>><td align="center" valign="top">
	<p>用&nbsp;&nbsp;户：<input name="name" type="text" id="name" size="12" class="ip22"><br>密&nbsp;&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><FONT color=#666666>(请输入图中数字)</FONT><br><input name="login" type="submit" id="login" value="登录" class="ip2">&nbsp;&nbsp;          
    <a href="Reg.asp">注册</a>
</td></form><%end if%></tr>
</table>
<tr>
                    <td width="100%" height="10"></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><%=webname%>之星</strong></td>
	</tr>
	<tr>
		<td align=center><br>
<table width="90%" border="0" cellspacing="0" cellpadding="0">
<%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><a href="Show_User.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="List_Little.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="Show_Question.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><br>
</td>
	</tr>
</table>
		</td>
	</tr>
</table>

		</td>
		<td valign="top" width="8"></td>
		<td valign="top"><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><%if lei="" then%>最新注册用户</font><%elseif lei="new" then%>最新注册用户<%elseif lei="jifen" then%>总积分排行榜<%end if%></strong></td>
	</tr>
	<tr>
		<td align=center><br>
<table border="0" width="98%" cellspacing="0" cellpadding="0">
	<tr>
<td>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr> 
<td valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="8%" height="30"><strong>排名</strong></td>
<td><strong>昵称</strong></td>
<td width="25%"><strong>级别</strong></td>
<td width="15%"><strong>总积分</strong></td>
</tr>
<%if lei="" or lei="new" then
rs.open"select top 100 * from person order by time desc",conn,1,1
elseif lei="jifen" then
rs.open"select top 100 * from person order by jifen desc",conn,1,1
end if
if rs.eof then%>暂未有用户<%else
	  while not rs.eof
	  i=i+1
	  %>
<tr>
<td class="ln28"><%=i%></td>
<td class="ln28 f14ln20"><a href="Show_User.asp?id=<%=rs("id")%>" target="_blank"><%=rs("name")%></a></td>
<td class="ln28"> <a href="Help.asp#n5" target=_blank><%=rs("touxian")%></a> </td>        
<td class="ln28"> <%=rs("jifen")%> </td>
</tr>
<%rs.movenext
	  wend
	  end if
	  rs.close%>

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


<!--#include file=end.asp-->
<%
Set rs=nothing
Set rs1=nothing
Set rs2=nothing
Set rs3=nothing
conn.Close
set conn=nothing
%>