showzp.asp

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

<!--#include file="conn.asp"-->
<!--#include file="top.asp"-->
<%
dim username:username=request("username")
dim currentpage,maxperpage,totalpage,totalrecords,i

if username="" then
  call mb("对不起，请指定要查看的作者帐号！","",0)
end if

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

maxperpage=20  '一页显示20个作品
totalpage=1
totalrecords=0
i=1

set rs=server.createobject("adodb.recordset")
sql="select * from flash where username='"&username&"' and ispassed=true"
rs.open sql,conn,1,1

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

%>
<table width="780" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td width="190" valign="top" background="index3/flash_bg4.gif" bgcolor="#F7F7F7" class="regbg"> 
      <TABLE border=0 cellPadding=0 cellSpacing=1 class=12px width=190>
        <TR> 
          <TD align=center height=22 
          vAlign=center><img src="index3/flash_ziliao.gif" width="200" height="38"></TD>
        </TR>
        <TR align=middle> 
          <TD height="141" valign="top">
		   <%dim rsu:set rsu=conn.execute("select * from author where username='"&username&"'")
		    if rsu.bof and rsu.eof then
			  call mb("对不起，没有找到您要查看的作者！","",0)
			end if
			%>
		    <table width="98%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC" style="word-break:break-all">
              <tr bgcolor="#FFFFFF"> 
                <td width="34%" height="22" align="center"> 作　　者：</td>
                <td width="66%">&nbsp;<font color=red><%=username%></font></td>
              </tr>
              <tr bgcolor="#FFFFFF"> 
                <td height="22" align="center">性　　别： </td>
                <td>&nbsp; 
                  <%
				if rsu("sex")="男" then
				  response.write "阳光男孩"
				else
				  response.write "青春女孩"
				end if
				%>
                </td>
              </tr>
              <tr bgcolor="#FFFFFF"> 
                <td height="22" align="center">电子邮件： </td>
                <td>&nbsp; 
                  <%if rsu("email")<>"" then
		      response.write "<a href='mailto:"&rsu("email")&"' title='发邮件给作者'>"&cutstr(rsu("email"),15)&"</a>"
			else
			  response.write "没有留下Email"
			end if
		 %>
                </td>
              </tr>
              <tr bgcolor="#FFFFFF"> 
                <td height="22" align="center">O I C Q：</td>
                <td>&nbsp;<%=rsu("oicq")%></td>
              </tr>
              <tr bgcolor="#FFFFFF"> 
                <td height="22" align="center">I C Q：</td>
                <td>&nbsp;<%=rsu("icq")%></td>
              </tr>
              <tr bgcolor="#FFFFFF"> 
                <td height="22" align="center">M S N：</td>
                <td>&nbsp;<%=rsu("msn")%></td>
              </tr>
              <tr bgcolor="#FFFFFF"> 
                <td height="22" colspan="2" align="center"><a href="showuser.asp?username=<%=username%>">查看更详细的信息&gt;&gt;&gt;</a></td>
              </tr>
            </table></TD>
        </TR>
      </TABLE> 
    </td>
    <td width="576" valign="top" bgcolor="#FFFFFF"> 
      <TABLE align=center 
      background="images/line01.gif" 
      border=0 cellPadding=0 cellSpacing=0 height=24 width="100%">
        <TBODY>
          <TR> 
            <TD height=21 width="70%">&nbsp;<IMG height=12 
            src="images/A3.gif" width=12> 当前位置：<A 
            href="index.asp">闪闪之家</A> -&gt;<%=username%>的作品 </TD>
            <TD height=21 width="30%">&nbsp;</TD>
          </TR>
        </TBODY>
      </TABLE>
      <br>
      <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%"><font color="#CC3300">全 部 作 品</font></TD>
          <TD width="5%"><IMG height=24 
            src="images/T_2.gif" 
          width=29></TD>
        </TR>
      </TABLE>
      <table width="98%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
        <tr align="center" bgcolor="#FFFBFF"> 
          <td width="8%" height="22">编号</td>
          <td width="41%" height="22">作品名称</td>
          <td width="22%" height="22">人气</td>
          <td width="29%" height="22">上传日期</td>
        </tr>
        <%i=1
		do until rs.eof or i>maxperpage%>
        <tr bgcolor="#FFFFFF"> 
          <td height="22">&nbsp;<%=((currentpage-1)*maxperpage+i)%>.</td>
          <td height="22">&nbsp;<a href="flash_play.asp?id=<%=rs("id")%>" title="点击欣赏动画..." target=_blank><%=rs("flashname")%></a></td>
          <td height="22">&nbsp;<%=rs("hits")%></td>
          <td height="22">&nbsp;<%=rs("dateandtime")%></td>
        </tr>
        <%
	 rs.movenext
	 i=i+1
	 loop
	 %>
	 <%if totalrecords>0 then%>
        <tr bgcolor="#FFFFFF" > 
          <td height="22" colspan="4" background="images/line02.gif"> 
            <%call showpage("showzp.asp?username="&username,totalrecords,maxperpage,true,true,"个作品")%>
          </td>
        </tr>
	<%end if%>
      </table><br>
	  </td>
  </tr>
</table>
<!--#include file="bottom.asp"-->
</DIV>
</BODY></HTML>