<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="inc/conn.asp"-->
<!--#include file="inc/Conn_User.asp"-->
<!--#include file="inc/ubbcode.asp"-->
<!--#include file="inc/function.asp"-->  
<%
dim UserID
dim mdid,htm
mdid=trim(request("mdid"))
menu=trim(request("menu"))
htm=trim(request("htm"))
UserID=trim(request("UserID"))
if UserID="" then
	FoundErr=True
	ErrMsg=ErrMsg & "<br><li>请指定UserID</li>"
	call WriteErrMsg()
	response.end
else
	UserID=Clng(UserID)
end if

indexs="indexs.asp"
if UserID="del" then
	FoundErr=True
	ErrMsg=ErrMsg & "<br><li>该用户已被管理员删除</li>"
	call WriteErrMsg()
	response.end
else
	UserID=Clng(UserID)
end if
strFileName="main_left.asp?UserID=" & UserID
sql="select * from " & db_User_Table & " where " & db_User_ID & "=" & UserID
set rs=server.createobject("adodb.recordset")
rs.open sql,Conn_User,1,3
if rs.bof and rs.eof then
	FoundErr=True
	ErrMsg=ErrMsg & "0"
	call WriteErrMsg()
else
    photo=rs(db_User_photok)
	UserName=rs(db_User_Name)
	PageTitle=  UserName &"的小屋"
if cint(Request.Cookies("asp163")("userhits")) <> userid then
rs(db_User_hits)=rs(db_User_hits)+1
Response.Cookies("asp163")("userhits") = userid
rs.update
else
end if
%>
<LINK 
href="imgs/imgs/bbp.css" type=text/css rel=stylesheet>
<LINK media=screen href="imgs/imgs/lightbox.css" type=text/css rel=stylesheet>
<body oncontextmenu="return false" ondragstart="return false" onselectstart="return false">

 <body style="overflow-y:hidden">





                      <%set rs=server.createobject("adodb.recordset")
rs.open "select top 5 * from photo where editor='"&username&"' and Deleted=false order by photoid desc",conn,1,1
if rs.recordcount=0 then%>
<br>
暂时没有视屏<br>
<br>
<% 
else
	rs.PageSize =9 '每页记录条数
	iCount=rs.RecordCount '记录总数
	iPageSize=rs.PageSize
	maxpage=rs.PageCount 
	page=request("page")
	if Not IsNumeric(page) or page="" then
		page=1
	else
		page=cint(page)
	end if
	if page<1 then
		page=1
	elseif  page>maxpage then
		page=maxpage
	end if
	rs.AbsolutePage=Page
	if page=maxpage then
		x=iCount-(maxpage-1)*iPageSize
	else
		x=iPageSize
	end if
	%>



<%for i=1 to x%>

<div style='width:162;height:133;'><div style='width:162;height:13 ;overflow:visible;'><img border='0' src='imgs/pic/img_3_11_2-1114739383.gif' width='12' height='13'><img border='0' src='imgs/pic/img_3_11_6-1114739383.gif' width='135' height='13'><img border='0' src='imgs/pic/img_3_11_7-1114739383.gif' width='15' height='13'></div> <div style='width:162;height:105 ;overflow:visible;'><img border='0' src='imgs/pic/img_3_11_5-1114739383.gif' width='12' height='105'><a href=photo_photo.asp?photoid=<%=rs("photoID")%> target="_blank"><img src='<%=rs("PhotoUrl_Thumb")%>' width='135' height='105'></a><img border='0' src='imgs/pic/img_3_11_0-1114739383.gif' width='15' height='105'></div><div style='width:162;height:15 ;overflow:visible;'><img border='0' src='imgs/pic/img_3_11_3-1114739383.gif' width='12' height='15'><img border='0' src='imgs/pic/img_3_11_1-1114739383.gif' width='135' height='15'><img border='0' src='imgs/pic/img_3_11_4-1114739383.gif' width='15' height='15'></div></div>








<%if rs("photourl")<>"" then%>






 <%else
  end if%>

           <%if i mod 5=0 then%>
                      
                        <%else%>
                        <%end if%>
                        <%rs.movenext
  next
  %>
           
                      <%
end if
rs.close
set rs=nothing%>








<%

end if

rs.close
set rs=nothing
call CloseConn()
%>
