开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 数据库编程 > 查看源码
ShowUser.asp
资源名称：eat.rar　[点击查看]
上传用户：jisenq
上传日期：2014-06-29
资源大小：7216k
文件大小：25k
源码类别：

数据库编程

开发平台：

ASP/ASPX

ShowUser.asp：源码内容
  1. <% Option Explicit %>
  2. <!--#include file="../FS_Inc/Const.asp" -->
  3. <!--#include file="../FS_InterFace/MF_Function.asp" -->
  4. <!--#include file="../FS_Inc/Function.asp" -->
  5. <!--#include file="lib/strlib.asp" -->
  6. <%
  7. User_GetParm
  8. if Request.QueryString("skin")= "1" then
  9. response.Cookies("FoosunUserCookies")("UserLogin_Style_Num") = 1
  10. elseif Request.QueryString("skin")= "2" then
  11. response.Cookies("FoosunUserCookies")("UserLogin_Style_Num") = 2
  12. elseif Request.QueryString("skin")= "3" then
  13. response.Cookies("FoosunUserCookies")("UserLogin_Style_Num") = 3
  14. elseif Request.QueryString("skin")= "4" then
  15. response.Cookies("FoosunUserCookies")("UserLogin_Style_Num") = 4
  16. elseif Request.QueryString("skin")= "5" then
  17. response.Cookies("FoosunUserCookies")("UserLogin_Style_Num") = 5
  18. else
  19. if Request.Cookies("FoosunUserCookies")("UserLogin_Style_Num") = "" then
  20. response.Cookies("FoosunUserCookies")("UserLogin_Style_Num") = 3
  21. else
  22. response.Cookies("FoosunUserCookies")("UserLogin_Style_Num") = Request.Cookies("FoosunUserCookies")("UserLogin_Style_Num")
  23. end if
  24. End if
  25. Dim p_UserNumber,RsObj,str_lock,p_str
  26. if Request.QueryString("UserNumber")<>"" then
  27. p_str = "UserNumber='"& NoSqlHack(Request.QueryString("UserNumber")) &"'"
  28. elseif Request.QueryString("UserName")<>"" then
  29. p_str = "UserName='"& NoSqlHack(Request.QueryString("UserName")) &"'"
  30. else
  31. response.Write("错误的参数")
  32. response.end
  33. end if
  34. User_Conn.execute("update FS_ME_Users set hits=hits+1 where "& p_str &"")
  35. set RsObj = Server.CreateObject (G_FS_RS)
  36. RsObj.Open "select isLock,UserName,RealName,GroupID,Integral,LoginNum,RegTime, LastLoginTime,LastLoginIP,UserNumber,FS_Money,ConNumber,UserID,HomePage,BothYear,Tel,MSN,QQ,Corner,Province,City,Address,PostCode,PassQuestion,SelfIntro,isOpen,Certificate,CertificateCode,Vocation,HeadPic,NickName,Mobile,CloseTime,IsCorporation,isMessage,Email,sex,safeCode,UserLoginCode,HeadPicsize,OnlyLogin,UserFavor,IsMarray,PassAnswer,hits from FS_ME_Users where "& p_str &"",User_Conn,1,1
  37. If RsObj.eof Then 
  38. strShowErr = "<li>此用户已被删除或不存在该用户信息</li>"
  39. Response.Redirect("lib/Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
  40. Response.end
  41. End if
  42. if Session("Admin_Name")<>"" and Session("Admin_Pass_Word")<>"" and Session("Admin_Parent_Admin")<>"" and Session("Admin_Is_Super") <>"" then
  43. if RsObj("isLock")=0 then
  44. str_lock="｜<a href=../"&G_ADMIN_DIR&"/User/LockUser.asp?UserNumber="&RsObj("UserNumber")&"&action=Lock>锁定此用户</a>"
  45. else
  46. str_lock="｜<a href=../"&G_ADMIN_DIR&"/User/LockUser.asp?UserNumber="&RsObj("UserNumber")&"&action=UnLock>解锁此用户</a>"
  47. end if
  48. end if
  49. if RsObj.eof then
  50. strShowErr = "<li>错误的参数</li>"
  51. Response.Redirect("lib/Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
  52. Response.end
  53. Else
  54. if session("Admin_Name")="" and session("Admin_Pass_Word")="" and session("Admin_Is_Super")="" then
  55. if RsObj("isLock") = 1 then
  56. strShowErr = "<li>此用户已被锁定</li>"
  57. Response.Redirect("lib/Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
  58. Response.end
  59. End if
  60. end if
  61. %>
  62. <html xmlns="http://www.w3.org/1999/xhtml">
  63. <title><% = RsObj("UserName")%>----网站内容管理系统</title>
  64. <meta name="keywords" content="风讯cms,cms,FoosunCMS,FoosunOA,FoosunVif,vif,风讯网站内容管理系统">
  65. <meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
  66. <meta content="MSHTML 6.00.3790.2491" name="GENERATOR" />
  67. <link href="images/skin/Css_<%=Request.Cookies("FoosunUserCookies")("UserLogin_Style_Num")%>/<%=Request.Cookies("FoosunUserCookies")("UserLogin_Style_Num")%>.css" rel="stylesheet" type="text/css">
  68. <head></head>
  69. <body>
  70. <table width="98%" height="135" border="0" align="center" cellpadding="0" cellspacing="1" class="table">
  71.   <tr class="back"> 
  72.     <td width="82%" valign="top" class="hback"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
  73.         <tr> 
  74.           <td width="76%"  valign="top"> <table width="98%" height="256" border="0" align="center" cellpadding="5" cellspacing="1" class="table">
  75.               <tr> 
  76.                 <td height="29" colspan="5"  class="xingmu"> <span class="bigtitle"><strong>·<strong>
  77.                   <%  = RsObj("UserName")%>
  78.                   </strong></strong>的基本信息（人气: 
  79.                   <%  = RsObj("hits")%>
  80.                   ）</span><strong>　</strong></td>
  81.               </tr>
  82.               <tr> 
  83.                 <td height="24" class="hback_1">&nbsp;</td>
  84.                 <td colspan="4" class="hback"> <div align="right"><a href="Message_write.asp?ToUserNumber=<%=RsObj("UserNumber")%>" target="_blank">短信</a>｜<a href="book_write.asp?ToUserNumber=<%=RsObj("UserNumber")%>&M_Type=0" target="_blank">留言</a>｜<a href="Friend_add.asp?type=0&UserName=<%=RsObj("UserName")%>" target="_blank">加为好友</a>｜<a href="UserReport.asp?action=report&ToUserNumber=<%=RsObj("UserNumber")%>">举报</a><%=str_lock%>
  85.                     　　　　　　设置您的偏好：<img src="images/changeskin.gif" width="86" height="12" border="0" usemap="#Map"></div></td>
  86.               </tr>
  87.               <tr> 
  88.                 <td width="18%" height="24" class="hback_1"> <div align="center">用户姓名</div></td>
  89.                 <td width="16%" class="hback"><%=RsObj("RealName")%></td>
  90.                 <td width="20%" class="hback"><div align="center"><a href="../<%=G_USER_DIR%>?User=<%=RsObj("UserNumber")%>" ><strong>查看<%  = RsObj("UserName")%>的空间</strong></a></div></td>
  91.                 <td width="46%" colspan="2" rowspan="8" class="hback"><div align="center"></div>
  92.                   <div align="center"> </div>
  93.                   <div align="center"> 
  94.                     <%
  95.   Dim strHeadPicsizearr,strHeadPicsizearrw,strHeadPicsizearrh
  96.   If Not IsNull(RsObj("HeadPicsize")) then
  97.   strHeadPicsizearr = split(RsObj("HeadPicsize"),",")
  98.   strHeadPicsizearrw = strHeadPicsizearr(0)
  99.   strHeadPicsizearrh = strHeadPicsizearr(1)
  100.  End if
  101.   if Trim(RsObj("HeadPic")) <>"" or len(Trim(RsObj("HeadPic"))) >0 then
  102.   %>
  103.                     <table width="42" border="0" cellpadding="1" cellspacing="1" bgcolor="#CCCCCC" class="table">
  104.                       <tr> 
  105.                         <td height="40" bgcolor="#FFFFFF"><img src="<%=RsObj("HeadPic")%>" width="<%If Not IsNull(RsObj("HeadPicsize")) Then response.write(strHeadPicsizearr(0))%>" height="<%If Not IsNull(RsObj("HeadPicsize")) Then response.write(strHeadPicsizearr(1))%>"></td>
  106.                       </tr>
  107.                     </table>
  108.                   </div>
  109.                   <div align="center"></div></td>
  110.                 <%Else%>
  111.                 <img src="images/noHeadpic.gif" border="0"> 
  112.                 <%End if%>
  113.               </tr>
  114.               <tr> 
  115.                 <td height="24" class="hback_1"> <div align="center">用户昵称</div></td>
  116.                 <td colspan="2" class="hback"><%=RsObj("NickName")%></td>
  117.               </tr>
  118.               <tr> 
  119.                 <td height="24" class="hback_1"> <div align="center">用 户 名</div></td>
  120.                 <td colspan="2" class="hback"><%=RsObj("UserName")%></td>
  121.               </tr>
  122.               <tr> 
  123.                 <td height="24" class="hback_1"> <div align="center">用户编号</div></td>
  124.                 <td colspan="2" class="hback"><%=RsObj("UserNumber")%></td>
  125.               </tr>
  126.               <tr> 
  127.                 <td height="24" class="hback_1"> <div align="center">登陆时间</div></td>
  128.                 <td colspan="2" class="hback"><%=RsObj("LastLoginTime")%> </td>
  129.               </tr>
  130.               <tr> 
  131.                 <td height="24" class="hback_1"> <div align="center">注册日期</div></td>
  132.                 <td height="24" colspan="2" class="hback"><%=RsObj("RegTime")%></td>
  133.               </tr>
  134.               <tr> 
  135.                 <td height="24" class="hback_1"> <div align="center">省　　份</div></td>
  136.                 <td colspan="2" class="hback"> <%=RsObj("Province")%> </td>
  137.               </tr>
  138.               <tr> 
  139.                 <td height="24" class="hback_1"><div align="center">城　　市</div></td>
  140.                 <td colspan="2" class="hback"><%=RsObj("City")%></td>
  141.               </tr>
  142.             </table>
  143.             <%
  144. if RsObj("isOpen")=1 or(session("Admin_Name")<>"" and session("Admin_Pass_Word")<>"" and session("Admin_Is_Super")<>"") then
  145.     %>
  146.             <table width="98%" height="231" border="0" align="center" cellpadding="5" cellspacing="1" class="table">
  147.               <tr> 
  148.                 <td height="29" colspan="4"  class="xingmu"> <span class="bigtitle"><strong>·联系方式</strong></span></td>
  149.               </tr>
  150.               <tr> 
  151.                 <td width="18%" height="24" class="hback_1"> <div align="center">电子邮件</div></td>
  152.                 <td width="36%" class="hback"><a href="mailto:<%=RsObj("Email")%>"><%=RsObj("Email")%></a></td>
  153.                 <td width="18%" class="hback_1"><div align="center">网站主页</div></td>
  154.                 <td width="28%" class="hback"><a href="<%=RsObj("Homepage")%>" target="_blank"><%=RsObj("Homepage")%></a></td>
  155.               </tr>
  156.               <tr> 
  157.                 <td height="24" class="hback_1"> <div align="center">联系电话</div></td>
  158.                 <td class="hback"><%=RsObj("Tel")%></td>
  159.                 <td class="hback_1"><div align="center">移动电话</div></td>
  160.                 <td class="hback"><%=RsObj("mobile")%></td>
  161.               </tr>
  162.               <tr> 
  163.                 <td height="24" class="hback_1"> <div align="center">腾讯ＱＱ</div></td>
  164.                 <td class="hback"><%=RsObj("qq")%>
  165.                   <%
  166. if  Len(Trim(RsObj("QQ")))>4 then
  167. Dim sOICQ
  168.     sOICQ ="<a target=blank href=http://wpa.qq.com/msgrd?V=1&Uin="& RsObj("QQ") &"&Site=FoosunCMS&Menu=yes><img border=""0"" SRC=http://wpa.qq.com/pa?p=1:"& RsObj("QQ") &":16 alt=""点击这里给"& RsObj("QQ") &"发消息""></a>"
  169. Response.Write sOICQ
  170. Else
  171. Response.Write("没有")
  172. End if
  173. %>
  174.                 </td>
  175.                 <td class="hback_1"><div align="center">用户MSN</div></td>
  176.                 <td class="hback"><%=RsObj("MSN")%></td>
  177.               </tr>
  178.               <tr> 
  179.                 <td height="24" class="hback_1"> <div align="center">地　　址</div></td>
  180.                 <td class="hback"><%=RsObj("Province")%><%=RsObj("City")%><%=RsObj("address")%></td>
  181.                 <td class="hback_1"><div align="center">是否结婚</div></td>
  182.                 <td class="hback">
  183. <%
  184. if RsObj("IsMarray")=0 then 
  185. response.Write("保密")
  186. Elseif RsObj("IsMarray")=1 then 
  187. response.Write("已婚")
  188. Else
  189. response.Write("未婚")
  190. End if
  191. %></td>
  192.               </tr>
  193.               <tr> 
  194.                 <td height="24" class="hback_1"> <div align="center">出身日期</div></td>
  195.                 <td class="hback"><%=RsObj("bothyear")%> </td>
  196.                 <td class="hback_1"><div align="center">登陆ＩＰ</div></td>
  197.                 <td class="hback"><%=RsObj("LastLoginIP")%></td>
  198.               </tr>
  199.               <tr> 
  200.                 <td height="24" class="hback_1"><div align="center">登陆次数</div></td>
  201.                 <td class="hback"><%=RsObj("LoginNum")%></td>
  202.                 <td class="hback_1"><div align="center">用户金币</div></td>
  203.                 <td class="hback"><%=RsObj("FS_Money")%>&nbsp;<%=p_MoneyName%></td>
  204.               </tr>
  205.               <tr> 
  206.                 <td height="24" class="hback_1"><div align="center">用户积分</div></td>
  207.                 <td class="hback"><%=RsObj("Integral")%></td>
  208.                 <td class="hback_1"><div align="center"></div></td>
  209.                 <td class="hback">&nbsp;</td>
  210.               </tr>
  211.               <tr> 
  212.                 <td height="24" class="hback_1"><div align="center">个人爱好</div></td>
  213.                 <td colspan="3" class="hback"><%=RsObj("UserFavor")%></td>
  214.               </tr>
  215.             </table>
  216.             <map name="MapMap">
  217.               <area shape="rect" coords="2,0,14,18" href="ShowUser.asp?UserNumber=<% = RsObj("UserNumber")%>&skin=1">
  218.               <area shape="rect" coords="19,1,32,17" href="ShowUser.asp?UserNumber=<% = RsObj("UserNumber")%>&skin=2">
  219.               <area shape="rect" coords="37,0,50,13" href="ShowUser.asp?UserNumber=<% = RsObj("UserNumber")%>&skin=3">
  220.               <area shape="rect" coords="52,-1,67,13" href="ShowUser.asp?UserNumber=<% = RsObj("UserNumber")%>&skin=4">
  221.               <area shape="rect" coords="72,0,87,14" href="ShowUser.asp?UserNumber=<% = RsObj("UserNumber")%>&skin=5">
  222.             </map> 
  223.             <%Else%>
  224.             <table width="98%" height="59" border="0" align="center" cellpadding="5" cellspacing="1" class="table">
  225.               <tr> 
  226.                 <td height="22"  class="xingmu"> <span class="bigtitle"><strong>·联系资料</strong></span></td>
  227.               </tr>
  228.               <tr> 
  229.                 <td height="34" class="hback"> 
  230.                   <div align="left">联系资料设置为保密</div></td>
  231.               </tr>
  232.             </table>
  233.             <map name="MapMap2">
  234.               <area shape="rect" coords="2,0,14,18" href="ShowUser.asp?UserNumber=<% = RsObj("UserNumber")%>&skin=1">
  235.               <area shape="rect" coords="19,1,32,17" href="ShowUser.asp?UserNumber=<% = RsObj("UserNumber")%>&skin=2">
  236.               <area shape="rect" coords="37,0,50,13" href="ShowUser.asp?UserNumber=<% = RsObj("UserNumber")%>&skin=3">
  237.               <area shape="rect" coords="52,-1,67,13" href="ShowUser.asp?UserNumber=<% = RsObj("UserNumber")%>&skin=4">
  238.               <area shape="rect" coords="72,0,87,14" href="ShowUser.asp?UserNumber=<% = RsObj("UserNumber")%>&skin=5">
  239.             </map>
  240.             <%End if%>
  241.             <table width="98%" height="97" border="0" align="center" cellpadding="5" cellspacing="1" class="table">
  242.               <tr> 
  243.                 <td height="22" colspan="4" class="xingmu"><span class="bigtitle"><strong>·分类专区</strong></span></td>
  244.               </tr>
  245.               <tr> 
  246.                 <td width="18%" height="24" class="hback_1"><div align="center"><a href="infomanage.asp">我的专栏</a></div></td>
  247.                 <td width="82%" colspan="3" class="hback"> <%
  248. Dim RsInfoObj
  249. Set RsInfoObj = server.CreateObject(G_FS_RS)
  250. RsInfoObj.open "select  Top 5 ClassID,ClassCName,ClassEName,ParentID,UserNumber,ClassTypes,AddTime,ClassContent From FS_ME_InfoClass where ParentID=0 and UserNumber='"& RsObj("UserNumber")&"' order by ClassID desc",User_Conn,1,1
  251.  if Not RsInfoObj.eof then
  252.  Do while Not RsInfoObj.eof
  253. Response.Write "<a href=""ShowInfoClass.asp?ClassID="& RsInfoObj("ClassID") & "&UserNumber=" & RsInfoObj("UserNumber") & """ Title=""" & RsInfoObj("ClassContent") & """>" & RsInfoObj("ClassCName") & "</a>&nbsp;&nbsp;&nbsp;"
  254.   RsInfoObj.movenext
  255.   Loop
  256. Else
  257.    Response.Write("没有专栏")
  258. End if
  259. RsInfoObj.close:set RsInfoObj = nothing
  260.   %> </td>
  261.               </tr>
  262.               <tr> 
  263.                 <td height="24" class="hback_1"><div align="center"><a href="GroupClass.asp">我的社群</a></div></td>
  264.                 <td colspan="3" class="hback"> <%
  265. Dim RsGroupObj
  266. Set RsGroupObj = server.CreateObject(G_FS_RS)
  267. RsGroupObj.open "select  Top 5 ClassID,Title,Content,UserNumber From FS_ME_GroupDebateManage where UserNumber='"& RsObj("UserNumber")&"' order by ClassID desc",User_Conn,1,1
  268.  if Not RsGroupObj.eof then
  269.  Do while Not RsGroupObj.eof
  270. Response.Write "<a href=""ShowGroupClass.asp?ClassID="& RsGroupObj("ClassID") & "&UserNumber=" & RsGroupObj("UserNumber") & """ Title=""" & RsGroupObj("Content") & """>" & RsGroupObj("Title") & "</a>&nbsp;&nbsp;&nbsp;"
  271.   RsGroupObj.movenext
  272.   Loop
  273. Else
  274.    Response.Write("没有社群")
  275. End if
  276. RsGroupObj.close:set RsGroupObj = nothing
  277.   %> </td>
  278.               </tr>
  279.             </table>
  280.             <%If  RsObj("IsCorporation")= 0  then%> <table width="98%"  border="0" align="center" cellpadding="3" cellspacing="1" class="table">
  281.               <tr> 
  282.                 <td height="22" colspan="4" class="xingmu"><span class="bigtitle"><strong>·企业资料</strong></span></td>
  283.               </tr>
  284.               <tr> 
  285.                 <td height="37" colspan="4" class="hback"> <div align="left">没开通企业资料！</div></td>
  286.               </tr>
  287.             </table>
  288.             <%Else%> 
  289.             <table width="98%"  border="0" align="center" cellpadding="5" cellspacing="1" class="table">
  290.               <tr> 
  291.                 <td height="22" colspan="4" class="xingmu"><span class="bigtitle"><strong>·企业资料　　　　　　　 
  292.                   　　　　　　　　　<a href="Corp_Card_add.asp?UserNumber=<%=RsObj("UserNumber")%>" class="top_navi"><strong>收藏 
  293.                   <%  = RsObj("UserName")%>
  294.                   的名片</strong></a> </strong></span></td>
  295.               </tr>
  296.               <%
  297. Dim RsCorpObj
  298. Set RsCorpObj = server.CreateObject(G_FS_RS)
  299. RsCorpObj.open "select  C_Name,C_ShortName,C_Province,C_City,C_Address,C_ConactName,C_Vocation,C_PostCode,C_Tel,C_Fax,C_BankName,C_BankUserName,isYellowPage,isYellowPageCheck From FS_ME_CorpUser where UserNumber='"& RsObj("UserNumber")&"'",User_Conn,1,1
  300.  if Not RsCorpObj.eof then
  301. %>
  302.               <tr> 
  303.                 <td width="18%" height="24" class="hback_1"> <div align="center">公司名称</div></td>
  304.                 <td width="82%" colspan="3" class="hback"> <% = RsCorpObj("C_Name") %> </td>
  305.               </tr>
  306.               <tr> 
  307.                 <td height="24" class="hback_1"> <div align="center">公司简称</div></td>
  308.                 <td colspan="3" class="hback"> <% = RsCorpObj("C_ShortName") %> </td>
  309.               </tr>
  310.               <tr> 
  311.                 <td height="24" class="hback_1"><div align="center">公司联系人</div></td>
  312.                 <td colspan="3" class="hback"> <% = RsCorpObj("C_ConactName") %> </td>
  313.               </tr>
  314.               <tr>
  315.                 <td height="24" class="hback_1"><div align="center">联系人职位</div></td>
  316.                 <td colspan="3" class="hback">
  317.                   <% = RsCorpObj("C_Vocation") %>
  318.                 </td>
  319.               </tr>
  320.               <tr> 
  321.                 <td height="24" class="hback_1"> <div align="center">公司地址</div></td>
  322.                 <td colspan="3" class="hback"> <% = RsCorpObj("C_Province") &RsCorpObj("C_City") &RsCorpObj("C_Address")%>
  323.                   ,&nbsp;&nbsp;邮编： 
  324.                   <% = RsCorpObj("C_PostCode") %> </td>
  325.               </tr>
  326.               <tr> 
  327.                 <td height="24" class="hback_1"> <div align="center">公司电话</div></td>
  328.                 <td colspan="3" class="hback"> <% = RsCorpObj("C_Tel") %> </td>
  329.               </tr>
  330.               <tr> 
  331.                 <td height="24" class="hback_1"> <div align="center">公司传真</div></td>
  332.                 <td colspan="3" class="hback"> <% = RsCorpObj("C_Fax") %> </td>
  333.               </tr>
  334.               <tr> 
  335.                 <td height="24" class="hback_1"> <div align="center">银行帐户</div></td>
  336.                 <td colspan="3" class="hback">银行: 
  337.                   <% = RsCorpObj("C_BankName") %>
  338.                   ，帐号: 
  339.                   <% = RsCorpObj("C_BankUserName") %> </td>
  340.               </tr>
  341.               <tr> 
  342.                 <td height="24" class="hback_1"> <div align="center">黄页开通</div></td>
  343.                 <td colspan="3" class="hback"> <%
  344.      if  RsCorpObj("isYellowPage") = 0 then
  345.   Response.Write("还没开通黄页") 
  346.  Else
  347.    if RsCorpObj("isYellowPageCheck")=0 then
  348. Response.Write("已经开通黄页，&nbsp;&nbsp;还没通过")
  349. Else
  350. Response.Write("已经开通黄页")
  351. End if
  352.  End if
  353.  %> </td>
  354.               </tr>
  355.               <%
  356. Else
  357.      Response.Write("<tr><td height=""40"" colspan=""4"" class=""hback""><b>是企业会员，但没找到企业资料</b></a></td></tr>")
  358. End if
  359. RsCorpObj.close
  360. Set RsCorpObj = nothing
  361. %>
  362.             </table>
  363.             <%End if%> </td>
  364.           <td width="24%" valign="top"><table width="98%"  border="0" align="center" cellpadding="3" cellspacing="1" class="table" style="display:none">
  365.               <tr> 
  366.                 <td height="22" colspan="4" class="xingmu"><span class="bigtitle"><strong>·最新推荐</strong></span></td>
  367.               </tr>
  368.               <tr> 
  369.                 <td height="76" colspan="4" class="hback"> 
  370.                   <div align="left">{$RecGQ}</div></td>
  371.               </tr>
  372.             </table> 
  373.             <table width="98%"  border="0" align="center" cellpadding="3" cellspacing="1" class="table"  style="display:none">
  374.               <tr> 
  375.                 <td height="22" colspan="4" class="xingmu"><span class="bigtitle"><strong>·最新话题</strong></span></td>
  376.               </tr>
  377.               <tr> 
  378.                 <td height="76" colspan="4" class="hback"> <div align="left">{$newGroup}</div></td>
  379.               </tr>
  380.             </table>
  381.             <table width="98%"  border="0" align="center" cellpadding="3" cellspacing="1" class="table">
  382.               <tr> 
  383.                 <td height="22" colspan="4" class="xingmu"><span class="bigtitle"><strong>·用户排行</strong></span></td>
  384.               </tr>
  385.               <tr> 
  386.                 <td height="76" colspan="4" class="hback"> <div align="left">
  387.                     <%
  388. Dim RsUserTopObj,Ti
  389. Set RsUserTopObj = server.CreateObject(G_FS_RS)
  390. RsUserTopObj.open "select  UserName,UserNumber,NickName,hits,islock From FS_ME_Users where Islock=0 order by hits desc,UserID DESC",User_Conn,1,1
  391.  if Not RsUserTopObj.eof then
  392.  for Ti = 1 to 10
  393. If RsUserTopObj.eof Then Exit for
  394. Response.Write "<img src=""images/dot.gif"" border=""0""></img><a href=""ShowUser.asp?UserNumber="& RsUserTopObj("UserNumber") & """ Title=""" & RsUserTopObj("NickName") & """>" & RsUserTopObj("NickName") & "[" & RsUserTopObj("UserName") & "]</a>&nbsp;<font style=""font-size:9px"" color=""#999999"">("& RsUserTopObj("hits")&")</font><br>"
  395.   RsUserTopObj.movenext
  396.   next
  397. Else
  398.    Response.Write("没有用户")
  399. End if
  400. RsUserTopObj.close:set RsUserTopObj = nothing
  401.   %>
  402.                   </div></td>
  403.               </tr>
  404.             </table>
  405.             <table width="98%"  border="0" align="center" cellpadding="3" cellspacing="1" class="table">
  406.               <tr> 
  407.                 <td height="22" colspan="4" class="xingmu"><span class="bigtitle"><strong>·社区大富翁</strong></span></td>
  408.               </tr>
  409.               <tr> 
  410.                 <td height="76" colspan="4" class="hback"> <div align="left">
  411.                     <%
  412. Dim RsUserPointObj,pi
  413. Set RsUserPointObj = server.CreateObject(G_FS_RS)
  414. RsUserPointObj.open "select  UserName,UserNumber,NickName,hits,Integral,islock From FS_ME_Users where Islock=0 order by Integral desc,Fs_Money desc",User_Conn,1,1
  415.  if Not RsUserPointObj.eof then
  416.  for pi = 1 to 10
  417. If RsUserPointObj.eof Then Exit for
  418. Response.Write "<img src=""images/dot.gif"" border=""0""></img><a href=""ShowUser.asp?UserNumber="& RsUserPointObj("UserNumber") & """ Title=""" & RsUserPointObj("NickName") & """>" & RsUserPointObj("NickName") & "[" & RsUserPointObj("UserName") & "]</a>&nbsp;<font style=""font-size:9px"" color=""#999999"">("& RsUserPointObj("Integral")&")</font><br>"
  419.   RsUserPointObj.movenext
  420.   Next
  421. Else
  422.    Response.Write("没有用户")
  423. End if
  424. RsUserPointObj.close:set RsUserPointObj = nothing
  425.   %>
  426.                   </div></td>
  427.               </tr>
  428.             </table>
  429.             <table width="98%" height="124" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
  430.               <tr> 
  431.                 <td width="50%" height="27"  class="xingmu"><span class="bigtitle"><strong>·排行</strong></span>(<a href="Top_User.asp?type=int" target="sys_Frame" class="top_navi">积分</a><span class="top_navi">┊</span><a href="Top_User.asp?type=money" target="sys_Frame" class="top_navi">金币</a><span class="top_navi">┊</span><a href="Top_User.asp?type=active" target="sys_Frame" class="top_navi">最活跃</a><span class="top_navi">┊<a href="Top_User.asp?type=hits" target="sys_Frame" class="top_navi">人气</a></span>)</td>
  432.               </tr>
  433.               <tr> 
  434.                 <td height="94" valign="top" class="hback"><iframe src="top_user.asp?type=int" name="sys_Frame" scrolling="no" frameborder="0" align="middle" width="100%" height="175"></iframe></td>
  435.               </tr>
  436.             </table></td>
  437.         </tr>
  438.       </table></td>
  439.   </tr>
  440.   <tr class="back"> 
  441.     <td height="20" class="xingmu"> <div align="left"> 
  442.         <!--#include file="Copyright.asp" -->
  443.       </div></td>
  444.   </tr>
  445. </table>
  446. <map name="Map">
  447.   <area shape="rect" coords="2,0,14,18" href="ShowUser.asp?UserNumber=<% = RsObj("UserNumber")%>&skin=1">
  448.   <area shape="rect" coords="19,1,32,17" href="ShowUser.asp?UserNumber=<% = RsObj("UserNumber")%>&skin=2">
  449.   <area shape="rect" coords="37,0,50,13" href="ShowUser.asp?UserNumber=<% = RsObj("UserNumber")%>&skin=3">
  450.   <area shape="rect" coords="52,-1,67,13" href="ShowUser.asp?UserNumber=<% = RsObj("UserNumber")%>&skin=4">
  451.   <area shape="rect" coords="72,0,87,14" href="ShowUser.asp?UserNumber=<% = RsObj("UserNumber")%>&skin=5">
  452. </map>
  453. </body>
  454. </html>
  455. <%
  456. End If
  457. Set RsObj = Nothing
  458. %>
  459. <!--Powsered by Foosun Inc.,Products:FoosunCMS V4.0系列,site:foosun.cn-->