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

<%

dim ClassID,SpecialID
dim SkinID,LayoutID,SkinCount,LayoutCount,ClassMaster,BrowsePurview,AddPurview
ClassID=session("ClassID_Photo")
SpecialID=session("SpecialID_Photo")
if ClassID="" then
	ClassID=0
else
	ClassID=Clng(ClassID)
end if
if SpecialID="" then
	SpecialID=0
else
	SpecialID=Clng(SpecialID)
end if
%>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3c.org/TR/1999/REC-html401-19991224/loose.dtd">
<!-- saved from url=(0054)http://blog.6to23.com/?action-channel-name-messagelist -->
<HTML xmlns="http://www.w3.org/1999/xhtml"><HEAD><TITLE>芜湖播客家园——我要广播</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META content=我要广播 name=keywords>
<!--#include file="top6.asp"-->
<LINK 
href="qwv_files/all_css.css" type=text/css rel=stylesheet>
<LINK 
href="qwv_files/makefir.css" type=text/css rel=stylesheet>
<DIV class=nav_menu style="WIDTH: 950px">


<!--右上角导航开始 end -->
<DIV id=all_middle><!--ad begin-->
<DIV id=nav><!--default nav begin-->
<DIV id=nav_default>
<DIV id=nav_up></DIV>
<DIV id=nav_nav>







</DIV>
<DIV ></DIV><!--分类 start -->

<DIV >
<DIV>
<DIV >
</UL></DIV>
<DIV ></DIV><!--导航第二条 begin-->
<DIV id=nav_seach>       </DIV><!--导航第二条 end-->
<DIV n></DIV></DIV><!--资讯导航条 end--></DIV><!--切换控制 begin-->










<DIV id=by_3w style="HEIGHT: auto">
<DIV class=by3w_le style="HEIGHT: auto">
<DIV class=lele_nav><SPAN class=lele_1></SPAN><SPAN 
class=lele_2><STRONG></STRONG> <FONT size=+0>我要广播</FONT></SPAN><SPAN 
class=lele_4>
<DIV style="MARGIN: 4px 0px 0px -90px; POSITION: absolute"></DIV></SPAN><SPAN 
class=lele_3></SPAN></DIV>
<DIV class=by3w_mid style="BORDER-BOTTOM-WIDTH: 0px; HEIGHT: auto">
<DIV style="OVERFLOW: hidden; HEIGHT: 0px"></DIV><!--交友列表内容 开始--><!--交友宣言 列表页内容--><%
myPagesize=10
set rs=server.createobject("adodb.recordset")
rs.open "select * from lb order by photoid desc",conn,1,1
call myPages(rs,myPagesize)
%>
                <%line=myPagesize
dim i
i=1
do while not rs.eof and line>0
%>

<DIV class=mf_talk>
<DIV class=mf_img>



<%
set rsf=server.createobject("adodb.recordset")
rsf.open "select * from [user] where username='"&rs("editor")&"' order by userid desc",conn_user,1,1 
%>
<IFRAME id=content 
                  style="WIDTH: 60" name=content align=left 
                  src="userdlbb.asp?userid=<%=rsf("userid")%>" frameBorder=0 scrolling=yes 
                  height="62"></IFRAME>




</DIV>
<DIV class=mf_txt><%
set rsf=server.createobject("adodb.recordset")
rsf.open "select * from [user] where username='"&rs("editor")&"' order by userid desc",conn_user,1,1 
%>
<P>
<%
set rsf=server.createobject("adodb.recordset")
rsf.open "select * from [user] where username='"&rs("editor")&"' order by userid desc",conn_user,1,1 
%><a class=mf_name href=user.asp?userid=<%=rsf("userid")%> target="_blank"><%=rs("editor")%>
							</a>


<A 
class=mf_liuy href="messager.asp?action=new&touser=<%=rsf("UserName")%>"target=_blank>给我发短
信</A></P>
<P align=left><B><%=rs("PhotoUrl_Thumb")%></B>&nbsp;<IMG src="../page_style/icon/doc.gif">&nbsp;&nbsp;<A 
  href="labaa.asp?photoid=<%=rs("photoID")%>" 
  target=_blank><B><%=left(rs("photoname"),30)%></B></A></P></DIV></DIV><%if i mod 5=0 then%>
                                     
                                      <%else%>
                                      <%end if%>
                                      <%rs.movenext
   line=line-1
   i=i+1
loop
  %>
<!--交友列表内容 结束--><!--分页 开始-->
<DIV 
style="MARGIN: 15px 0px 10px; LINE-HEIGHT: 22px; HEIGHT: 22px; TEXT-ALIGN: center">




                  <%call listpages(mycondition)%>
                  <%rs.close
set rs=nothing%>

<%sub listpages(mycondition)

	response.write "<table height=12  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")&"?classid="&classidd&"&currentpage=10&p="&p-1&mycondition&"><img src=user/prepre.gif alt=前十页 border=0> </a> "
    else
	response.write	"<img src=user/prepre.gif alt=前十页 border=0>"
    end if
	'-------------------下面写出当前十个页码
	response.write "</td><td> <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 
		dates=request("dates")
		response.write " href="&request.ServerVariables("script_name")&"?classid="&classidd&"&currentpage="&i&"&p="&p&mycondition&"><font class=no >"&(p*10+i)&"</font></a></b><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")&"?classid="&classidd&"&currentpage=1&p="&p+1&mycondition&"><img src=user/nextnext.gif alt=后十页 border=0></a>" 
		else
		response.write "<img src=user/k.gif border=0><img src=user/nextnext.gif alt=后十页 border=0>"
	end if
	'-----------------------------------------------上下页导航
	response.write "</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 '--------定义变量，这些变量在主页面中，进行地址传递%>





</DIV><!--分页 结束-->
<DIV style="OVERFLOW: hidden; HEIGHT: 0px"></DIV></DIV>
<DIV class=down_line></DIV></DIV>
<DIV class=by3w_rig style="HEIGHT: auto">
<!--最新成立 开始-->
      	<div class="righ_top">
        	<span class="rig_tople"></span><strong>我要发布广播</strong><span class="rig_toprig"></span>
        </div>
      	<div class="righ_mid" style="height:441px;">
<div class="cc_new">
            
                 <!--最新成立内容 开始-->
<!--最新成立圈子-->                <div class="cc_new_by">
                	<p class="cc_new_tit">














<link rel="StyleSheet" href="bbbb_files/listt.css" type="text/css" media="screen" />
<script language = "JavaScript">
function CheckForm()
{
  if (document.myform.ClassID.value=="")
  {
    alert("视屏所属栏目不能指定为含有子栏目的栏目！");
	document.myform.ClassID.focus();
	return false;
  }
  if (document.myform.ClassID.value==0)
  {
    alert("视屏所属栏目不能指定为外部栏目！");
	document.myform.ClassID.focus();
	return false;
  }

  if (document.myform.PhotoName.value=="")
  {
    alert("视屏名称不能为空！");
	document.myform.PhotoName.focus();
	return false;
  }
  if (document.myform.Keyword.value=="")
  {
    alert("关键字不能为空！");
	document.myform.Keyword.focus();
	return false;
  }
  if (document.myform.PhotoUrl_Thumb.value=="")
  {
    alert("缩略图地址不能为空！");
	document.myform.PhotoUrl_Thumb.focus();
	return false;
  }
  if (document.myform.PhotoSize_Thumb.value=="")
  {
    alert("缩略图文件大小不能为空！");
	document.myform.PhotoSize_Thumb.focus();
	return false;
  }
  if (document.myform.PhotoUrl.value=="")
  {
    alert("原始视屏地址不能为空！");
	document.myform.PhotoUrl.focus();
	return false;
  }
  if (document.myform.PhotoSize.value=="")
  {
    alert("原始视屏文件大小不能为空！");
	document.myform.PhotoSize.focus();
	return false;
  }
}
</script



</head>
<body>


    <!--col2side -->
    <div id="col2side">
      <div class="head"> </div>
      <div class="body">
        <div id="axtop" class="boac"><a href="javascript:;"><img src="http://bo.woku.com/style/bo/images/ad.gif" width="203" height="67" border="0" /></a></div>
        <p>输入广播内容，不超过50字</p>


<div id="refer" class="i_bor">







<form name="speak" id="speak" method="post" action="User_lbSave.asp" onSubmit="return check_submit();return false;">
	<div class="i_bg">
		<dl>
		 <dt><span> <input type="radio" name="PhotoUrl_Thumb" value="[ 征男友 ]" />征男友<input type="radio" name="PhotoUrl_Thumb" value="[ 征女友 ]" checked="checked" />征女友<input type="radio" name="PhotoUrl_Thumb" value="[ 心里话 ]" />心里话<input type="radio" name="PhotoUrl_Thumb" value="[ 我宣布 ]" />我宣布</dt>
		 <dd>


<INPUT name=PhotoName style="WIDTH: 220px; HEIGHT: 83px" id=PhotoName size=30 value="" size="30">




<input type="submit" value="提　交" /></dd>

                         <%
UserNamed=Request.Cookies("asp163")("UserName")
set rsc=server.createobject("adodb.recordset")
sql="select * from [lbclass] where UserName='"&UserNamed&"' order by classid desc"
rsc.open sql,Conn,1,1
%>
    <select name="ClassID">
                                
 <%call Admin_ShowClass_Option(1,ClassID)%>  
		






</dl>







                                <input name="Keyword" type="hidden"
           id="Keyword" value="喇叭">
                                  <strong>
                                                                  

<input name="Author" type="hidden"
           id="Author3" size="17" maxlength="100" >
                                </strong>



                                </strong>                        
                                                                  

<input name="Author" type="hidden"
           id="Author3" size="17" maxlength="100" >
                                </strong>
  <input name="PhotoUrl_Thumbsm" 

type="hidden" id="PhotoUrl_Thumbsm" size="40" value="：" 

maxlength="200">
                                <input name="PhotoUrl" value="：" 

type="hidden" id="PhotoUrl" size="40" maxlength="200"></td>

<input name="PhotoIntro" type="hidden" id="textarea" value="：" 

size="40" >       
<input name="PhotoSize_Thumb" type="hidden" id="PhotoSize_Thumb" 

size="1" maxlength="10">
<input name="PhotoSize" type="hidden" id="PhotoSize5" size="1" 

maxlength="10" value="0">                             
                              <td colspan="2" align="center" 

valign="middle"><input name="Action" type="hidden" id="Action2" 

value="Add">
</td>
</div>
</form>
</div>

 <p class="btngroup">

        <img src="http://bo.woku.com/style/bo/images/bo_04.gif" alt="注意" />
        <ul>
          <li>&nbsp;1.&nbsp;登录芜湖播客家园“我要广播”页面。 </li>
          <li>&nbsp;2.&nbsp;只有家园注册用户才能发布广播信息。 </li>


        </ul>
      </div>
    </div>
    <!--col2sideend -->










</body>
</html>
<%
call CloseConn()
%>





















                </div>
                <!--最新成立内容 结束-->                <!--最新成立内容 结束-->
 
</div>
</div>
      	<div class="righ_bott"></div>
<!--最新成立 结束-->

<DIV >
<!--热门tag结束--></DIV>
<DIV></DIV></DIV></DIV></DIV><!--copyright begin--><BR>
<table width="950" border="0" cellspacing="0" cellpadding="0" class="qg_0612">
  <tr>
    <td width="324" align="center"><table width="950" border="0" cellspacing="0" cellpadding="0" class="qg_c_0612">
      <tr>





<!-- sidebar end -->

</div>
<div ></div>
<div >
</div>


<div >


</div>
	</div>
<!-- sidebar end -->
<!--#include file="end.asp"-->


</body>
</html>

