<!--#include file="inc/conn.asp"-->
<!--#include file="inc/safe.asp"-->
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>红嫂视屏交友网</title>
<meta name="keywords" content="情感,在线,新新,照片,动感影片,诗歌,爱情,纯洁,心连心">
<meta name="description" content="红嫂视屏交友情缘 情感在线">
<link href="style.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
body {
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
	background-image: url();
	background-repeat: repeat-x;
}
-->
</style>
<script language="javascript">
<!--
function chkit(){
if(this.document.form1.skey.value==""){
  return false;
}
return true;
}
//-->
</script>
</head>
<body>
<table width="1002" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td><!--#include file="top.asp"--></td>
  </tr>
</table>
<%
dim jlbid,jlbname
jlbid=request.QueryString("jid")
ChkNumber(jlbid) 
set r1=server.CreateObject("adodb.recordset")
rsql="select bigname from julebu where bigid="& jlbid
r1.open rsql,conn,1
if r1.bof and r1.eof then
  response.Write "没有此编号的兴趣圈"
  response.end
else
  jlbname=r1("bigname")
end if
r1.close
set r1=nothing
%>
<table width="950" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="204" height="674" valign="top"><!--#include file="fenlei2.asp"--></td>
    <td valign="top"><table width="749" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td><TABLE width="100%" border=0 
            cellPadding=0 cellSpacing=0 bgColor=white class="STYLE4" >
              <TBODY>
                <TR>
                  <TD width="2%" align=left background="image/tiao_4.gif"><img src="image/tiao_3.gif" width="10" height="31"></TD>
                  <TD height="20" align=center background="image/tiao_4.gif"><div align="left"><span class="pgd"><strong><%=jlbname%>广告图片信息</strong></span></div></TD>
                  <TD width="2%" align="right" background="image/tiao_4.gif"><img src="image/tiao_2.gif" width="10" height="31"></TD>
                </TR>
              </TBODY>
          </TABLE></td>
        </tr>
        <tr>
          <td height="660" valign="top" bgcolor="F1FAFF" style="border-left:#C7C8CC 1px solid;border-right:#C7C8CC 1px solid;border-bottom:#C7C8CC 1px solid"><br><br>
        <%
set rs=server.CreateObject("adodb.recordset")
sql="select * from [jlbggtp] where jlbid="& jlbid &" order By id Desc"
rs.open sql,conn,1
if rs.eof and rs.bof then
   response.Write "<p class='style4'><br>暂无"& jlbname &"广告信息！<br><br></p>"
else
               rs.pagesize=1
			   msg_per_page=rs.pagesize
			   page=request("page")
			   if page<1 or page="" then page=1
			   if clng(page)>clng(rs.pagecount) then page=clng(rs.pagecount)
			   page=clng(page)
			   rs.absolutepage=page
			   rowcount=rs.pagesize
			   pcount=clng(rs.pagecount)	
			   precordcount=rs.recordcount
%>
 <%	do while not rs.eof and rowcount>0%>
			<table width="602" border="0" align="center" cellpadding="0" cellspacing="0">
              <tr>
                <td height="26"><div align="center" class="title"><font color="#333333"><%=rs("title")%></font></div></td>
              </tr>
              <tr>
                <td height="26"><div align="center"></div></td>
              </tr>
              <tr>
                <td height="263"><div align="center"><img src="uppic/<%=rs("ggpic")%>" width="566" height="404" onload="javascript:if(this.width>566)this.width=566"></div></td>
              </tr>
              <tr>
                <td height="24">&nbsp;</td>
              </tr>
            </table>
<%
rs.movenext
rowcount=rowcount-1
loop
dim xnum,pagenum
pagenum=10   '每页页码数
xnum=(pcount \ pagenum)+1  '总的
pnum=(page-1)\pagenum +1      '当前

startnum=(pnum-1)*pagenum +1
if xnum=pnum then
  endnum=pcount
else
  endnum=pnum*pagenum
end if
%>			
            <table width="602" border="0" align="center" cellpadding="0" cellspacing="0">
              
              <tr>
                <td height="37"><div align="center">
				<%if page>1 then%>
				<a href="ggao.asp?page=<%=page-1%>&jid=<%=jlbid%>"><img src="images/next.gif" width="81" height="21" align="absmiddle" border="0"></a>
				<%end if%>
				 <%for jj=startnum to endnum
				  if jj=page then 
				    response.Write "<font color='#FF0000' style='font-weight: bold;font-size:13px;'>"& jj &"</font>&nbsp;"
				  else%>
				   <a href="ggao.asp?page=<%=jj%>&jid=<%=jlbid%>" class="b2" style="font-weight: bold"><%=jj%></a>&nbsp;
				  <%end if
				 next%>				  
				 <%if page<pcount then%>
				 <a href="ggao.asp?page=<%=page+1%>&jid=<%=jlbid%>"><img src="images/next2.gif" width="81" height="21" align="absmiddle" border="0"></a>
				 <%end if%>
				 </div></td>
              </tr>
            </table>
<%end if%>			
		  </td>
        </tr>
    </table></td>
  </tr>
</table>
<table width="1002" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td><!--#include file="root.asp"--></td>
  </tr>
</table>
</body>
</html>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
