<% page = CLng(request("page")) '利用CLng函数把page值转换为Long型 judge=request("judge") judge2=request("judge2") judge3=0 sqlcmd="select * from wish Order By id Desc" rs.Open sqlcmd,newconn,1,2 %>
您的昵称:
您的 QQ:
来自何方:
邮箱地址:
个人主页:
你的愿望:
只有认真填写以上内容,愿望才能实现哦!

     


欢迎把你的愿望告诉大家~

链接地址:

    小谷围许愿岛---将此页发给20个最好的朋友,把最好的祝福送给朋友,你的愿望也会很快实现的哦! #^_^#

 

圣诞节祝福专版

中秋节祝福专版

 

~上论坛瞧瞧~

~说不定也能帮助愿望实现呢~

 
 
<% if not (rs.EOF or rs.BOF) then rs.MoveFirst rs.PageSize = 40 If page < 1 Then page = 1 If page > rs.PageCount Then page = rs.PageCount rs.AbsolutePage = page For ipage = 1 To rs.PageSize%>
<%=rs("name")%> ( <% if rs("oicq")<>"" then Response.Write "QQ:"& rs("oicq")&"" else Response.Write "" end if%> <% if rs("from01")<>"" then Response.Write "来自:"& rs("from01")&"" else Response.Write "" end if%> ) <%=rs("memo")%> [<%=rs("time01")%>]
<% rs.MoveNext If rs.EOF Then Exit For Next %>
   许愿树上共有<%=rs.recordCount%> 个愿望 页数:<%=page%> /  <%=rs.PageCount%>   <% If page = 1 Then Response.Write "第一页 上一页" End If If page <> 1 Then Response.Write "第一页" Response.Write " 上一页" End If If page <> RS.PageCount Then Response.Write " 下一页" Response.Write " 最后一页" End If If page = RS.PageCount Then Response.Write " 下一页 最后一页" End If %>   到 <%Response.Write "" '显示输入页数框并将page,judge参数传递下去%> 页
<%else%>
对不起,许愿树上还没有愿望!
<%end if%>
    2006年 大学城在线小谷围许愿岛祝福每一位到这里来的朋友开心快乐 愿望早日实现