<!--#include file="inc/ubbcode.asp"-->
<!--#include file="inc/conn.asp"-->
<!--#include file="inc/Conn_User.asp"-->
<!--#include file="inc/function.asp"-->

<style type="text/css"> 
img { 
border:1px solid #fc6; 
} 

padding: 6px; 
border: 2px solid #FFCC66; 
background-color: #FFF; 



img:hover { 
border:1px solid #f00; 
} 

</style> 


<link href="wwwroot/css\maincommon.css" rel="stylesheet" type="text/css" />


<%
photoid=request("photoid")
if photoid="" then 
FoundErr=True
	ErrMsg=ErrMsg & "<br><li>请指定图片ID</li><br>"
	call WriteErrMsg()
else 
end if
set rs=server.createobject("adodb.recordset")
rs.open "select * from flv where photoid="&photoid&" order by photoid desc",conn,1,3
rs("hits")=rs("hits")+1
rs.update%>








<html>

<head>

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

<title>Untitled Document</title>

<link href="wwwroot/css\Mpage_main.css" rel="stylesheet" type="text/css">

</head>


<%if photoid<>"" then%>



<body>

<div id="r_left">

	<div id="r_top_1"><span></span>
<A class="sbody" href="javascript:window.history.back() "target=_self>返回视频列表</A></div>

	<div id="r_roomy2"><div  id=MiniRoom>	


<div id="user_pic" style="width:415px;height:102px;background:url( ) center 2 no-repeat;">
<%if rs.eof then
response.write "没有找到指定图片!"
end if%>


             <%if rs.eof then
response.write "gggggggggggggg "
end if%>

<DIV id=video_center>
<script type="text/javascript">
var swf_width=425
var swf_height=350
var texts='<%=musicname%>'
var files='el99play?frameid=0&effectid=0&streamName=<%=flvUrl%>&LogoUrl=1.PNG&LogoText=<%=sname%>&IsAutoPlay=0&IsShowBar=1&BeginSwf=http://127.0.0.1/smallpic/2007988124659664.jpg&EndSwf=play1.swf'
document.write('<object classid="clsid:d27cdb6e-ae6d-11cf-96b8-444553540000" codebase="http://fpdownload.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0" width="'+ swf_width +'" height="'+ swf_height +'">');
document.write('<param name="movie" value="el99play.swf"><param name="quality" value="high">');
document.write('<param name="menu" value="false"><param name="allowFullScreen" value="true" />');
document.write('<param name="FlashVars" isAutoPlay="0" value="vcastr_file='+files+'&vcastr_title='+texts+'">');
document.write('<embed src="el99play.swf" allowFullScreen="true" FlashVars="vcastr_file='+files+'&vcastr_title='+texts+'" menu="false" quality="high" width="'+ swf_width +'" height="'+ swf_height +'" type="application/x-shockwave-flash" pluginspage="http://www.macromedia.com/go/getflashplayer" />'); document.write('</object>'); 
</script>







</div>




</div></div>







</div>


	<div >


<img src="http://127.0.0.1/wwwroot/images/ml.gif">





 <div id="user_pic" style="width:120px;height:102px;background:url( ) center 2 no-repeat;">         












                  
 <a target="_self" href="main_reply.asp?id=<%=rs("id")%>" target=content><img src="http://127.0.0.1/wwwroot/smallpic/200791324790197.jpg " width="110" height="70" border="0" alt=""> </a> 
</a>
</td></tr></table>
<table border="0" cellpadding="0" cellspacing="0"><tr><td height="0" align="center">
<a target="_self" href="main_reply.asp?id=6" target=content>方法法发 </A>



		    





    </td> 
  </tr>
</table> 







</div>

<div id="r_message">

<div style="text-align:center"><map name="FPMap0">

  <area style="CURSOR:hand;" onClick="window.parent.quxiu_chang_but(7,_message_l.asp_userid=_+window.parent.userid+_&d=_+window.parent.regdate+_&username=_+window.parent.homename,_message_r.asp_userid=_+window.parent.userid+_&d=_+window.parent.regdate+_&username=_+window.parent.homename)" shape="rect" coords="507, 6, 553, 25"></map><img border="0" src="page_style/icon/message.gif" usemap="#FPMap0" width="560" height="31"> </div>

<style type="text/css">

{width:555px;height:90px}.gx{width:555px;height:0px;background:#f5fdff;border:1px solid #8dcaff}.gx li{width:138px;float:left;color:#888;line-height:19px}.gx img{width:100px;height:70px}.gx ul{margin-top:22px;height:0px}.rt{width:196px;height:px;background:#fffdf0;border:1px solid #f8d04a}.rt li
</style>

<div class="gx">
	<div class="ggv">


	</div>
	
 &nbsp;
	
   











<tr><td align="center">

 









 <li> <a target="_self" href="main_Photo.asp?id=5" target=content><img src="http://127.0.0.1/wwwroot/Photo/upload/200211062424192.jpg" width="120" height="80" border="0" alt=""> </a>
	<br> &nbsp;	   
<a target="_self" href="main_Photo.asp?id=g " target=content>各个感个个</A>	
</li>
天天台
	</ul> 

</div>
 &nbsp;
</body>
</html>


<%userid=request("userid")
set rs=server.createobject("adodb.recordset")
sql="select * from [user] where userid="&userid&" order by userid desc"
rs.open sql,Conn_User,1,1
username=rs("username")

rs.close
set rs=nothing
%>
<%if request("classid")<"0" then%>
<%
myPagesize=12
set rs=server.createobject("adodb.recordset")
rs.open "select * from flv where editor='"&username&"' and Deleted=false order by photoid desc",conn,1,1
call myPages(rs,myPagesize)
%>
<%else%>
<%
myPagesize=12
classidd=request("classid")
set rs=server.createobject("adodb.recordset")
rs.open "select * from flv where editor='"&username&"' and classid="&classidd&" and Deleted=false order by photoid desc",conn,1,1
call myPages(rs,myPagesize)
%>
<%end if%>
<%if rs.recordcount=0 then %>


  <%else%>
<table border="0" align="center" cellpadding="0" cellspacing="0">
<%line=myPagesize
dim i
i=1
do while not rs.eof and line>0
%>


					<div >
</div>

				        
				   <div class="video">

					<ul>
					<li class="v_img">  <%if rs("photourl")<>"" then%><a href=flv_show.asp?photoid=<%=rs("photoID")%>><img src=<%=rs("PhotoUrl_Thumb")%> name="aa" border=0 id=aa style="<%= rs("styletype")%>"width="115" height="90" border="0"></a></li>
					<li class="v_name"> <%=left (rs("PhotoName"),6)%> </li>                              

				  </div>
 
               <%else
  end if%>






<%
	  userid=request("userid")
	
	  if CheckUserLogined()=true then
	  UserNamed=Request.Cookies("asp163")("UserName")
	 
	 set userq=server.createobject("adodb.recordset")
sql="select * from [user] where UserName='"&UserNamed&"' order by userid desc"
userq.open sql,Conn_User,1,1

	  
	  userw=userq("userid")
	 
	  If cint(userw)=cint(userid) then
	  
	  %>
                  <a href="User_flvMod.asp?PhotoID=<%=rs("PhotoID")%>"><img src=user/mody.gif border="0"><a href="User_flvDel.asp?PhotoID=<%=rs("PhotoID")%>&userid=<%=userid%>" onClick="return ConfirmDel();"> </a>
                  <%else
				   %>









	  <%
	  end if%>
                <%
	  else
	 
	  end if
	  %>                
           <%if i mod 4=0 then%>
</Tr>
<%else%>
<%end if%>
<%rs.movenext
   line=line-1
   i=i+1
loop
  %>
  
</table>
    

  <%rsc.close
set rsc=nothing
rsuser.close
set rsuser=nothing%>
  <center><%call listpages(mycondition)%></center>
  <%sub listpages(mycondition)
	response.write "<table height=22  border=0 cellpadding=0 cellspacing=0><Tr><td><table width='100%' border=0 cellspacing=0 cellpadding=0><tr><td height=3></td></tr></table>"
	if pages<1 then
		exit sub
	end if
	
	
	if p>0 then
		response.write	"<a href="&request.ServerVariables("script_name")&"?userid="&userid&"&currentpage=10&p="&p-1&mycondition&"><img src=user/prepre.gif alt=前十页 border=0></a>&nbsp;&nbsp;&nbsp;"
    else
	response.write	"<img src=user/prepre.gif alt=前十页 border=0>&nbsp;&nbsp;&nbsp;"
    end if
	'-------------------下面写出当前十个页码
	response.write "</td><td><img src=user/lined.gif border=0><img src=user/k.gif border=0 width=5>"
	for i=1 to 10
		if (p*10+i)>pages then exit for
		if currentpage=i then
		
			response.write "<b><a style='color:ff6600'"
		else
			response.write "<a"
		end if 
		response.write " href="&request.ServerVariables("script_name")&"?userid="&userid&"&currentpage="&i&"&p="&p&mycondition&"><font class=no >"&(p*10+i)&"</font></a></b>&nbsp;&nbsp;<img src=user/lined.gif border=0><img src=user/k.gif width=5 border=0>"	
     next
	 response.write "</td><td><table width='100%' border=0 cellspacing=0 cellpadding=0><tr><td height=3></td></tr></table>"
	 '--------------------察看下十页的连接
    if (p*10+10)<pages then
		response.write "<img src=user/k.gif border=0><a href="&request.ServerVariables("script_name")&"?userid="&userid&"&currentpage=1&p="&p+1&mycondition&"><img src=user/nextnext.gif alt=后十页 border=0></a>&nbsp;&nbsp;" 
		else
		response.write "<img src=user/k.gif border=0><img src=user/nextnext.gif alt=后十页 border=0>&nbsp;&nbsp;"
	end if
	'-----------------------------------------------上下页导航
	response.write "&nbsp;</td>"
	

	  response.write "</tr></table>"
end sub

sub myPages(myRS,mysize)  '------mysize为内部变量（主页面没有定义），myRS为主页面传递过来的RS对象（地址传递）
	if myRS.eof and myRS.bof then str="没有纪录"
	if str="" then
		if mysize="" or NOT IsNumeric(mysize) then
			mysize=15
		end if
		myRS.PageSize=mysize
		pages=myRS.pagecount
		records=myRS.recordcount
		On Error Resume Next '取得数字
		currentPage=request("currentPage")
		if currentPage="" then
			currentPage=1
		end if
		currentPage=CInt(currentPage)
		if Err.Number <> 0 Then
			currentPage=1
			Err.Clear
		end if
		if currentPage<1 then
			currentPage=1
		elseIf currentPage>10 then
			currentPage=10
		end if
		'----------------处理p
		p=request("p")
		if p="" then
			p=0
		end if
		p=CLng(p)
		if Err.Number <> 0 Then
			p=0
			Err.Clear
		end if
		if p<0 then
			p=0
		end if
		'--判断是否出了页数范围
		nowPage=p*10+currentPage
		if nowPage>pages then
			p=(pages-1)\10
			currentPage=((pages-1) mod 10)+1
		end if
		myRS.absolutepage=p*10+currentPage
	else
	   currentPage=1
	   records=0
	   pages=1
	end if
end sub

dim pages,records,currentPage,p '--------定义变量，这些变量在主页面中，进行地址传递%>














<%end if%>

<%
rs.close
set rs=nothing
%>
