www.gusucode.com > 艺术签名文章资讯网源代码 > 艺术签名文章资讯网源代码/624/user/userlist.asp
<!--#include file="config.asp"--> <!--#include file="../inc/classmenu.asp"--> <% Dim HtmlContent,TempListContent,ChannelRootDir Dim userid,username userid = Newasp.ChkNumeric(Request("userid")) username = Newasp.CheckStr(Request("name")) username = Newasp.CheckBadstr(username) ChannelRootDir = Newasp.InstallDir & "user/" Newasp.LoadTemplates 9999, 5, 0 HtmlContent = Newasp.HtmlContent HtmlContent = Replace(HtmlContent,"{$InstallDir}", Newasp.InstallDir) HtmlContent = Replace(HtmlContent, "{$ChannelID}", 0) '--频道目录 HtmlContent = Replace(HtmlContent,"{$ChannelRootDir}", ChannelRootDir) HtmlContent = ReadClassMenu(HtmlContent) HtmlContent = ReadClassMenubar(HtmlContent) If userid = 0 And Len(username) = 0 Then Call ShowUserList Else Call ShowUserInfo End If If Founderr = True Then Call Returnerr(ErrMsg) End If CloseConn Public Sub ShowUserList() Dim Rs,SQL,i,j,forbid Dim maxperpage,CurrentPage,Pcount,totalrec,totalnumber Dim strList,strName,RowCode,strContent,strUserName Dim strHomePage,strUserMail,strShowPage forbid = Newasp.ChkNumeric(Newasp.HtmlSetting(17)) If forbid = 2 Then ErrMsg = Newasp.HtmlSetting(18) Founderr = True Exit Sub End If If forbid = 1 Then If CInt(Newasp.membergrade) = 0 Then ErrMsg = Newasp.HtmlSetting(19) Founderr = True Exit Sub End If End If maxperpage = Newasp.ChkNumeric(Newasp.HtmlSetting(11)) If maxperpage = 0 Then maxperpage = 20 CurrentPage = Newasp.ChkNumeric(Request("page")) If CurrentPage = 0 Then CurrentPage = 1 'If Not IsObject(Conn) Then ConnectionDatabase SQL = "SELECT userid,username,nickname,UserGrade,UserGroup,UserClass,UserLock,userpoint,usermoney,TrueName,UserSex,usermail,HomePage,oicq,JoinTime,ExpireTime,LastTime,userlogin FROM [NC_User] ORDER BY JoinTime DESC ,userid DESC" Set Rs = Server.CreateObject("ADODB.Recordset") Rs.Open SQL,Conn,1,1 If Not (Rs.BOF And Rs.EOF) Then totalrec = Rs.RecordCount Pcount = CLng(totalrec / maxperpage) '得到总页数 If Pcount < totalrec / maxperpage Then Pcount = Pcount + 1 If CurrentPage < 1 Then CurrentPage = 1 If CurrentPage > Pcount Then CurrentPage = Pcount Rs.PageSize = maxperpage Rs.AbsolutePage = CurrentPage i = 0 j = (CurrentPage - 1) * maxperpage + 1 Do While Not Rs.EOF And i < maxperpage If Not Response.IsClientConnected Then ResponseEnd If (i mod 2) = 0 Then RowCode = 1 Else RowCode = 2 End If strContent = strContent & Newasp.HtmlSetting(13) strUserName = "<a href=""?userid=" & Rs("userid") & """>" & Rs("username") & "</a>" strContent = Replace(strContent, "{$UserName}", strUserName) strContent = Replace(strContent, "{$UserID}", Rs("userid")) strContent = Replace(strContent, "{$UserLogin}", Rs("userlogin")) strContent = Replace(strContent, "{$UserPoint}", Rs("userpoint")) strContent = Replace(strContent, "{$UserSex}", Rs("UserSex")) strContent = Replace(strContent, "{$UserQQ}", Rs("oicq")) strContent = Replace(strContent, "{$LastTime}", Rs("LastTime")) strContent = Replace(strContent, "{$DateAndTime}", Rs("JoinTime")) strContent = Replace(strContent, "{$OrderID}", j) strUserMail = "<a href=""mailto:" & Rs("usermail") & """ target=""_blank"" title=""给此用户发送邮件"">电子信箱</a>" strContent = Replace(strContent, "{$UserMail}", strUserMail) strContent = Replace(strContent, "{$UserGroup}", Rs("UserGroup")) If Newasp.CheckNull(Rs("HomePage")) Then strHomePage = "<a href=""" & Rs("HomePage") & """ target=""_blank"" title=""点击查看用户主页"">用户主页</a>" strContent = Replace(strContent, "{$HomePage}", strHomePage) Else strContent = Replace(strContent, "{$HomePage}", "没有主页") End If Rs.movenext i = i + 1 j = j + 1 If i >= maxperpage Then Exit Do Loop End If Rs.Close:Set Rs = Nothing strShowPage = ShowPages(CurrentPage,Pcount,totalrec,maxperpage,"") TempListContent = Newasp.HtmlSetting(12) & strContent & Newasp.HtmlSetting(14) HtmlContent = Replace(HtmlContent,"{$UserManageContent}", TempListContent) HtmlContent = Replace(HtmlContent, "{$ReadListPage}", strShowPage) HtmlContent = Replace(HtmlContent,"{$PageTitle}",Newasp.HtmlSetting(10)) Response.Write HtmlContent End Sub Sub ShowUserInfo() If userid = 0 And Len(username) = 0 Then Exit Sub Dim Rs,SQL,forbid,sendurl Dim strContent,strHomePage,strUserMail forbid = Newasp.ChkNumeric(Newasp.HtmlSetting(17)) If forbid = 2 Then ErrMsg = Newasp.HtmlSetting(18) Founderr = True Exit Sub End If If forbid = 1 Then If CInt(Newasp.membergrade) = 0 Then ErrMsg = Newasp.HtmlSetting(19) Founderr = True Exit Sub End If End If If userid = 0 Then SQL = "SELECT userid,username,nickname,UserGrade,UserGroup,UserClass,UserLock,userpoint,usermoney,TrueName,UserSex,usermail,HomePage,oicq,JoinTime,ExpireTime,LastTime,userlogin FROM [NC_User] WHERE username='" & username &"'" Else SQL = "SELECT userid,username,nickname,UserGrade,UserGroup,UserClass,UserLock,userpoint,usermoney,TrueName,UserSex,usermail,HomePage,oicq,JoinTime,ExpireTime,LastTime,userlogin FROM [NC_User] WHERE userid=" & userid End If Set Rs = Newasp.Execute(SQL) strContent = "" If Not (Rs.BOF And Rs.EOF) Then sendurl = "message.asp?action=new&touser="& Rs("username") strContent = Newasp.HtmlSetting(16) strContent = Replace(strContent, "{$UserName}", Rs("username")) strContent = Replace(strContent, "{$username}", "<a href=""" & sendurl & """ target=""_blank"">" & Rs("username") & "</a>") strContent = Replace(strContent, "{$UserID}", Rs("userid")) strContent = Replace(strContent, "{$UserGroup}", Rs("UserGroup")) strContent = Replace(strContent, "{$UserLogin}", Rs("userlogin")) strContent = Replace(strContent, "{$UserPoint}", Rs("userpoint")) strContent = Replace(strContent, "{$UserSex}", Rs("UserSex")) strContent = Replace(strContent, "{$SendUrl}", sendurl) strContent = Replace(strContent, "{$SendMessage}", "<a href=""" & sendurl & """ target=""_blank"">发送短消息</a>") strContent = Replace(strContent, "{$UserQQ}", Newasp.ChkNull(Rs("oicq"))) strContent = Replace(strContent, "{$LastTime}", Rs("LastTime")) strContent = Replace(strContent, "{$DateAndTime}", Rs("JoinTime")) strUserMail = "<a href=""mailto:" & Rs("usermail") & """ target=""_blank"" title=""给此用户发送邮件"">" & Rs("usermail") & "</a>" strContent = Replace(strContent, "{$UserMail}", strUserMail) If Newasp.CheckNull(Rs("HomePage")) Then strHomePage = "<a href=""" & Rs("HomePage") & """ target=""_blank"" title=""点击查看用户主页"">" & Rs("HomePage") & "</a>" strContent = Replace(strContent, "{$HomePage}", strHomePage) Else strContent = Replace(strContent, "{$HomePage}", "没有主页") End If End If Rs.Close:Set Rs = Nothing HtmlContent = Replace(HtmlContent,"{$UserManageContent}", strContent) HtmlContent = Replace(HtmlContent,"{$PageTitle}",Newasp.HtmlSetting(15)) Response.Write HtmlContent End Sub %>