showuser.asp

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

<!--#include file="conn.asp"-->
<!--#include file="top.asp"-->
<%
dim username,i
username=checkstr(request("username"))
if username="" then
  call mb("对不起，请指定要查看的作者帐号！","index.asp",0)
end if

set rs=conn.execute("select  * from author where username='"&username&"'")

if rs.bof and rs.eof then
  call mb("对不起，找不到您要查看的作者资料！","index.asp",0)
end if

%>
<TABLE width=780 height=85 border=0 align="center" cellPadding=0 cellSpacing=0>
  <TR> 
    <TD width="770" 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 width="53%">&nbsp;<IMG height=12 src="images/A3.gif" width=12> 
            当前位置：<A href="index.asp" title="联盟首页">闪闪之家</A> -&gt; 查看作者(<font color=red><%=username%><font>)的详细资料</TD>
          <TD height=21 width="47%">&nbsp;</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="79%">　(<font color=red><%=username%></font>)的详细资料</TD>
          <TD width="3%"><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 bgcolor="#FFFFFF"> 
          <TD width="13%" height="25" align="center">作者帐号：</TD>
          <TD width="87%" height="25">&nbsp; <%=rs("username")%></TD>
        </TR>
        <TR bgcolor="#FFFFFF"> 
          <TD height="25" align="center">性　　别：</TD>
          <TD height="25">&nbsp; 
            <%
		   if rs("sex")="男" then
		    response.write "阳光男孩"
		   else
		    response.write "青春女孩"
		   end if
		   %>
          </TD>
        </TR>
        <TR bgcolor="#FFFFFF"> 
          <TD height="25" align="center">电子邮件：</TD>
          <TD height="25">&nbsp; 
            <%if rs("email")<>"" then
		      response.write "<a href='mailto:"&rs("email")&"' title='发邮件给作者'>"&rs("email")&"</a>"
			else
			  response.write "没有留下Email"
			end if
		 %>
          </TD>
        </TR>
        <TR bgcolor="#FFFFFF"> 
          <TD height="25" align="center">个人主页：</TD>
          <TD height="25">&nbsp; 
            <%if rs("homepage")<>"" then
		      response.write "<a href='"&rs("homepage")&"' title='游览作者个人主页...' target=_blank>"&rs("homepage")&"</a>"
			else
			  response.write "暂无"
			end if
		 %>
          </TD>
        </TR>
        <TR bgcolor="#FFFFFF"> 
          <TD height="25" align="center">联系电话：</TD>
          <TD height="25">&nbsp; <%=rs("tel")%></TD>
        </TR>
        <TR bgcolor="#FFFFFF"> 
          <TD height="25" align="center">O I C Q：</TD>
          <TD height="25">&nbsp; <%=rs("oicq")%></TD>
        </TR>
        <TR bgcolor="#FFFFFF"> 
          <TD height="25" align="center">I C Q：</TD>
          <TD height="25">&nbsp; <%=rs("icq")%></TD>
        </TR>
        <TR bgcolor="#FFFFFF"> 
          <TD height="25" align="center">M S N：</TD>
          <TD height="25">&nbsp; <%=rs("msn")%></TD>
        </TR>
        <TR bgcolor="#FFFFFF"> 
          <TD height="25" align="center">邮政编码：</TD>
          <TD height="25">&nbsp; <%=rs("zipcode")%></TD>
        </TR>
        <TR bgcolor="#FFFFFF"> 
          <TD height="25" align="center">详细地址：</TD>
          <TD height="25">&nbsp; <%=rs("address")%></TD>
        </TR>
        <TR bgcolor="#FFFFFF"> 
          <TD height="25" align="center">个人简介：</TD>
          <TD height="25">&nbsp; 
            <%
		  dim remark:remark=rs("remark")
		  remark=replace(remark,chr(13),"<br>")
		  remark=replace(remark," ","&nbsp;")
		  response.write remark
		  rs.close
		  %>
          </TD>
        </TR>
        <TR bgcolor="#FFFFFF"> 
          <TD height="25" colspan="2" align="center">相关作者发布（上传）的Flash作品</TD>
        </TR>
        <TR bgcolor="#FFFFFF"> 
          <TD height="25" align="center">相关20个作品：</TD>
          <TD height="25"> <table width="96%" border="0" align="center" cellpadding="0" cellspacing="0">
              <tr> 
                <td> 
                  <%i=1
		  set rs=conn.execute("select top 20 * from flash where ispassed=true and username='"&username&"' order by id desc")
		    do until rs.eof or i>20
			  response.write i&".&nbsp;<a href='flash_play.asp?id="&rs("id")&"' title='Flash名称："&rs("flashname")&"<br>观看次数："&rs("hits")&"<br>下载次数："&rs("downnum")&"<br>上传日期："&rs("dateandtime")&"' target=_blank>"&rs("flashname")&"</a>&nbsp;&nbsp;"&formatdatetime(rs("dateandtime"),1)&"&nbsp;|&nbsp;<font color=red>"&rs("hits")&"</font><br>"
			rs.movenext
			i=i+1
			loop
			rs.close
			set rs=nothing
			%>
                </td>
              </tr>
            </table></TD>
        </TR>
      </TABLE>
      <br>
    </TD>
  </TR>
</TABLE>
<!--#include file="bottom.asp"-->