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

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

数据库编程

开发平台：

ASP/ASPX

UserList.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. <!--#include file="lib/UserCheck.asp" -->
  7. <html xmlns="http://www.w3.org/1999/xhtml">
  8. <title>会员列表-网站内容管理系统</title>
  9. <meta name="keywords" content="风讯cms,cms,FoosunCMS,FoosunOA,FoosunVif,vif,风讯网站内容管理系统">
  10. <meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
  11. <meta content="MSHTML 6.00.3790.2491" name="GENERATOR" />
  12. <meta name="Keywords" content="Foosun,FoosunCMS,Foosun Inc.,风讯,风讯网站内容管理系统,风讯系统,风讯新闻系统,风讯商城,风讯b2c,新闻系统,CMS,域名空间,asp,jsp,asp.net,SQL,SQL SERVER" />
  13. <link href="images/skin/Css_<%=Request.Cookies("FoosunUserCookies")("UserLogin_Style_Num")%>/<%=Request.Cookies("FoosunUserCookies")("UserLogin_Style_Num")%>.css" rel="stylesheet" type="text/css">
  14. <head>
  15. <body>
  16. <table width="98%" border="0" align="center" cellpadding="1" cellspacing="1" class="table">
  17.   <tr>
  18.     <td>
  19.       <!--#include file="top.asp" -->
  20.     </td>
  21.   </tr>
  22. </table>
  23. <table width="98%" height="135" border="0" align="center" cellpadding="1" cellspacing="1" class="table">
  24.     <tr class="back"> 
  25.       <td   colspan="2" class="xingmu" height="26"> <!--#include file="Top_navi.asp" --> </td>
  26.     </tr>
  27.     <tr class="back"> 
  28.       <td width="18%" valign="top" class="hback"> <div align="left"> 
  29.           <!--#include file="menu.asp" -->
  30.         </div></td>
  31.       <td width="82%" valign="top" class="hback"><table width="98%" border="0" align="center" cellpadding="5" cellspacing="1" class="table">
  32.           <tr class="hback"> 
  33.             <td class="hback"><strong>位置：</strong><a href="../">网站首页</a> &gt;&gt; 
  34.             <a href="main.asp">会员首页</a> &gt;&gt; 会员列表统计</td>
  35.           </tr>
  36.         </table>
  37.         
  38.       <table width="98%" border="0" align="center" cellpadding="5" cellspacing="1" class="table">
  39.         <tr class="hback"> 
  40.           <td colspan="7" class="hback"><table width="100%" border="0" cellspacing="0" cellpadding="0">
  41.               <tr> 
  42.                 <td width="43%"> 共搜索到<strong> 
  43.                   <%
  44. Dim RsUserListObj,RsUserSQL
  45. Dim strpage,strSQLs,StrOrders
  46. strpage=request("page")
  47. if len(strpage)=0 Or strpage<1 or trim(strpage)=""  Then strpage="1"
  48. Set RsUserListObj = Server.CreateObject(G_FS_RS)
  49. if Request("RegTime") = "0" then
  50. StrOrders = " order by RegTime Desc"
  51. Elseif Request("RegTime")= "1" then
  52. StrOrders = " order by RegTime asc"
  53. Else
  54. StrOrders = " order by UserID Desc"
  55. End if
  56. If Request("Keyword")<>"" then
  57. if Request("searchtype") <>"" then
  58. if  Request("Name") = "UserName" then
  59.   strSQLs = " and UserName like '%" & Request("Keyword")& "%' "& StrOrders &""
  60. Elseif  Request("Name") = "UserNumber" then
  61.   strSQLs = " and UserNumber  like '%" & Request("Keyword")& "%' "& StrOrders &""
  62. Elseif  Request("Name") = "NickName" then
  63.   strSQLs = " and NickName  like '%" & Request("Keyword")& "%' "& StrOrders &""
  64. Elseif  Request("Name") = "RealName" then
  65.   strSQLs = " and RealName  like '%" & Request("Keyword")& "%' "& StrOrders &""
  66. Elseif  Request("Name") = "Email" then
  67.   strSQLs = " and Email  like '%" & Request("Keyword")& "%' "& StrOrders &""
  68. Elseif  Request("Name") = "QQ" then
  69.   strSQLs = " and QQ  like '%" & Request("Keyword")& "%' "& StrOrders &""
  70. Elseif  Request("Name") = "MSN" then
  71.   strSQLs = " and MSN  like '%" & Request("Keyword")& "%' "& StrOrders &""
  72. Elseif  Request("Name") = "Integral" then
  73.   strSQLs = " and Integral <"& Request("Keyword") &"+50 and Integral>"& Request("Keyword") &"-50 "& StrOrders &""
  74. Elseif  Request("Name") = "Province" then
  75.   strSQLs = " and Province  like '%" & Request("Keyword")& "%' "& StrOrders &""
  76. Elseif  Request("Name") = "city" then
  77.   strSQLs = " and city  like '%" & Request("Keyword")& "%' "& StrOrders &""
  78. End if
  79. Else
  80. if  Request("Name") = "UserName" then
  81.   strSQLs = " and UserName = '" & Request("Keyword")& "' "& StrOrders &""
  82. Elseif  Request("Name") = "UserNumber" then
  83.   strSQLs = " and UserNumber  = '" & Request("Keyword")& "' "& StrOrders &""
  84. Elseif  Request("Name") = "NickName" then
  85.   strSQLs = " and NickName  = '" & Request("Keyword")& "' "& StrOrders &""
  86. Elseif  Request("Name") = "RealName" then
  87.   strSQLs = " and RealName  = '" & Request("Keyword")& "' "& StrOrders &""
  88. Elseif  Request("Name") = "Email" then
  89.   strSQLs = " and Email  = '" & Request("Keyword")& "' "& StrOrders &""
  90. Elseif  Request("Name") = "QQ" then
  91.   strSQLs = " and QQ  = '" & Request("Keyword")& "' "& StrOrders &""
  92. Elseif  Request("Name") = "MSN" then
  93.   strSQLs = " and MSN  = '" & Request("Keyword")& "' "& StrOrders &""
  94. Elseif  Request("Name") = "Integral" then
  95.   strSQLs = " and Integral =" & clng(Request("Keyword"))& " "& StrOrders &""
  96. Elseif  Request("Name") = "Province" then
  97.   strSQLs = " and Province ='" & Request("Keyword")& "' "& StrOrders &""
  98. Elseif  Request("Name") = "city" then
  99.   strSQLs = " and city ='" & Request("Keyword")& "' "& StrOrders &""
  100. End if
  101. End if
  102. Else
  103. strSQLs = " "& StrOrders &""
  104. End if
  105. RsUserSQL = "Select UserID,UserName,UserNumber,RealName,Email,QQ,MSN,homepage,Integral,isLock,RegTime,Province,city From Fs_ME_Users  where isLock=0 "& strSQLs &""
  106. 'Response.Write(RsUserSQL)
  107. 'Response.end
  108. RsUserListObj.Open RsUserSQL,User_Conn,1,1
  109. Response.Write "<Font color=red>" & RsUserListObj.RecordCount&"</font>"
  110. %>
  111.                   </strong> 个会员</td>
  112.                 <form action="UserList.asp"  method="post" name="myform" id="myform">
  113.                   <td width="57%"><div align="left">搜索： 
  114.                       <select name="Name" id="select">
  115.                         <option value="UserName" <%if Request("Name")="UserName" then response.Write("selected")%>>用户名</option>
  116.                         <option value="UserNumber" <%if Request("Name")="UserNumber" then response.Write("selected")%>>用户编号</option>
  117.                         <option value="NickName" <%if Request("Name")="NickName" then response.Write("selected")%>>昵称</option>
  118.                         <option value="RealName" <%if Request("Name")="RealName" then response.Write("selected")%>>姓名</option>
  119.                         <option value="Email" <%if Request("Name")="Email" then response.Write("selected")%>>电子邮件</option>
  120.                         <option value="QQ" <%if Request("Name")="QQ" then response.Write("selected")%>>OICQ</option>
  121.                         <option value="MSN" <%if Request("Name")="MSN" then response.Write("selected")%>>MSN</option>
  122.                         <option value="Integral" <%if Request("Name")="Integral" then response.Write("selected")%>>50-积分+50</option>
  123.                         <option value="Province" <%if Request("Name")="Province" then response.Write("selected")%>>省份</option>
  124.                         <option value="city" <%if Request("Name")="city" then response.Write("selected")%>>城市</option>
  125.                       </select>
  126.                       <input name="keyword" type="text" id="keyword2" value="<%=Request("keyword")%>" size="10">
  127.                       <input name="searchtype" type="checkbox" id="searchtype" value="1" <%if Request("searchtype")="1" then Response.Write("checked")%> >
  128.                       模糊搜索 
  129.                       <input type="submit" name="Submit" value="搜索">
  130.                     </div></td>
  131.                 </form>
  132.               </tr>
  133.             </table></td>
  134.         </tr class="hback">
  135.         <tr class="hback"> 
  136.           <td width="17%" class="xingmu"><div align="left"><strong>
  137.   <%If cint(Request("RegTime"))=1 then%>
  138.   <a href="UserList.asp?page=<%=strpage%>&Keyword=<%=Request("Keyword")%>&Name=<%=Request("Name")%>&searchtype=<%=Request("searchtype")%>&RegTime=0&CountPage=<%=Request("CountPage")%>&Integral=" class="LinkCss">用户名</a>
  139.   <%Elseif  cint(Request("RegTime"))=0 then %>
  140.   <a href="UserList.asp?page=<%=strpage%>&Keyword=<%=Request("Keyword")%>&Name=<%=Request("Name")%>&searchtype=<%=Request("searchtype")%>&RegTime=1&CountPage=<%=Request("CountPage")%>&Integral=" class="LinkCss">用户名</a>
  141.   <%End if%>
  142.   </strong></div></td>
  143.           <td width="18%" class="xingmu"><div align="left"><strong>编号</strong></div></td>
  144.           <td width="13%" class="xingmu"><div align="left"><strong>OICQ</strong></div></td>
  145.           <td width="9%" class="xingmu"><div align="center"><strong>Email</strong></div></td>
  146.           <td width="7%" class="xingmu"><div align="center"><strong>主页</strong></div></td>
  147.           <td width="10%" class="xingmu"><div align="center"><strong>积分</strong></div></td>
  148.           <td width="26%" class="xingmu"><div align="center"><strong>操作</strong></div></td>
  149.         </tr>
  150.         <%
  151. Dim select_count,select_pagecount,i
  152. if RsUserListObj.eof then
  153.    RsUserListObj.close
  154.    set RsUserListObj=nothing
  155.    Response.Write"<TR><TD colspan=""7""  class=""hback"">没有记录。</TD></TR>"
  156. else
  157. if Request("CountPage")="" or len(Request("CountPage"))<1 then
  158. RsUserListObj.pagesize = 20
  159. Else
  160. RsUserListObj.pagesize = Request("CountPage")
  161. End if
  162. RsUserListObj.absolutepage=cint(strpage)
  163. select_count=RsUserListObj.recordcount
  164. select_pagecount=RsUserListObj.pagecount
  165. for i=1 to RsUserListObj.pagesize
  166. if RsUserListObj.eof Then exit For 
  167. %>
  168.         <tr  onMouseOver=overColor(this) onMouseOut=outColor(this)>
  169.           <td class="hback"><div align="left"><a href="ShowUser.asp?UserNumber=<% = RsUserListObj("UserNumber")%>"> 
  170.               <% = RsUserListObj("UserName")%>
  171.               </a></div></td>
  172.           <td class="hback"><div align="left"> 
  173.               <% = RsUserListObj("UserNumber")%>
  174.             </div></td>
  175.           <td class="hback"><div align="left"> 
  176.               <%
  177. if  Len(Trim(RsUserListObj("QQ")))>4 then
  178. Dim sOICQ
  179.     sOICQ ="<a target=blank href=http://wpa.qq.com/msgrd?V=1&Uin="& RsUserListObj("QQ") &"&Site=FoosunCMS&Menu=yes><img border=""0"" SRC=http://wpa.qq.com/pa?p=1:"& RsUserListObj("QQ") &":16 alt=""点击这里给"& RsUserListObj("QQ") &"发消息""></a>"
  180. Response.Write sOICQ
  181. Else
  182. Response.Write("没有")
  183. End if
  184. %>
  185.             </div></td>
  186.           <td class="hback"><div align="center"><a href="mailto:<% = RsUserListObj("Email")%>">发信</a></div></td>
  187.           <td class="hback"><div align="center"><a href="<% = RsUserListObj("homepage")%>">主页</a></div></td>
  188.           <td class="hback"><div align="center">
  189.               <% = RsUserListObj("Integral")%>
  190.             </div></td>
  191.           <td class="hback"><div align="center"><a href="UserReport.asp?action=report&ToUserNumber=<%=RsUserListObj("UserNumber")%>">举报</a>&nbsp;|&nbsp;<a href="message_write.asp?ToUserNumber=<%=RsUserListObj("UserNumber")%>">发信</a>&nbsp;|&nbsp;<a href="Book_write.asp?ToUserNumber=<%=RsUserListObj("UserNumber")%>&M_type=0">留言</a>&nbsp;|&nbsp;<a href="Friend_add.asp?type=0&ToUserNumber=<%=RsUserListObj("UserNumber")%>&action=addFriend"   onClick="{if(confirm('确认添加为好友吗?')){this.document.inbox.submit();return true;}return false;}">好友</a>&nbsp;</div></td>
  192.         </tr>
  193.         <%
  194.   RsUserListObj.MoveNext
  195.   Next
  196.   %>
  197.         <tr class="hback"> 
  198.           <td colspan="7" class="xingmu"> 
  199.               <table width="100%" border="0" cellspacing="0" cellpadding="0">
  200.               <tr> 
  201.                 <td width="80%"> <span class="top_navi">
  202. <%  Response.Write("每页:"& RsUserListObj.pagesize &"个,")
  203. Response.write"&nbsp;共<b>"& select_pagecount &"</b>页<b>&nbsp;" & select_count &"</b>条记录，本页是第<b>"& strpage &"</b>页。"
  204. if int(strpage)>1 then
  205. Response.Write"&nbsp;<a href=?page=1&Keyword="&Request("Keyword")&"&Name="& Request("Name")&"&searchtype="&Request("searchtype")&"&RegTime="&Request("RegTime")&"&CountPage="&Request("CountPage")&"&Integral="& Request("Integral")&">第一页</a>&nbsp;&nbsp;"
  206. Response.Write"&nbsp;<a href=?page="&cstr(cint(strpage)-1)&"&Keyword="&Request("Keyword")&"&Name="& Request("Name")&"&searchtype="&Request("searchtype")&"&RegTime="&Request("RegTime")&"&CountPage="&Request("CountPage")&"&Integral="& Request("Integral")&">上一页</a>&nbsp;&nbsp;"
  207. End if
  208. If int(strpage)<select_pagecount then
  209. Response.Write"&nbsp;<a href=?page="&cstr(cint(strpage)+1)&"&Keyword="&Request("Keyword")&"&Name="& Request("Name")&"&searchtype="&Request("searchtype")&"&RegTime="&Request("RegTime")&"&CountPage="&Request("CountPage")&"&Integral="& Request("Integral")&">下一页</a>&nbsp;"
  210. Response.Write"&nbsp;<a href=?page="& select_pagecount &"&Keyword="&Request("Keyword")&"&Name="& Request("Name")&"&searchtype="&Request("searchtype")&"&RegTime="&Request("RegTime")&"&CountPage="&Request("CountPage")&"&Integral="& Request("Integral")&">最后一页</a>&nbsp;&nbsp;"
  211. End if
  212. Response.Write"<br>"
  213. RsUserListObj.close
  214. Set RsUserListObj=nothing
  215. End if
  216. %> </SPAN></td>
  217.               </tr>
  218.             </table>
  219.             </td>
  220.         </tr>
  221.       </table></td>
  222.     </tr>
  223.     <tr class="back"> 
  224.       <td height="20"  colspan="2" class="xingmu"> <div align="left"> 
  225.           <!--#include file="Copyright.asp" -->
  226.         </div></td>
  227.     </tr>
  228.  
  229. </table>
  230. </body>
  231. </html>
  232. <%
  233. Set Fs_User = Nothing
  234. %>
  235. <!--Powsered by Foosun Inc.,Product:FoosunCMS V4.0系列-->