<!--#include file="connxy.asp"-->
<!-- #include file="../ydzq1.asp" -->
<%
Call head()
Call saycarda("许愿")

set rs=server.createobject("adodb.recordset")
sql="select * from jiudian order by id desc"
rs.open sql,connxy,1,1

dim sid
sid=request.querystring("sid")
Server.ScriptTimeout=999
iduse=Session("useid")


%>
<img src="<%=xylogo%>" alt="许愿"/><br/>
<a href="xy.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>">放飞愿望</a>^ ^<br/>


<%
 If Not rs.eof	Then



	Dim PageSize,i
	PageSize=5
	Dim Count,page,pagecount,gopage			
	gopage="index.asp?saytk="&saytk&"&amp;sid="&sid&"&amp;"
	Count=rs.recordcount
	page=int(request.QueryString ("page"))
	if page<=0 or page="" then page=1		
	pagecount=(count+pagesize-1)\pagesize
        if page>pagecount then page=pagecount
	rs.move(pagesize*(page-1))				
	For i=1 To PageSize	
	If rs.eof Then Exit For	

%>
<img src="xy.gif" alt="xy"/> <a href="ck.asp?id=<%=rs("id")%>&amp;saytk=<%=saytk%>&amp;sid=<%=sid%>"><%=rs("name")%></a> 对 <%=rs("level")%> 许下愿望：<br/><%=Left(rs("tel"),12)%>
<%If keys=1 or keys=2 Then%>
<a href="delxy.asp?id=<%=rs("id")%>&amp;saytk=<%=saytk%>&amp;sid=<%=sid%>"> 删除</a>

<%End If %>
<br/>愿望类型:<%=rs("level")%><br/>已被<%=rs("tj")%>人祝福 
<a href="ck.asp?id=<%=rs("id")%>&amp;saytk=<%=saytk%>&amp;sid=<%=sid%>">查看>></a><br/>
<%
 
 	rs.moveNext	
	Next
	if page-pagecount<0 then response.write "<a href="""&gopage&"page="&page+1&""">下页</a>"
	if page>1 then response.write "<a href="""&gopage&"page="&page-1&""">上页</a>"
	if pagecount>1 then response.write "<br/><b>"&page&"</b>/"&pagecount&"页"
	If saytk=1 then
	response.write"<input name=""page"" format=""*N"" value="""&page&""" type=""text"" maxlength=""5"" emptyok=""true"" size=""3""/><a href="""&gopage&"page=$(page)"">[GO]</a><br/>"
	End if

Else


response.write"暂时没有愿望！<br/>"
end if
 
%> 
  共<%=Count%>条<br/>
  <img src="/img/fg/4.gif" alt="许愿"/>

 <!--#include file="../fanhui.asp"-->
<%
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/xy/?saytk=[saytk]&amp;sid=[sid])许愿树(/url)')")


Call headsay()
rs.close
set rs=nothing
connxy.close
set connxy=nothing



%>


