<!--#include file="conn.asp"-->
<!-- #include file="../inc.asp" -->
<!-- #include file="../ydzq1.asp" -->
<%

Call head()
Call saycarda("缘份对对碰")

set rs=server.createobject("adodb.recordset")
sql="select * from saytkyf order by times desc"
rs.open sql,connyf,1,1

Server.ScriptTimeout=999
iduse=Session("useid")

if myid<>0 then
mz="[url=/bbs/uinfo.asp?id="&myid&"&amp;saytk=[saytk]&amp;sid=[sid]]"&myni&"[/url]"
else
mz="游客"&Replace(time(),":","")&""
end if
conn.execute("insert into sqdt(shijian,dz)values('"&now&"','"&mz&"逛到了(url=/bbs/lmyf/?saytk=[saytk]&amp;sid=[sid])缘份对对碰(/url)')")
If lmyflogo<>"" then%>
<img src="<%=lmyflogo%>" alt="缘份对对碰"/><br/>
<%End if%>
【缘份对对碰>>交友互动中心】<br/>
<a href="add.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>">发布交友信息</a><br/>-------------<br/>
<%
 if rs.eof and rs.bof then str="暂无征婚信息"
 if str="" then
   rs.pagesize=6
   pages=rs.pagecount
   records=rs.recordcount
   currentpage=request("currentpage")
if currentpage="" or currentpage<1 then              currentpage=1
   currentpage=cint(currentpage)
if currentpage>pages then currentpage=pages
   rs.absolutepage=currentpage
else
   currentpage=1
   records=0
   pages=1
 end If
 
 nuber=1
 %>

  <%linenumber=rs.pagesize%> <%do while (not rs.eof) and (line<linenumber)
set rs1=Server.CreateObject("ADODB.Recordset")
rs1.open"select * from users where id="&rs("userid"),conn,1,1
yfname=rs1("name")
yfsex=rs1("sex")
yfcity=rs1("city")
yfsr=rs1("sr")
yfage=rs1("age")
rs1.close
Set rs1=nothing
%>
<%=nuber%>.<a href="/bbs/uinfo.asp?id=<%=rs("userid")%>&amp;saytk=<%=saytk%>&amp;sid=<%=sid%>"><%=yfname%></a>(<%=rs("userid")%>):<a href="lmyf.asp?id=<%=rs("id")%>&amp;saytk=<%=saytk%>&amp;sid=<%=sid%>"><%=Left(rs("about"),6)%></a><br/>
性别:
<%if yfsex=1 then 
response.write "男"
Else
response.write "女"
end if%><br/>
年龄：<%if yfage=0 then 
response.write "不公开<br/>"
Else%>
<%=yfage%><br/>
<%end if%>

城市:<%=yfcity%><br/>
生日：
<%if yfsr=0 then 
response.write "不公开<br/>"
Else%>
<%=yfsr%><br/>
<%end if%>
现实交往：
<%If rs("xs")=1 then%>
是
<%else%>
否
<%End if%><br/>

发布时间：[<%=date_gametalk(rs("times"))%>前]<br/>
<a href="lmyf.asp?id=<%=rs("id")%>&amp;saytk=<%=saytk%>&amp;sid=<%=sid%>">..查看详细</a>
<%If rs("userid")=myid then%>
 |<a href="edit.asp?id=<%=rs("id")%>&amp;saytk=<%=saytk%>&amp;sid=<%=sid%>"> 修改</a>

 <%
 End If 
 %><br/><%
 If keys=1 or keys=2 Then%>
  管理员操作:<a href="delyf.asp?id=<%=rs("id")%>&amp;saytk=<%=saytk%>&amp;sid=<%=sid%>"> 删除</a><br/>
  <%End If %>
 <%rs.movenext%> <%line=line+1%> <%nuber=nuber+1%><%loop%> 
 第<%=currentpage%>页|共<%=Records%>条|共<%=Pages%>页<br/>
<%
 ii=currentpage-5
 iii=currentpage+10
 if ii < 1 then
    ii=1
 end if
 if iii > pages then
    iii=pages
 end if
 if currentpage > 6 then
  %>
<a href="index.asp?currentpage=1&amp;saytk=<%=saytk%>&amp;sid=<%=sid%>">1</a>... 
<%
 end if
 for i=ii to iii
   If i<>currentpage then
  %>

|<a href="index.asp?currentpage=<%=i%>&amp;saytk=<%=saytk%>&amp;sid=<%=sid%>"><%=i%></a>
<%else%> 
<%=i%>
<%end if
 next
 if pages > currentpage+5 then
 %>... <a href="index.asp?currentpage=<%=pages%>&amp;saytk=<%=saytk%>&amp;sid=<%=sid%>">(最后一页)<%=pages%></a>

<%end If%>
 <!--#include file="../fanhui.asp"-->
<%
Call headsay()
rs.close
set rs=nothing
connyf.close
set connyf=nothing
%>


