<!--#include file="conn.asp"-->
<!-- #include file="inc/const.asp" -->
<!-- #include file="Jy_Plus/HappyLover/inc.asp" -->
<%
if isAllowGuest = 0 and Dvbbs.userid=0 Then
	Dvbbs.AddErrCode(6):Dvbbs.Showerr()
end if
Dvbbs.LoadTemplates("")
Dvbbs.stats = "ÁµÈËÁÐ±í"

Dvbbs.Nav()
Dvbbs.Head_var 0,0,myPlus.PlusName,"plus_HappyLover.asp"
call Main()
myPlus.CheckEdition()
myPlus.Copyright()
Dvbbs.ActiveOnline()
Dvbbs.footer()

Sub Main()
dim rs,sql,thisPage,ipageCount,iRecordsShow
sql="select UserName,plus_love_love,plus_love_time from dv_user where plus_love_love>'' and usersex=1 order by plus_love_time desc"
if isNumeric(Request.QueryString("page")) = false Then
	thisPage=1
else
	thisPage=Cint(Request.QueryString("page"))
end if
ConnectionDatabase()
Set Rs=Server.CreateObject("ADODB.Recordset")
Rs.pageSize=thePageSize
Rs.cacheSize=thePageSize
Rs.Open sql,Conn,3,1
ipageCount=Rs.pageCount
%>
<table border=0 align=center cellpadding=0 cellspacing=0 width="<%= dvbbs.mainsetting(0) %>"><tr><td>
  <%
if ipageCount>0 Then
	response.write "<table><tr><td>¡¡¡¡Ò³Âë:¡¡"
	dim i
	For i=1 to ipageCount
		response.write "<a href=""?page="&i&""">"&i&"</a>&nbsp;"
	Next
	response.write "</td></tr></table>"
	Rs.Absolutepage=1
	iRecordsShow=0				
	response.write "<table border=0 align=center cellpadding=3 cellspacing=1  style='width:97%;' class=tableborder1 height=150><tr>"
	Do While iRecordsShow<thePageSize And Not Rs.Eof
	%>
  <td class=TableBody1><img src=skins/default/Male.gif><%= Rs(0) %> </td>
    <td class=TableBody1><img src=skins/default/FeMale.gif><%= Rs(1) %> </td>
    <td class=TableBody1><%= Rs(2) %> </td>
    <%
	if (iRecordsShow mod 2 =1) and iRecordsShow<>thePageSize then
		response.write("</tr><tr>")
		else
		response.write("<td></td>")		
	end if
	iRecordsShow=iRecordsShow+1
	Rs.MoveNext
	Loop
	response.write "</tr></atble>"
end if
%></td>
  </tr>
</table><br>

<%
end sub
%>
