<% if Instr(session("AdminPurview"),"|33,")=0 then response.write ("

您没有管理该模块的权限！

") response.end end if %>
<% NewsList() %>

ID

用户名

管理权限

登录IP

浏览器

创建时间

<% function NewsList() dim idCount dim pages pages=20 dim pagec dim page page=clng(request("Page")) dim pagenc pagenc=2 dim pagenmax dim pagenmin dim datafrom datafrom="AdminLog" dim datawhere datawhere="" dim sqlid dim Myself,PATH_INFO,QUERY_STRING PATH_INFO = request.servervariables("PATH_INFO") QUERY_STRING = request.ServerVariables("QUERY_STRING")' if QUERY_STRING = "" or Instr(PATH_INFO & "?" & QUERY_STRING,"Page=")=0 then Myself = PATH_INFO & "?" else Myself = Left(PATH_INFO & "?" & QUERY_STRING,Instr(PATH_INFO & "?" & QUERY_STRING,"Page=")-1) end if dim taxis taxis="order by id desc" dim i dim rs,sql sql="select count(ID) as idCount from ["& datafrom &"]" & datawhere set rs=server.createobject("adodb.recordset") rs.open sql,conn,0,1 idCount=rs("idCount") if(idcount>0) then if(idcount mod pages=0)then pagec=int(idcount/pages) else pagec=int(idcount/pages)+1 end if sql="select id from ["& datafrom &"] " & datawhere & taxis set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,1 rs.pagesize = pages if page < 1 then page = 1 if page > pagec then page = pagec if pagec > 0 then rs.absolutepage = page for i=1 to rs.pagesize if rs.eof then exit for if(i=1)then sqlid=rs("id") else sqlid=sqlid &","&rs("id") end if rs.movenext next end if if(idcount>0 and sqlid<>"") then sql="select [ID],[AdminName],[UserName],[LoginIP],[LoginSoft],[LoginTime] from ["& datafrom &"] where id in("& sqlid &") "&taxis set rs=server.createobject("adodb.recordset") rs.open sql,conn,0,1 while(not rs.eof) Response.Write "" & vbCrLf Response.Write ""&rs("ID")&"" & vbCrLf Response.Write ""&rs("AdminName")&"" & vbCrLf Response.Write ""&rs("UserName")&"" & vbCrLf Response.Write ""&rs("LoginIP")&"" & vbCrLf if len(rs("LoginSoft"))>50 then Response.Write ""&left(rs("LoginSoft"),50)&"…" & vbCrLf Else Response.Write ""&rs("LoginSoft")&"" & vbCrLf End If Response.Write ""&rs("LoginTime")&"" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf rs.movenext wend Response.Write "" & vbCrLf Response.Write " " & vbCrLf Response.Write "" & vbCrLf else response.write "暂无相关记录" end if Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "

共计："&idcount&"条记录 页次："&page&"/"&pagec&" 每页："&pages&"条

" & vbCrLf pagenmin=page-pagenc pagenmax=page+pagenc if(pagenmin<1) then pagenmin=1 if(page>1) then response.write ("9 ") if(pagenmin>1) then response.write ("7 ") if(pagenmax>pagec) then pagenmax=pagec for i = pagenmin to pagenmax if(i=page) then response.write (" "& i &" ") else response.write ("["& i &"]") end if next if(pagenmax8 ") if(page: ") Response.Write "第页" & vbCrLf Response.Write "" & vbCrLf Response.Write "

" & vbCrLf rs.close set rs=nothing Response.Write "" & vbCrLf Response.Write "" & vbCrLf end Function %>