<!--#include file="conn.asp"-->
<!--#include file="inc/ubbcode.asp"-->
<!--#include file="inc/publicfun.asp"-->
<%
blogid=request("id")
userid=request.QueryString("userid")
photo_name=request("photo_name")
tyname="photo_name"
if blogid="" then
   searchstr=""
else
   searchstr="and blogid="&blogid
end if
%>
<!--#include file="memberinfo.asp"-->
<%
call FTBBS_HTML_MB
url=Application("FTBBSMB")(10,0)
upfiletype=Application("FTBBSMB")(12,0)
upfilesize=Application("FTBBSMB")(13,0)
getcodeoff=Application("FTBBSMB")(30,0)
htm_ext=Application("FTBBSMB")(32,0)
if request("act")="y" then
   userip=request.servervariables("remote_addr")
   netname=Checkstr(request("netname"))
   userid=request("userid")
   blogid=request("id")
   plnl=Checkstr(request("remenu"))
   plnl=RegExReplace(plnl,"\b(script)\b"," $1 ")
   plnl=RegExReplace(plnl,"\b(iframe)\b"," $1 ")
   If getcodeoff=1 Then
      codestr = Trim(request.form("codestr"))
      codename = Trim(request.form("codename"))
      If CStr(Session("GetCode"&codename)) <> CStr(codestr) Then
      response.write "<script language='javascript'>alert('验证码错误，请刷新后重新输入！');history.go(-1);</script>"
      response.end 
      end if
   End If
   str="insert into ftblog_pl(netname,plcontent,blogid,userid,userip,pltype) values('"&netname&"','"&plnl&"','"&blogid&"','"&userid&"','"&userip&"',1)"
   conn.execute(str)
   str="update ftbbs_upload set photo_pl_num=photo_pl_num+1 where id="&blogid
   conn.execute(str)
   response.redirect request.serverVariables("Http_REFERER")
end if
sql="SELECT * FROM ftbbs_upload WHERE (bbs_blog_type=1 or bbs_blog_type=2) and clubuser_id="&userid&" and photo_name='"&photo_name&"' order by indate desc"
set smt=server.createobject("adodb.recordset")
smt.open sql,conn,3,1

page1=request("page1")
if page1="" then
page1=1
else 
page1=cint(trim(request("page1")))
end if
smt.AbsolutePage=page1
smt.PageSize=1
smt.AbsolutePage=page1
%>
<html><head><meta http-equiv=content-type content="text/html; charset=gb2312">
</head>
<script language=javascript src="js/resizeImages.js"></script>
<body>
<center>
<title><%=username%>的个人相册</title>
<link rel="stylesheet" type="text/css" href="<%=cssfile%>">
<!--#include file="usernav.asp" -->
<!--#include file="photohead.asp" -->
<div class="stage">
<div class="stagepad">
<div style="width:100%">
	
<table width="100%" border="0" cellspacing="0" cellpadding="0" class="modth">
<tr><td class="modtl" width="7">&nbsp;</td>
<td class="modtc" nowrap><div class="modhead"><a href="myphoto.asp?userid=<%=userid%>" class="modtit">相册列表</a> 
                  &gt;&gt; <a href="disphoto.asp?id=<%=blogid%>&userid=<%=userid%>&photo_name=<%=smt("photo_name")%>" class="modtit"><%=photo_name%></a></div></td>
<td class="modtc" nowrap align="right"></td>
<td class="modtr" width="7">&nbsp;</td>
</tr></table>
<div id="m_albumlist" class="modbox">

<div class="phbox">
  <div align="center">
<%
i=0
do while not smt.eof
if smt("bbs_blog_type")=2 then
   photourl=smt("upload_pic")
else
   photourl=smt("upload_pic")
end if
%>
              <div class="phpage"> 
                <%if page1>1 then%>
                <div align="center"><a href="<%=request.servervariables("script_name")%>?page1=<%=page1-1%>&userid=<%=userid%>&photo_name=<%=photo_name%>&id=<%=smt("id")%>"><img src="blogimages/bn_prev.gif" border="0" align="absmiddle" onmouseover="this.src='blogimages/bn_prev_o.gif'" onmouseout="this.src='blogimages/bn_prev.gif'"></a> 
                  <%else%>
                  <img src="blogimages/bn_prev.gif" border="0" align="absmiddle" onmouseover="this.src='blogimages/bn_prev_o.gif'" onmouseout="this.src='blogimages/bn_prev.gif'"> 
                  <%end if%>
                  <%if page1<smt.pagecount then%>
                  <a href="<%=request.servervariables("script_name")%>?page1=<%=page1+1%>&userid=<%=userid%>&photo_name=<%=photo_name%>&id=<%=smt("id")%>"><img src="blogimages/bn_next.gif" border="0" align="absmiddle" onmouseover="this.src='blogimages/bn_next_o.gif'" onmouseout="this.src='blogimages/bn_next.gif'"></a> 
                  <%else%>
                  <img src="blogimages/bn_next.gif" border="0" align="absmiddle" onmouseover="this.src='blogimages/bn_next_o.gif'" onmouseout="this.src='blogimages/bn_next.gif'"> 
                  <%end if%>
                </div>
              </div>
              </div>
              <div align="center" class="phinfo"><%if smt("pic_note")<>"" then response.write "描述："&smt("pic_note") end if%> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;大小：<%=smt("upload_size")%> K&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;上传时间：<%=smt("indate")%></div>
              <div align="center" class="phimg"><img src="<%=photourl%>" border="0" resize="1"></div>
              <div align="center" class="phpage"> 
                <%if page1>1 then%>
                <a href="<%=request.servervariables("script_name")%>?page1=<%=page1-1%>&userid=<%=userid%>&photo_name=<%=photo_name%>&id=<%=smt("id")%>"><img src="blogimages/bn_prev.gif" border="0" align="absmiddle" onmouseover="this.src='blogimages/bn_prev_o.gif'" onmouseout="this.src='blogimages/bn_prev.gif'"></a> 
                <%else%>
                <img src="blogimages/bn_prev.gif" border="0" align="absmiddle" onmouseover="this.src='blogimages/bn_prev_o.gif'" onmouseout="this.src='blogimages/bn_prev.gif'"> 
                <%end if%>
                <%if page1<smt.pagecount then%>
                <a href="<%=request.servervariables("script_name")%>?page1=<%=page1+1%>&userid=<%=userid%>&photo_name=<%=photo_name%>&id=<%=smt("id")%>"><img src="blogimages/bn_next.gif" border="0" align="absmiddle" onmouseover="this.src='blogimages/bn_next_o.gif'" onmouseout="this.src='blogimages/bn_next.gif'"></a> 
                <%else%>
                <img src="blogimages/bn_next.gif" border="0" align="absmiddle" onmouseover="this.src='blogimages/bn_next_o.gif'" onmouseout="this.src='blogimages/bn_next.gif'"> 
                <%end if%>
              </div>
			  <%
  i=i+1
  smt.movenext
  if i>=ipagesize then exit do
  loop
  smt.close
  set smt=nothing
%>
            <div class="line">&nbsp;</div>
<div id="in_comment"> <a name="comment"></a> 
<%
sql="select * from ftblog_pl where pltype=1 and plqs=0 "&searchstr&" order by id desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,1
if not rs.eof then
wzrep =20
wzpage = clng(request.querystring("page"))
if len(wzpage) = 0 or wzpage = 0 then wzpage = 1
rs.PageSize=wzrep
rs.AbsolutePage=wzpage
wzpagecount=rs.PageCount
wzcount=rs.RecordCount

response.write "<div class=""tit"">网友评论：</div>"
for i = 0 to wzrep-1
  if rs.eof then exit for
%>
              <div class="user"> <strong><%=i+1%></strong>&nbsp;&nbsp;&nbsp;&nbsp;<%=rs("netname")%>&nbsp;&nbsp;&nbsp;&nbsp;-&nbsp;&nbsp;<%=rs("pldate")%> 
              </div>
              <div class="user"><%=rs("plcontent")%></div>
              <div class="line">&nbsp;</div>
              <%
 rs.movenext
 next
rs.close
set rs=nothing
%>
<div id="page"><%= pagenar(wzpagecount,userid,tyname,photo_name)%></div>
<%
else
 response.write "<div class=""user""></div>"
end if
%>
            <div id="in_send"> 
                <div class="tit">发表评论：</div>
                <table width="620" border="0" cellspacing="5" cellpadding="0">
              <form name="form1" action="" method="post" onsubmit="return CheckForm(this)">
                <input name="id" type="hidden" id="id" value="<%=blogid%>">
                <input name="userid" type="hidden" id="userid" value="<%=userid%>">
                  <tr> 
                    <td class="f14">姓　名：</td>
                    <td><input type="text" name="netname" id="netname" style="width:220px"  maxlength="29"> 
                      <div style="display:none" id="nmerror">*姓名最长为30字节</div></td>
                  </tr>
                  <tr> 
                    <td height=300 class="f14">内　容：</td>
                    <td>
					<TEXTAREA type="hidden" rows=1 cols=1 name="remenu" style="position:absolute;left:0;visibility:hidden;"></textarea> 
                    <SCRIPT src="htmledit/plhtml.js"></SCRIPT>
				</td>
                  </tr>
                  <tr id="vercode"> 
                    <td valign="top" class="f14">验证码：</td>
                    <td valign="top"><input name=codestr id=codestr type=text size=10 maxlength=4> 
                      <%response.write getcode%>
                    </td>
                  </tr>
                  <tr> 
                    <td valign="top"class="f14">&nbsp;</td>
                    <td valign="top" class="f14"><input name="submit1" type="submit" value="发表评论" class="button"> 
                      <input name="act" type="hidden" id="act" value="y"></td>
                  </tr>
				 </form>
                </table>
            </div>
            <br>
          </div>
          <table width="100%" border="0" cellspacing="0" cellpadding="0" height="8">
            <tr> 
              <td class="modbl" width="7">&nbsp;</td>
              <td class="modbc">&nbsp;</td>
              <td class="modbr" width="7">&nbsp;</td>
            </tr>
          </table>
</div>

<table width="100%" border="0" cellspacing="0" cellpadding="0" height="8">
<tr><td class="modbl" width="7">&nbsp;</td>
<td class="modbc">&nbsp;</td>
<td class="modbr" width="7">&nbsp;</td>
</tr>
</table>
        </div>
      </div>
    </div>
  </div>
<br>
<center><!--#include file="tail.asp" --></center>
</body>
</html>
<%closedb%>