user_main.asp

后台登陆admin.asp

if request.QueryString("id")<>"" then
  if not isInteger(request.QueryString("id")) then
    Response.Write "<script language=javascript>alert(' 参数非法！');javascript:history.back();</script>" & vbCrLf
    Response.End
  end if
end if
if request.QueryString("id")="" then
    response.write "<SCRIPT language=JavaScript>alert(' 参数非法！');javascript:history.back();</script>" & vbCrLf
    response.end
end if
iid=clng(request.QueryString("id"))
sql="select top 1 * from [User] where userid="&iid&""
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
IF rs.eof or bof Then
Response.Write "<tr><td align=Center><font color=red>Sorry！没有内容，您的操作有误，请返回！</font></td></tr>" & vbCrLf
Else  
joke=conn.execute("select count(*) from joke where tjuser='"&rs("UserName")&"'")(0)
sjoke=conn.execute("select count(*) from joke where passed=1 and tjuser='"&rs("UserName")&"'")(0)
dj=conn.execute("select count(*) from dj where tjuser='"&rs("UserName")&"'")(0)
sdj=conn.execute("select count(*) from dj where passed=1 and tjuser='"&rs("UserName")&"'")(0)
down=conn.execute("select count(*) from soft where tjuser='"&rs("UserName")&"'")(0)
sdown=conn.execute("select count(*) from soft where passed=1 and tjuser='"&rs("UserName")&"'")(0)
pic=conn.execute("select count(*) from pic where tjuser='"&rs("UserName")&"'")(0)
spic=conn.execute("select count(*) from pic where passed=1 and tjuser='"&rs("UserName")&"'")(0)
web=conn.execute("select count(*) from web where tjuser='"&rs("UserName")&"'")(0)
sweb=conn.execute("select count(*) from web where passed=1 and tjuser='"&rs("UserName")&"'")(0)
%>
<tr> 
<td colspan=3 align="Center">您正在查看 <b><font color=red><%=rs("UserName")%></font></b> 的个人资料</td>
</tr>
<tr height=30>
<td width='20%'><img src='img/user_main.gif' border=0>&nbsp;用户名称：</td>
<td width='40%'><a href="Messager.asp?action=new&touser=<%=rs("UserName")%>" title="给 <%=rs("UserName")%> 发送短消息"><b><%=rs("UserName")%></b></a></td>
<td width='40%' rowspan=5 align=center><%if rs("UserPhoto")<>"" then%><img src='<%=rs("UserPhoto")%>' border=0 width=75 height=75><%else%><img src='img/face/09.gif' border=0 width=75 height=75><%end if%></td>
</tr>
<tr height=25>
<td><img src='img/user_main.gif' border=0>&nbsp;用户类型：</td>
<td><%if rs("UserGrade")=0 then%>普通会员
<%end if%><%if rs("UserGrade")=1 then%><font color=red>VIP会员</font> 有效期还有<%=rs("vipenddate")-date()%>天<%end if%></td>
</tr>
<tr>
<td><img src='img/user_main.gif' border=0>&nbsp;用户性别：</td>
<td><%
  if rs("Sex")="男" then
    response.write "<img border=0 src='img/boy.gif' align=absmiddle>&nbsp;&nbsp;男孩"
  else
    response.write "<img border=0 src='img/girl.gif' align=absmiddle>&nbsp;&nbsp;女孩"
  end if
%></td>
</tr>
<tr>
<td><img src='img/user_main.gif' border=0>&nbsp;注册时间：</td>
<td><%=rs("RegDate")%></td>
</tr>
<tr>
<td><img src='img/user_main.gif' border=0>&nbsp;登录次数：</td>
<td><%=rs("LoginTimes")%>&nbsp;次</td>
</tr>
<tr>
<td><img src='img/user_main.gif' border=0>&nbsp;用户积分：</td>
<td><%=rs("points")&moneyname%></td>
<td align=center><a href="User_main.asp?action=friend&touser=<%=rs("UserName")%>">将 <font color=red><%=rs("UserName")%></font> 加为我的好友</a></td>
</tr>
<tr>
<td><img src='img/user_main.gif' border=0>&nbsp;个性签名：</td>
<td colspan=2 align=center><table border=0 width='100%'>
<%if rs("UserSign")<>"" then%>
<tr><td><%=autourl(formatStr(rs("UserSign")))%></td></tr>
<%else%>
<tr><td>暂无</td></tr>
<%end if%>
</table></td>
</tr>
<tr>
<td>≡以下联系信息≡</td>
<td colspan=2><%if rs("hidden")=1 then%><font color=red>只有『<%=rs("UserName")%>』的好友可见</font><%else%>公开<%end if%></td>
</td>
</tr>
<%
if rs("hidden")=1 then
IF rs("userfriend")<>"" Then 
Hx66friend=rs("userfriend")
else
Hx66friend="|"
End IF
temp=split(Hx66friend,"|")
for j = 1 to ubound(temp)
if Hx66_name=temp(j) then
'www.hx66.com.cn
%>
<tr>
<td><img src='img/user_main.gif' border=0>&nbsp;用户 &nbsp;QQ：</td>
<td colspan=2><font color=gray><%=rs("QQ")%></font></td>
</tr>
<tr>
<td><img src='img/user_main.gif' border=0>&nbsp;&nbsp;&nbsp;E-mail：</td>
<td colspan=2><a href='mailto:<%=rs("Email")%>'><%=rs("Email")%></a></td>
</tr>
<tr>
<td><img src='img/user_main.gif' border=0>&nbsp;个人主页：</td>
<td colspan=2><a href='<%=rs("Homepage")%>'><font color=gray><%=rs("Homepage")%></font></a></td>
</tr>
<tr>
<td><img src='img/user_main.gif' border=0>&nbsp;来自哪里：</td>
<td colspan=2><%=rs("whe")%></a></td>
</tr>
<tr>
<td><img src='img/user_main.gif' border=0>&nbsp;出生年月：</td>
<td colspan=2><%=rs("birthday")%></a></td>
</tr>
<tr>
<td><img src='img/user_main.gif' border=0>&nbsp;联系电话：</td>
<td colspan=2><%=rs("phone")%></a></td>
</tr>
<tr>
<td><img src='img/user_main.gif' border=0>&nbsp;联系地址：</td>
<td colspan=2><%=FormatStr(rs("address"))%></a></td>
</tr>  
<%
end if
next
else
%> 
<tr>
<td><img src='img/user_main.gif' border=0>&nbsp;用户 &nbsp;QQ：</td>
<td colspan=2><font color=gray><%=rs("QQ")%></font></td>
</tr>
<tr>
<td><img src='img/user_main.gif' border=0>&nbsp;&nbsp;&nbsp;E-mail：</td>
<td colspan=2><a href='mailto:<%=rs("Email")%>'><%=rs("Email")%></a></td>
</tr>
<tr>
<td><img src='img/user_main.gif' border=0>&nbsp;个人主页：</td>
<td colspan=2><a href='<%=rs("Homepage")%>'><font color=gray><%=rs("Homepage")%></font></a></td>
</tr>
<tr>
<td><img src='img/user_main.gif' border=0>&nbsp;来自哪里：</td>
<td colspan=2><%=rs("whe")%></a></td>
</tr>
<tr>
<td><img src='img/user_main.gif' border=0>&nbsp;出生年月：</td>
<td colspan=2><%=rs("birthday")%></a></td>
</tr>
<tr>
<td><img src='img/user_main.gif' border=0>&nbsp;联系电话：</td>
<td colspan=2><%=rs("phone")%></a></td>
</tr>
<tr>
<td><img src='img/user_main.gif' border=0>&nbsp;联系地址：</td>
<td colspan=2><%=FormatStr(rs("address"))%></a></td>
</tr> 
<%end if%>   
          <tr> 
            <td colspan=3>&nbsp;&nbsp;</td>
          </tr>    
          <tr> 
            <td colspan=3>&nbsp;&nbsp;<img border=0 src='img/h_review.gif' align=absmiddle>&nbsp;『<%=rs("UserName")%>』在本站发布的信息：&nbsp;&nbsp;<a href="user_corpus.asp?action=<%=rs("UserName")%>"><img src="img/view.gif" width="52" height="18" border="0" align=absmiddle> <%=rs("UserName")%>全部文集</a></td>
          </tr>
          <tr>
            <td colspan=3>√成功添加笑话：<%=joke%> 篇，其中：已通过笑话 <%=joke-sjoke%> 篇，待审笑话：<font color="#FF0000"><%=sjoke%></font> 篇。<a href=user_corpuslist.asp?action=<%=rs("UserName")%>&act=joke><img src="img/view.gif" width="52" height="18" border="0" align=absmiddle></a></td>
          </tr>
          <tr>
            <td colspan=3>√成功添加歌曲：<%=dj%> 首，其中：已通过歌曲 <%=dj-sdj%> 首，待审歌曲：<font color="#FF0000"><%=sdj%></font> 首。<a href=user_corpuslist.asp?action=<%=rs("UserName")%>&act=dj><img src="img/view.gif" width="52" height="18" border="0" align=absmiddle></a></td>
          </tr>
          <tr>
            <td colspan=3>√成功添加图片：<%=pic%> 张，其中：已通过图片 <%=pic-spic%> 张，待审图片：<font color="#FF0000"><%=spic%></font> 张。<a href=user_corpuslist.asp?action=<%=rs("UserName")%>&act=pic><img src="img/view.gif" width="52" height="18" border="0" align=absmiddle></a></td>
          </tr>
          <tr>
            <td colspan=3>√成功添加资源：<%=down%> 个，其中：已通过资源 <%=down-sdown%> 个，待审资源：<font color="#FF0000"><%=sdown%></font> 个。<a href=user_corpuslist.asp?action=<%=rs("UserName")%>&act=down><img src="img/view.gif" width="52" height="18" border="0" align=absmiddle></a></td>
          </tr>
          <tr>
            <td height=30 colspan=3>√成功添加游记：<%=web%> 个，其中：已通过游记 <%=web-sweb%> 个，待审游记：<font color="#FF0000"><%=sweb%></font> 个。<a href=user_corpuslist.asp?action=<%=rs("UserName")%>&act=web><img src="img/view.gif" width="52" height="18" border="0" align=absmiddle></a></td>
          </tr>
          <tr> 
            <td colspan=3>√<font color="#FF0000">衷心感谢您对『<%=webname%>』的支持！</font></td>
          </tr>
<%end if
rs.Close
set rs=nothing
%>
</table>
<%end sub
sub friend()
'www.hx66.com.cn
if request("page")<>"" then
  if not isInteger(request("page")) then
    Response.Write "<script language=javascript>alert('参数非法！');javascript:history.back();</script>"
    Response.End
  end if
end if
%>
<table bgcolor="#ffffff" borderColor="#F0F0F0" Border="1" Cellspacing="0" Cellpadding="5" width="100%" align="Center" style="border-collapse: collapse">
<form method="post" action="?action=addfriend">
  <tr>
    <td height="25" align="center" colspan="8">添加好友：<input type="text" name="friend" maxlength="12" value="<%=request("touser")%>" class="input"> <input type="submit" name="submit" value="确认添加" class="input">  最多可添加<%=friendsum%>位在您的好友列表中</td></form>
  </tr>
  <tr>
    <td height="25" align="center" colspan="8"><font color=red><B>我的好友列表</B></font></td>
  </tr>
  <tr align="center">
    <td width="7%" height="23">序号</td>
    <td width="7%" height="23">等级</td>
    <td width="23%" height="23">用户名(点击发短信)</td>
    <td width="7%">性别</td>
    <td width="24%">注册时间</td>
    <td width="7%">状态</td>
    <td width="18%">详细资料</td>
    <td width="7%">删除</td>
  </tr>
<%
dim Hx66friend
IF Hx66_friend<>"" Then 
Hx66friend=Hx66_friend
else
Hx66friend="|1234567890123456"
End IF
temp=split(Hx66friend,"|")
totaldiary=ubound(temp)
hyperpage=15
if trim(request("page"))<>"" then
    currentpage=clng(request("page"))
    aaa=hyperpage*(currentpage-1)+1
    if ubound(temp)-hyperpage*currentpage<1 then
    bbb=ubound(temp)
    else
    bbb=hyperpage*currentpage
    end if
else
    currentpage=1
    aaa=1
    if hyperpage-ubound(temp)>=1 then
    bbb=ubound(temp)
    else
    bbb=hyperpage
    end if
end if
if (totaldiary mod hyperpage)=0 then
    totalpages=totaldiary\hyperpage
else
    totalpages=totaldiary\hyperpage+1
end if
for j = aaa to bbb
set rs=server.createobject("adodb.recordset")
sql="select * from [User] where username='"&temp(j)&"'"
rs.open sql,conn,1,1
If rs.EOF And rs.BOF Then
Response.Write "<tr align=center><td height=21 colspan=8>您目前还没有添加好友！</td></tr>" & vbCrLf
else
Response.Write "<tr align=center bgcolor=#FFFFFF>" & vbCrLf
Response.Write "<td height=25>"&j&"</td>" & vbCrLf
if rs("UserGrade")=0 then Response.Write "<td height=25>普通</td>" & vbCrLf
if rs("UserGrade")=1 then Response.Write "<td height=25><font color=red>VIP</font></td>" & vbCrLf
%>
    <td><a href="Messager.asp?action=new&touser=<%=rs("UserName")%>" title=点击给好友：<%=rs("UserName")%>发短信><%=rs("UserName")%></a></td>
    <td><%=rs("sex")%></td>
    <td align="left"><%=rs("RegDate")%></td>
<%
if rs("userlock")=0 then Response.Write "<td>正常</td>" & vbCrLf
if rs("userlock")=1 then Response.Write "<td><font color=red>锁定</font></td>" & vbCrLf
Response.Write "<td><a href=?action=ulist&id="&rs("userid")&" title=点击查看好友："&rs("UserName")&"的详细资料><img src='img/view.gif' width='52' height='18' border='0' align=absmiddle></a></td>" & vbCrLf
Response.Write "<td><a href='?action=delfriend&friend_id="&j&"'><font color=#FF0000>×</font></td></tr>" & vbCrLf
end if
next
%>
</table>
<table width="540" border="0" align="center" cellpadding="0" cellspacing="0">
  <form name="form2" method="post" action="?action=list">
    <tr>
     <TD align=middle width="200" height="40"><IMG height=14 src="img/so.gif" width=14 align=absMiddle> 共[<font color="#FF6666"><%=totaldiary%></font>]个好友　分[<font color="#FF6666"><%=totalpages%></font>]页</TD>
     <TD width="200" align=middle><IMG height=11 src="img/lt.gif" width=11 align=absMiddle>
<%
if CurrentPage<2 then
response.write "<font color='999966'>首页 上一页</font> "
else
response.write "<a href=?action=friend&page=1>首页</a> "
response.write "<a href=?action=friend&page="&CurrentPage-1&">上一页</a> "
end if
if totalpages-currentpage<1 then
response.write "<font color='999966'>下一页 尾页</font>"
else
response.write "<a href=?action=friend&page="&CurrentPage+1&""
response.write ">下一页</a> <a href=?action=friend&page="&totalpages&">尾页</a>"
end if
%>&nbsp;<IMG height=11 src="img/rt.gif" width=11 align=absMiddle></TD>
</tr>
  </form>