<!--#include file="wapconn.asp"-->
<!--#include file="wapstr.asp"-->
<%
response.ContentType="text/vnd.wap.wml;charset=utf-8"
Response.Expires = -1
Response.AddHeader "Pragma", "no-cache"
Response.AddHeader "Cache-Control", "no-cache, must-revalidate"
%><?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN"
"http://www.wapforum.org/DTD/wml_1.1.xml">
<%
Dim Page
Dim rs
Dim Num
Dim PageSize
Dim PageCount
Dim Pageto
Dim i
Dim SQL
Dim userid,username,blogname
Page=1
if Request("Page")<>"" then Page = CLng(Request("Page"))
	Set rs=conn.execute("select Count(*) from [user] where lockuser='false'")
	If not(rs.bof and rs.eof) then
	Num=rs(0)
	End if
	Rs.close:Set rs=Nothing
PageSize=30
PageCount=Cint((Num)/PageSize+0.5)
Pageto=Cint(Num)
if Page < 1 or IsNull(Page) Then  Page = 1
if Page > PageCount Then  Page = PageCount
%>
<wml>
<card id="wapuserlist" title="<%=converttowide("日志排行")%>">
<p>
<%
	sql="SELECT top "&cstr(PageSize*(Page))&" userid,username,blogname,logcount from [user] where lockuser='false' ORDER BY logcount desc"
	Set rs=conn.execute(SQL)
	If not(rs.bof and rs.eof) then
	rs.Move PageSize*(Page-1)
	While not rs.eof
	userid=rs(0)
	username=rs(1)
	blogname=rs(2)
	logcount=rs(3)
		if blogname<>"" then
			blogname=blogname
		else
			blogname=username
		end if
	Response.Write "<a href=""wapuser.asp?id="&userid&""">"&(converttowide(blogname))&"&nbsp;"&((logcount))&"</a><br/>"
	rs.MoveNext
	wend
	End if
	Rs.close:Set rs=Nothing

Response.Write(converttowide("共有個人日志"))&Pageto&(converttowide("個，每頁"))&PageSize&(converttowide("個，共分"))&PageCount&(converttowide("頁。"))&"<br/>"
if Page="" or Page=1 then
Response.Write "<a href=""wapbloglist.asp?Page="&Page+1&""">"&(converttowide("下一頁"))&"</a><br/>"
elseif Page=PageCount then
Response.Write "<a href=""wapbloglist.asp?Page="&Page-1&""">"&(converttowide("上一頁"))&"</a><br/>"
else
Response.Write "<a href=""wapbloglist.asp?Page="&Page-1&""">"&(converttowide("上一頁"))&"</a><br/>"
Response.Write "<a href=""wapbloglist.asp?Page="&Page+1&""">"&(converttowide("下一頁"))&"</a><br/>"
end if
Response.Write "<a href=""wapblog.asp"">"&(converttowide("返還最新日志"))&"</a><br/>"
Response.Write "<a href=""wapuserlist.asp"">"&(converttowide("返還博客排行"))&"</a><br/>"
Response.Write"<a href=""wap.asp"">"&(converttowide("返還博客首頁"))&"</a>"
%>
</p>
</card>
</wml>