?<!--#INCLUDE file="data.asp"-->
<%
  admin=Request("admin")
  user =Request("user") 
  ada=15
  if request("page")<>"" then 
  page=cint(request.QueryString("page"))
  if page="" or page<=0 then page=1
  Else
  page=1
  End if
  if admin="" then
  Response.Redirect "login.asp"
  Response.End
  End if
Set conn=Server.CreateObject("ADODB.connection")
conn.Open Provider&DBPath
set rs=Server.CreateObject("ADODB.Recordset")
  sql="select * from admin where admin='"&admin&"'"
  rs.open sql,conn
 Response.write "<card id='card1' title='他推薦的會員'>"
 Response.write "<p align='left'>"
 if not rs.eof then
 Set rt= Server.CreateObject("ADODB.Recordset")
sql="SELECT * From users WHERE recommend = '"&user&"' Order By rc desc"
rt.Open sql,conn,1,2
if Not rs.EOF Then
rs.MoveFirst
if rt.recordcount= 0 then response.Write"*暫無內容*<br/>"
if rt.recordcount > 0 then
rt.Move((page-1)*ada)
dim j
j=1
response.write"共" & rt.recordcount & "位成員!<br/>"
do while ((not rt.EOF) and j<=ada)
    response.Write ((page-1)*ada+j)&"."
	Response.Write "用戶名：" &rt("user")& "網站："&rt("url")&"<br/>"
	   'Response.Write "<a href='admin_users.asp?id="&rt("id")&"&admin="&admin&"'>" &rt("user")& "</a>[<a href='user_mod.asp?id="&rt("id")&"'>修改</a>]<br />"

rt.MoveNext
j=j+1
loop
end if 

if page*ada<rt.recordcount then
response.write("<a href='my_recommend.asp?id="& id &"&amp;page="& page+1 &"&amp;admin="& request("admin") &"&amp;p="& request("p") &"'>下一頁</a>")
end if
if page>1 then response.write("<a href='my_recommend.asp?id="& id &"&amp;page=" & page-1 &"&amp;admin="& request("admin") &"&amp;p="& request("p") &"'>上一頁</a>")

if rt.recordcount > 0 then
response.write("["& page & "/" & (int(rt.recordcount/ada)+1) &"頁]")
end if 
if (int(rt.recordcount/ada)+1) >3 then
%>

<br/>到<input name="page" title="頁碼" type="text" format="*N" emptyok="true" size="3" maxlength="3"/>
<anchor>GO>>
<go href="my_recommend.asp?admin=<%=request("admin")%>" accept-charset='utf-8'>
<postfield name="ID" value="<%= id %>"/>
<postfield name="page" value="$(page)"/>
<postfield name="p" value="<%=request("p")%>"/>
<postfield name="u" value="<%=request("u")%>"/>
</go></anchor>
<%
End if
Response.write "<br/>"
End if
 else
 Response.write "非法入侵!"
End if

set rs=nothing
set rt=nothing
conn.close
set conn=nothing
%>
<a href='admin.asp?admin=<%=admin%>'>返回管理頁</a>
 
</p></card></wml>