showmorewish.asp

俄罗斯方块源码 俄罗斯方块源码 俄罗斯方块源码

<!--#include file="conn.asp"-->
<!--#include file="top.asp"-->
<%
dim currentpage,maxperpage,totalpage,totalrecords,i,classid

currentpage=request("page")
if not isinteger(currentpage) then
  currentpage=1
else
  currentpage=clng(currentpage)
end if

maxperpage=20
totalpage=1
totalrecords=0
i=1

set rs=server.createobject("adodb.recordset")
sql="select * from wish where ishidden=false and ispassed=true"
rs.open sql,conn,1,1

if not(rs.bof and rs.eof) then
  rs.pagesize=maxperpage
  rs.absolutepage=currentpage
  totalpage=rs.pagecount
  totalrecords=rs.recordcount
end if

%>
<TABLE width=780 height=85 border=0 align="center" cellPadding=0 cellSpacing=0>
  <TR> 
    <TD width="190" vAlign=top background="index3/flash_bg4.gif" bgcolor="#F7F7F7" class="bg"> 
      <!--#include file="left.asp"-->
    </TD>
    <TD width="570" vAlign=top bgcolor="#FFFFFF">
<TABLE align=center 
      background="images/line01.gif" 
      border=0 cellPadding=0 cellSpacing=0 height=24 width="100%">
        <TR> 
          <TD height=21>&nbsp;<IMG height=12 src="images/A3.gif" width=12> 当前位置：<A href="index.asp" title="联盟首页">闪闪之家</A> -&gt; 查看网友祝福</TD>
        </TR>
      </TABLE> 
      <table width="200%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td>&nbsp;</td>
        </tr>
      </table>
      <TABLE align=center border=0 borderColor=#000000 cellPadding=0 
      cellSpacing=0 width="98%">
        <TR> 
            <TD 
          background="images/T_back.gif" 
          width="18%"><IMG src="images/T_1.gif" width=90 height=24 border="0"></TD>
            <TD background="images/T_back.gif" width="77%">&nbsp;</TD>
            <TD width="5%"><IMG height=24 src="images/T_2.gif" width=29></TD>
          </TR>
        
      </TABLE>
	  
      <TABLE align=center bgColor=#cccccc border=0 cellPadding=3 cellSpacing=1 width="98%" 1 border-width:>
        <TR align="center" bgcolor="#FFFFFF"> 
          <TD height="22" bgcolor="#FFFFFF"><font color="#000000">点播网友</font></TD>
          <TD height="22"><font color="#000000">Flash名称</font></TD>
          <TD height="22"><font color="#000000">送给谁</font></TD>
          <TD height="22"><font color="#000000">祝福语</font></TD>
        </TR>
        <%do until rs.eof or i>maxperpage%>
        <TR bgcolor="#FFFFFF"> 
          <TD width="19%">&nbsp;<a href="mailto:<%=rs("from_email")%>" title="发邮件给 <%=rs("from_name")%>..."><%=rs("from_name")%></a></TD>
          <TD width="30%">&nbsp;<a href="flash_play.asp?id=<%=rs("flash_id")%>" target=_blank title="在线观看Flash..."><%=rs("flash_name")%></a></TD>
          <TD width="25%">&nbsp;<a href="mailto:<%=rs("to_email")%>" title="发邮件给 <%=rs("to_name")%>..."><%=rs("to_name")%></a></TD>
          <TD width="26%">&nbsp;<a href="#" onclick="javascript:window.open('showwish.asp?id=<%=rs("id")%>','showwish','top=0,left=0,width=280,height=420');" title="查看祝福..."><%=rs("wish_title")%></a></TD>
        </TR>
        <%
         rs.movenext
         i=i+1
         loop
		 rs.close
		 set rs=nothing
		 if totalrecords>0 then
        %>
		<TR bgcolor="#FFFFFF" > 
          <TD colspan="4" background="images/line02.gif"> 
            <%call showpage("showmorewish.asp",totalrecords,maxperpage,true,true,"条祝福信息")%>
          </TD>
        </TR>
	   <%end if%>
      </TABLE>
      
    </TD>
  </TR>
</TABLE>
<!--#include file="bottom.asp"-->