userlist.asp

blog 程序 DIV BLOG 0.6 Readme [ http://www.IamTing.com ] DIV BLOG 0.6版更新说明 =====================

<!--#INCLUDE FILE="conn.asp" -->
<!--#include file="ubbcode.asp" -->
<!--#include file="log_lib.asp" -->


<script>
function runEx(cod1)  {
 cod=document.all(cod1)
  var code=cod.value;
  if (code!=""){
  var newwin=window.open('','','');  
  newwin.opener = null 
  newwin.document.write(code);  
  newwin.document.close();
}
}

function check(theForm) {
	if(theForm.key.value == ""  ) {
		alert("关键词不能为空");
		return false;
	}
}
</script>

<%
sql="select * from moban where m_id="&m_id&""
set rs=conn.EXECUTE(sql)

if rs.eof or rs.bof then
   sql="select * from moban where m_id=1"
   set rs=conn.EXECUTE(sql)
end if

mb_code=rs("m_html")
rs.close
set rs=nothing
'=====================================写入登陆信息
checkuser()
mb_code=replace(mb_code,"$checkuser$",check_user)
'=======================================写入日历
calenda l_year,l_month,l_day
mb_code=replace(mb_code,"$calenda$",ccode)
'=======================================写入Top10
getTop()
mb_code=replace(mb_code,"$top10$",tcode)

'=======================================写入RSS
getRss()
mb_code=replace(mb_code,"$rss$",rsscode)

'=======================================写入日志信息
getloginfo()
mb_code=replace(mb_code,"$log_info$",icode)
'=======================================写入分类列表
getcatlist()
mb_code=replace(mb_code,"$log_cat_list$",lcode)
'=======================================写入搜索表单
getsearchcode()
mb_code=replace(mb_code,"$search_form$",sccode)
'=======================================写入内容
dim orderformcode
orderformcode="<div id='userlist'><div><form name=form1 method=post action=userlist.asp><select name=by><option value=username selected>用户名</option><option value=email>MAIL</option><option value=qq>OICQ</option><option value=homepage>主页</option><option value=reg_time>注册时间</option><option value=f_r_count>评论数</option></select> <select name=order><option value=desc selected>降序</option><option value=asc>升序</option></select> <input type=submit name=Submit value=排序></form></div>"


dim ucode
dim plist,maxpages,mypage
sub getuserlist
ucode=ucode&orderformcode

order=replace(request("order"),"'","")
if order="" then order="desc"
by=replace(request("by"),"'","")
if by="" then by="reg_time"

if not isempty(request("page")) then
                    Mypage=cint(Request("page"))
                else
                    Mypage=1
                end if


set rs = Server.CreateObject("ADODB.Recordset")
sql="SELECT * FROM user_mdb ORDER BY "&by&" "&order
rs.open sql,conn,1,1

Mypagesize =30
rs.pagesize=Mypagesize
maxpages=cint(rs.pagecount)
totalsize=cint(Mypagesize)
rs.absolutepage=Mypage
GuestTotal=rs.RecordCount

if cint(Mypage) >1 then
    if cint(Mypage) > maxpages then
	     ucode=ucode&"嘿嘿，所翻到的这一页是空白的，不要捣乱哦"
         exit sub
    end if
end if

pagelink

ucode=ucode&"<div> TOTAL:"&MyPageSize&"/"&GuestTotal&".  PAGES: "&cint(Mypage)&"/"&maxpages&"</div>"

ucode=ucode&"<div id=""ListNum"">"&Plist&"</div>"

ucode=ucode&"<div id=""UserName"">用户名</div><div id=""RegTime"">注册时间</div><Div id=""CommandNum"">评论数</div>"

  total = 0

  do until rs.Eof or total = totalsize
  

	ucode=ucode&"<div id=""UserName"">"
	un=rs("username")
	ucode=ucode&"<a href='usermdb.asp?un="&un&"'>"&un&"</a></div>"
	ucode=ucode&"<div id=""RegTime"">"&rs("reg_time")&"</div>"
	ucode=ucode&"<Div id=""CommandNum"">"&cint(rs("f_r_count"))&"</div>"
  rs.MoveNext          
  ic = ic + 1
  if ic = 2 then ic = 0
  total = total + 1
  loop                  
ucode=ucode&"<div id=""ListNum"">"&Plist&"</div></div>"
end sub

'===================================================
getuserlist
mb_code=replace(mb_code,"$main_content$",ucode)


response.write mb_code


%>


<%

function PageLink  
  
PageShowSize = 10  
Scriptname=Request.Servervariables("script_name")  
PageNextSize=int((MyPage-1)/PageShowSize)+1  
Pagetpage=int((GuestTotal-1)/MyPageSize)+1  
  
if Maxpages > 1 then  
   if PageNextSize >1 then  
       PagePrev=PageShowSize*(PageNextSize-1)  
       plist=plist&"<a href='" & Scriptname & "?page=" & PagePrev & "'>[<<]</a>-"  
   end if  
   if Mypage-1 > 0 then  
       Prev_Page = MyPage - 1  
       plist=plist&"<a href='" & Scriptname & "?page=" & Prev_Page & "'>[<]</a> "  
   end if  
   if maxpages>=PageNextSize*PageShowSize then  
       PageSizeShow = PageShowSize  
   else  
       PageSizeShow = Maxpages-PageShowSize*(PageNextSize-1)  
   end if  
   for PageCounterSize=1 to PageSizeShow  
       PageLink = (PageCounterSize+PageNextSize*10)-10  
       if PageLink <> cint(Mypage) then  
	   plist=plist&"<a href='" & Scriptname & "?page=" & PageLink & "'>[" & PageLink & "]</a> "  
       else  
           plist=plist&PageLink  & "  "  
       end if   
   next  
   if Mypage+1 <=Pagetpage  then  
       Next_Page = MyPage + 1  
       plist=plist&"<a href='" & Scriptname & "?page=" & Next_Page & "'>[>]</a>"  
   end if  
   if maxpages > PageShowSize*PageNextSize then  
       PageNext = PageShowSize * PageNextSize + 1  
       plist=plist&"-<a href='" & Scriptname & "?page=" & PageNext & "'>[>>]</a>"  
   end if  
   else  
       plist=plist&"[1]"  
end if  
END function   

conn.close
set conn=nothing
%>

<!--#include file="bottom.asp"-->