showuser.asp

可以做论坛

<!--#include file="top.asp"-->
<!--#include file="conn.asp"-->
<!--#include file="bottom.asp"-->
<!--#include file="gongneng.asp"-->
<!--#include file="asptbfunction.asp"-->

<%
Response.Write "<table width=775 border=0 align=center cellspacing=0 class=td4><tr><td>·<a href=./><font color=#F6F6F6>首页</font></a>>>>查看会员信息</td></tr></table>"
if ujibie>0 then '不是会员不能看
idy=request.querystring("idy")
idy=Trim(idy)
nemerstr=idy
call ornonemer(nemerstr,nonemer)
if idy="" or nonemer>0 then 'idy号为空
Response.Write "<table width=775 border=0 align=center cellspacing=0><tr><td>"
Response.Write"参数错误"
Response.Write "</td></tr></table>"
else 'idy号不为空
cnuser="select * from user  where idy="&idy&"" 
set rsuser=server.createobject("adodb.recordset")
rsuser.open cnuser,conn,1,1
if rsuser.eof then '找不到这个用户
Response.Write"找不到这个用户"
else'找不到这个用户
uduser=rsuser("user")
udutime=rsuser("time")
uddltime=rsuser("dltime")
udbm=rsuser("bm")
udemail=rsuser("email")
udxingbie=rsuser("xingbie")
udgeren=rsuser("geren")
udage=rsuser("age")
udqq=rsuser("qq")
udhome=rsuser("home")
udip=rsuser("ip")
if uzhiwu<1 then
call ip3(udip)
end if
udjibie=rsuser("jibie")
udjibiej=rsuser("jibiej")
udjingnian=rsuser("jingnian")
udjinqian=rsuser("jinqian")
udmeili=rsuser("meili")
udzhiwu=rsuser("zhiwu")
'职务
if udzhiwu=0 then
   udzhiwu="无职务"
   else if udzhiwu=1 then
   udzhiwu="版主"
   else if udzhiwu=100 then
   udzhiwu="管理员"
   end if
   end if
   end if
'职务结束
udweiwang=rsuser("weiwang")
udhaoyou=rsuser("haoyou")
udqingren=rsuser("qingren")
udlaopo=rsuser("peiou")
udtieshu=rsuser("tieshu")
udhuitie=rsuser("huitie")
udshantie=rsuser("shantie")
udulock=rsuser("ulock")

%>
<table width=775 border="0" align="center" cellspacing="2">
  <tr>
    <td><table width="100%" border="0" align="center" cellspacing="0" class="160b">
        <tr> 
          <td>昵称</td>
          <td><%=udbm%></td>
          <td>级别</td>
          <td><%=udjibie%></td>
          <td>魅力</td>
          <td><%=udmeili%></td>
          <td>发贴数</td>
          <td><%=udtieshu%></td>
        </tr>
        <tr> 
          <td>性别</td>
          <td><%=udxingbie%></td>
          <td>级别积分</td>
          <td><%=udjibiej%></td>
          <td>威望</td>
          <td><%=udweiwang%></td>
          <td>回贴数</td>
          <td><%=udhuitie%></td>
        </tr>
        <tr> 
          <td>年龄</td>
          <td>
		  <%
		  if udage="" then
		  Response.Write"不想告诉你"
		  else 
		  Response.Write""& udage &""
		  end if
		  %></td>
          <td>经验</td>
          <td><%=udjingnian%></td>
          <td>职务</td>
          <td><%=udzhiwu%></td>
          <td>被删数</td>
          <td><%=udshantie%></td>
        </tr>
        <tr> 
          <td>qq号码</td>
          <td>
		  <%
		  if udqq="" then
		  Response.Write"不想告诉你"
		  else 
		  Response.Write""& udqq &""
		  end if
		  %>
		  </td>
          <td>金钱</td>
          <td><%=udjinqian%></td>
          <td>注册时间</td>
          <td><%=udutime%></td>
          <td>注册IP</td>
          <td><%=udip%></td>
        </tr>
        <tr> 
          <td>Email</td>
          <td>
		  <%
		  if udemail="" then
		  Response.Write"不想告诉你"
		  else 
		  Response.Write""& udemail &""
		  end if
		 
		  %></td>
          <td>&nbsp;</td>
          <td>&nbsp;</td>
          <td>最后登陆时间</td>
          <td><%=uddltime%></td>
          <td>&nbsp;</td>
          <td>&nbsp;</td>
        </tr>
        <tr> 
          <td>个人网站</td>
          <td colspan="7">
		  <%
		  if udhome="" then
		  Response.Write"没有"
		  else 
		  Response.Write""& udhome &""
		  end if
		 
		  %></td>
        </tr>
        <tr> 
          <td>个人介绍</td>
          <td colspan="7">
		  <%
		  if udgeren="" then 
		  Response.Write"不告诉你"
		  else
		  Response.Write""& udgeren &""
		  end if
		  %></td>
        </tr>
        <tr> 
          <td>好朋友</td>
          <td colspan="7">
		  <%
		  if udhaoyou="0" then
		  Response.Write"还没好朋友"
		  else 
		  Response.Write""& udhaoyou &""
		  end if
		  %></td>
        </tr>
        <tr> 
          <td>情人</td>
          <td colspan="7">
		  <%
		  if udqingren="0" then
		  Response.Write"还没情人"
		  else 
		  Response.Write""& udqingren &""
		  end if
		  %></td>
        </tr>
        <tr> 
          <td>配偶</td>
          <td colspan="7">
		  <%
		  if udlaopo="0" then
		  Response.Write"还没配偶"
		  else 
		  Response.Write""& udlaopo &""
		  end if
		  %></td>
        </tr>
      </table>
    </td>
  </tr>
</table>

<%
end if '找不到这个用户
end if 'idy号为空
else '不是会员
Response.Write "<table width=99% border=0 align=center cellspacing=0 class=130b><tr><td>"
Response.Write"你还未登陆不能查看会员信息"
Response.Write "</td></tr></table>"
end if'不是会员
Response.Write"<table width=99% border=0 align=center cellspacing=0 class=tableguang1><tr> <td class=biaotibg>&nbsp;</td></tr></table>"
Response.Write""&asptbcopy&""
%>