<%'============================================================ ' Copyright 2007-09 燃点真情. All Rights Reserved. ' Last Update: 2008-3-22 13:28 ' ADD:wap.nowtx.cn ' E-Mail: xivn@163.com QQ:531233814 '============================================================ %> <%dim ids,uid,tid ids=request.querystring("ids") if ids="" or Isnumeric(ids)=False then ids=myid end if tid=request.querystring("tid") if ids<>"" and clng(ids)<>myid then '检查ID是否存在 Set rs = Server.CreateObject("ADODB.Recordset") rs.Open "SELECT id FROM users where id="&ids,conn,1,1 if rs.eof then rs.close set rs=Nothing Call Error("

会员ID不存在！") end if rs.close set rs=Nothing uid=ids response.write"

" else uid=myid response.write"

" end if if clng(ids)=myid or clng(uid)=myid then set rs=Server.CreateObject("ADODB.Recordset") rs.open"select * from upfile where Fid="&uid&" and smallstr=1 order by id desc",conn,1,1 else set rs=Server.CreateObject("ADODB.Recordset") rs.open"select * from upfile where Fid="&uid&" and smallstr=1 and photoview=0 order by id desc",conn,1,1 end if If Not rs.eof Then Dim PageSize,i PageSize=5 Dim Count,page,pagecount,gopage gopage="photo.asp?ids="&uid&"&tid="&tid&"&sid="&sid&"&" Count=rs.recordcount page=int(request.QueryString ("page")) if page<=0 or page="" then page=1 pagecount=(count+pagesize-1)\pagesize if page>pagecount then page=pagecount rs.move(pagesize*(page-1)) For i=1 To PageSize If rs.eof Then Exit For response.write("图
") response.write""&i+(page-1)*PageSize&"." if rs("photoContent")<>"" then response.write""&left(ubb(rs("photoContent")),15)&"" else response.write""&left(ubb(rs("filesname")),15)&"" end if response.write"
" & rs("username") & "" dim photoCount photoCount=conn.execute("Select count(ID) from [photopl] where photoid="&rs("id")&"")(0) response.write"(评"&photoCount&"/阅"&rs("fileCount")&")" response.write"
" rs.moveNext Next if page-pagecount<0 then response.write "下一页"&chr(13) if page>1 then response.write "上一页"&chr(13) response.write "
("&page&"/"&pagecount&")共"&count&"张" if pagecount>1 then response.write "页" response.write"
" Else response.write"暂时没有记录，或是只存在私藏照片！
" end if rs.close set rs=nothing conn.close set conn=nothing Response.write "---------
" if clng(ids)=myid or clng(uid)=myid then response.write"上传相片" end if if tid<>"" then response.write"
返回上级" end if response.write"
社区相册" response.write"
我的空间" %>