<!--#include file=conn.asp-->
<!--#include file=config.asp-->
<!--#include file=const.asp-->
<!--#include file=char.asp-->
<%
 '=========================================================
' File: showpic.asp
' Version:3.0
' Date: 2005-11-6
' Script Written by xmrxw
'=========================================================
' Copyright (C) 2004,2005 Xmrxw.Com All rights reserved.
' Web: http://www.xmrxw.com,http://www.xmzxw.com
' Email: info@mssky.com,super@mssky.com
' QQ：10689579　Msn：zdlmicr@hotmail.com
'=========================================================
response.buffer=true
stats="用户相册"
if not founduser then
	Errmsg=Errmsg+"<br>"+"<li>您还没有<a href=login.asp>登陆</a>，不能建立相册。如果您还没有<a href=reg.asp>注册</a>，请先<a href=reg.asp>注册</a>！"
	Founderr=true
end if
if Cint(GroupSetting(34))<>0 and dateadd("n",Cint(GroupSetting(34)),myjoinDate)>=Now() then
  	errmsg=errmsg+"<br>"+"<li>新注册用户"&Cint(GroupSetting(34))&"分钟后才能建立相册，请稍后<a href=login.asp target=_blank>登录</a>。"
	founderr=true
end if
call nav()
if founderr=true then
	call head_var("","")
	call Mslove_error()
else
	call head_var(membername & "的帐号","mycount.asp")
	dim Fid,Photouser
	Fid=checkStr(trim(request("Fid")))'去除特殊字符
	if Fid="" or not isInteger(Fid) then
	errmsg=errmsg+"<br>"+"<li>参数错误。"
	founderr=true
	end if	
Fid=cint(Fid)
%>
<table cellpadding=3 cellspacing=1 align=center class=tableborder1>
<tr>
<th width=12% height=25 id=tabletitlelink><a href=mycount.asp>我的帐号</a></th>
<th width=11%  id=tabletitlelink><a href=mymodify.asp>基本资料</a></th>
<th width=11%  id=tabletitlelink><a href=modifypsw.asp>密码修改</a></th>
<th width=11%  id=tabletitlelink><a href=modifyfd.asp>交友资料</a></th>
<th width=11%  id=tabletitlelink><a href=modifyadd.asp>联系资料</a></th>
<th width=11%  id=tabletitlelink><a href=usersms.asp>短信服务</a></th>
<th width=11%  id=tabletitlelink><a href=friendlist.asp>我的好友</a></th>
<th width=11%  id=tabletitlelink><a href=favlist.asp>我的收藏</a></th>
<th width=11%  id=tabletitlelink><a href=userphoto.asp>我的相册</a></th>
</tr>
</table>
<TABLE width="100%" align=center cellpadding=6 cellspacing=1 class=tableborder1>
  <TBODY>
<TR>
				
      <TD align=center class=tablebody1><a href="userphoto.asp">相册首页</a> | <a href="userphoto.asp?action=upfilet">本地上传</a> 
        | <a href=userphoto.asp?action=upfilent>网络照片</a> | 未审照片 | <a href=favlist.asp?action=allshare&search=0>公开照片</a></td>
    </tr></TBODY></TABLE>
<%
if founderr=false then
call main()
else
call Mslove_error()
end if
call activeonline()
call footer()
end if

sub main()
dim LorN
	set rs=server.createobject("adodb.recordset")
	sql="select p.*,t.Phototype from Ms_Upphoto p inner join Ms_Uphtype t on p.FTypes=t.id where p.Username='"&trim(membername)&"' and p.Fid="&Fid&""
	rs.Open sql,conn,1,1
if rs.eof and rs.bof then
	response.write"<tr><td class=tablebody1 align=center valign=middle>您还没有任何照片。</td></tr>"
else
LorN=rs("LorN")
Photouser=rs("username")
%>
<table width="100%" align=center cellpadding=3 cellspacing=1 class=tableborder1>
  <tr> 
    <th width="703" height="28" align="center"  class=tablebody1>照片展示</th>
  </tr>
  <tr> 
    <td height="112" align="center"  class=tablebody1><table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td height="39" align="center">感谢会员：<%=Photouser%>提供<br>
            --------------------------------------------------------------------------------</td>
        </tr>
        <tr> 
          <td height="52" align="center"><%
		  if LorN=1 then
				response.Write("<img src=showpics.asp?Fid="&Fid&" border=""0"" onload=""javascript:if(this.width>screen.width-333)this.width=screen.width-333"">")
				else
				response.Write("<img src="&rs("Filename")&" border=""0"" onload=""javascript:if(this.width>screen.width-333)this.width=screen.width-333"">")
				end if%>
          </td>
        </tr>
      </table></td>
  </tr>
  <tr valign="top"> 
    <td height="109"  class=tablebody1> <table width="100%" border="0" cellspacing="0" cellpadding="3" class=tableborder2 style="width:100%">
        <tr> 
          <td width="24%" height="24" align="right" class=tablebody1>作者：</td>
          <td width="76%"><a href=dispuser.asp?username=<%=Photouser%> target=_blank title=查看<%=Photouser%>的资料><%=Photouser%></a></td>
        </tr>
        <tr> 
          <td height="3" align="right" class=tablebody2>类别：</td>
          <td class=tablebody1><%=rs("Phototype")%></td>
        </tr>
        <tr>
          <td height="3" align="right" class=tablebody1>公开：</td>
          <td>
            <%if rs("Ispublic")=1 then
	  response.Write("是")
	  else
	  response.Write("否")
	  end if%>
          </td>
        </tr>
        <tr>
          <td height="6" align="right" class=tablebody2>形象：</td>
          <td class=tablebody1>
            <%if rs("Bodypic")=1 then
	  response.Write("是")
	  else
	  response.Write("否")
	  end if%>
          </td>
        </tr>
        <tr>
          <td height="12" align="right" class=tablebody1>状态：</td>
          <td>
            <%if rs("Checked")=1 then
	  response.Write("已审核")
	  elseif rs("Checked")=0 then
	  response.Write("<font color=red>未审核</font>")
	  elseif rs("Checked")=2 then
	  response.Write("<font color=red>不通过</font>")
	  end if%>
          </td>
        </tr>
        <tr> 
          <td height="24" align="right" class=tablebody2>大小：</td>
          <td class=tablebody1><%=rs("FileSize")%> Byte</td>
        </tr>
        <tr> 
          <td height="24" align="right" class=tablebody1>人气：</td>
          <td><%=rs("Hits")%> 次</td>
        </tr>
        <tr> 
          <td height="24" align="right" class=tablebody2>创建时间：</td>
          <td class=tablebody1><%=rs("AddTime")%></td>
        </tr>
        <tr> 
          <td height="24" align="right" class=tablebody1>说明：</td>
          <td><%=rs("Readme")%></td>
        </tr>
      </table></td>
  </tr>
  <%
  end if
  rs.close
  %>
</table>
<%end sub%>
</body>
</html>