<% '************************************************************** ' Software name: PowerEasy SiteWeaver ' Web: http://www.powereasy.net ' Copyright (C) 2005-2008 佛山市动易网络科技有限公司 版权所有 '************************************************************** ChannelID = 0 PageTitle = "会员列表" strFileName = "UserList.asp?ChannelID=" & ChannelID Dim OrderType OrderType = Trim(Request("OrderType")) If OrderType = "" Then OrderType = 1 Else OrderType = CLng(OrderType) End If strNavPath = strNavPath & strNavLink & " " & PageTitle strHtml = GetTemplate(0, 9, 0) Call ReplaceCommonLabel strHtml = Replace(strHtml, "{$PageTitle}", SiteTitle & " >> " & PageTitle) strHtml = Replace(strHtml, "{$ShowPath}", strNavPath) strHtml = Replace(strHtml, "{$MenuJS}", GetMenuJS("", False)) strHtml = Replace(strHtml, "{$Skin_CSS}", GetSkin_CSS(0)) strHtml = Replace(strHtml, "{$ShowUserList}", GetUserList()) If InStr(strHtml, "{$ShowPage}") > 0 Then strHtml = Replace(strHtml, "{$ShowPage}", ShowPage(strFileName & "&OrderType=" & OrderType, totalPut, MaxPerPage, CurrentPage, True, True, XmlText("ShowSource", "ShowUserList/PageChar", "个会员"), False)) If InStr(strHtml, "{$ShowPage_en}") > 0 Then strHtml = Replace(strHtml, "{$ShowPage_en}", ShowPage_en(strFileName & "&OrderType=" & OrderType, totalPut, MaxPerPage, CurrentPage, True, True, XmlText("ShowSource", "ShowUserList/PageChar", "个会员"), False)) Response.Write strHtml Call CloseConn Function GetUserList() Dim sqlUser, rsUser, strUserList, i sqlUser = "select U.UserID,U.UserName,U.UserType,U.UserFace,U.Sign,U.Privacy,U.PostItems,U.RegTime,U.PassedItems,C.Sex, C.ZipCode,C.Fax,C.OfficePhone,C.HomePhone,C.Address,C.Department,C.Company,C.TrueName,C.QQ,C.ICQ,C.MSN,C.Email,C.HomePage,C.Birthday from PE_User U left join PE_Contacter C on U.ContacterID=C.ContacterID " Select Case OrderType Case 1 sqlUser = sqlUser & " order by U.PassedItems desc" Case 2 sqlUser = sqlUser & " order by U.RegTime desc" Case 3 sqlUser = sqlUser & " order by U.UserID desc" End Select Set rsUser = Server.CreateObject("adodb.recordset") rsUser.Open sqlUser, Conn, 1, 1 If rsUser.BOF And rsUser.EOF Then totalPut = 0 strUserList = strUserList & "
  • " & XmlText("ShowSource", "ShowUserList/NoFoundUser", "没有任何会员") & "
  • " Else totalPut = rsUser.RecordCount If CurrentPage > 1 Then If (CurrentPage - 1) * MaxPerPage < totalPut Then rsUser.Move (CurrentPage - 1) * MaxPerPage Else CurrentPage = 1 End If End If i = 0 Dim UserHomepage, UserQQ, UserICQ, UserMSN, UserSex, UserEmail, UserRegTime, UserPass strUserList = strUserList & "" strUserList = strUserList & "" strUserList = strUserList & XmlText("ShowSource", "ShowUserList/t1", "") Do While Not rsUser.EOF If rsUser("Privacy") = 2 Then UserHomepage = Secrit UserQQ = Secrit UserICQ = Secrit UserMSN = Secrit UserSex = Secrit UserEmail = Secrit UserRegTime = Secrit Else If rsUser("Homepage") = "" Then UserHomepage = NoEnter Else UserHomepage = "" & rsUser("Homepage") & "" End If If rsUser("QQ") = "" Then UserQQ = NoEnter Else UserQQ = rsUser("QQ") End If If rsUser("ICQ") = "" Then UserICQ = NoEnter Else UserICQ = rsUser("ICQ") End If If rsUser("MSN") = "" Then UserMSN = NoEnter Else UserMSN = rsUser("MSN") End If If rsUser("Sex") = 2 Then UserSex = strGirl ElseIf rsUser("Sex") = 1 Then UserSex = strMan Else UserSex = Secrit End If If rsUser("Email") = "" Then UserEmail = NoEnter Else UserEmail = "" & rsUser("Email") & "" End If If rsUser("RegTime") = "" Then UserRegTime = NoEnter Else UserRegTime = Year(rsUser("RegTime")) & strYear & Month(rsUser("RegTime")) & strMonth & Day(rsUser("RegTime")) & strDay End If End If strUserList = strUserList & ("") strUserList = strUserList & ("") strUserList = strUserList & ("") rsUser.MoveNext i = i + 1 If i >= MaxPerPage Then Exit Do Loop strUserList = strUserList & "
    " & Replace(XmlText("ShowSource", "ShowUserList/Order", "按发表文章数排序    按注册日期排序    按会员ID排序"), "{$strFileName}", strFileName) & "
    会员昵称性别EmailQQ号码MSN主页注册日期文章数
    " & rsUser("UserName") & "" & UserSex & "" & UserEmail & "" & UserQQ & "" & UserMSN & "" & UserHomepage & "" & UserRegTime & "" & rsUser("PassedItems") & "
    " '完毕 End If rsUser.Close Set rsUser = Nothing GetUserList = strUserList End Function %> 安徽快三 上海快3 百度一下,你就知道 江苏快三官网 北京快三彩票 末代皇后隆裕 qq特工之密码破解秀 快3APP 河南快三软件 广西快三 湖北快3app 青海快三杀号 陆贞传奇阿碧的结局 朱维民 失意之棒 <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <文本链> <文本链> <文本链> <文本链> <文本链> <文本链>