<!--#include file="inc/conn.asp"-->
<!--#include file="inc/safe.asp"-->
<html>
<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 {
	background-image: url();
	font-family: "宋体"; font-size: 9pt;
}
.STYLE8 {
	color: #CC0099;
	font-size: 12px;
	font-weight: bold;
}
.STYLE31 {color: #666666; font-size: 12px;}
-->
</style>
<script type="text/javascript" src="js/tips.js"></script>
</head>
<body>
<%
dim keys,classid
keys=replacebadchar(request("keys"))
classid=replacebadchar(request("s_id"))
%>
<table width="1002" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td><!--#include file="top.asp"--></td>
  </tr>
</table>
<table width="950" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="787" align="center" valign="top" bgcolor="#FFFFFF"><div align="left">
        <table width="778" border="0" cellpadding="0" cellspacing="0">
          <tr>
            <td width="200" height="570" align="center" valign="top"><!--#include file="memberleft.asp"--></td>
            <td align="center" valign="top" ><table width="577" 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"><table width="95%" border="0" cellpadding="0" cellspacing="3" class="STYLE4">
                              <tr>
                                <td class="pgd">兴趣圈文章搜索</td>
                                <td width="80" align="right">&nbsp;</td>
                              </tr>
                          </table></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="299" valign="top" style="border-left:#C7C8CC 1px solid;border-right:#C7C8CC 1px solid;border-bottom:#C7C8CC 1px solid"><br>
                    <table width="530" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
                      <tr>
                        <td height="35" align="center"><table width="400" border="0" cellpadding="0" cellspacing="0" class="STYLE4">
                            <form name="form1" method="post" action="searchjlbnews.asp">
							<input type="hidden" name="s_id" value="<%=classid%>">
                              <tr>
                                <td width="42">搜索：</td>
                                <td width="275"><input name="keys" type="text" id="keys" style=" height:19px; width:220px;"></td>
                                <td width="83" align="left"><input type="image" name="imageField" src="image/s.jpg"></td>
                              </tr>
                            </form>
                        </table></td>
                      </tr>
                      <tr>
                        <td align="center"><table width="530" border="0" cellpadding="0" cellspacing="0">
                            <tr>
                              <td align="center"><%
dim rowcount,page,pcount
set rs=server.CreateObject("adodb.recordset")
sql="select id,title,username,userid,dtime from jlbnews where smallid="& classid &""
if keys<>"" then
 sql=sql+" and title like '%%"& keys &"%%'"
end if
sql=sql+" order by id desc"

rs.open sql,conn,1
if rs.eof and rs.bof then
   response.Write "<p class='style4'><br>暂无信息！<br><br></p>"
else
               rs.pagesize=20
			   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
%>
                                <table width="530" border="0" cellspacing="0" cellpadding="0">
                                  <tr bgcolor="#EDF8FE">
                                    <td height="28" align="center" class="style895"><STRONG class="style895">时 间</STRONG></td>
                                    <td width="353" height="28" align="left" bgcolor="#EDF8FE" class="style895"><STRONG>&nbsp;标题</STRONG></td>
                                    <td align="center" class="style895"><STRONG>作 者</STRONG></td>
                                  </tr>
                                  <%do while not rs.eof and rowcount>0%>
                                  <tr>
                                    <td width="99" height="28" align="center" bgcolor="#FFFFFF" class="STYLE8889"><%=formatdatetime(rs("dtime"),2)%></td>
                                    <td height="28" bgcolor="#FFFFFF" class="STYLE88">&nbsp;<a href="wzcontent.asp?wzid=<%=rs("id")%>" class="a1" target="_blank" title="<%=rs("title")%>"><%=rs("title")%></a></td>
                                    <td width="78" align="center" bgcolor="#FFFFFF" class="STYLE88"><a href="userinfo.asp?user_id=<%=rs("userid")%>" class="a4"><%=rs("username")%></a></td>
                                  </tr>
                                  <%
rs.movenext
rowcount=rowcount-1
loop
%>
                                  <tr>
                                    <td height="8" colspan="3"></td>
                                  </tr>
                                </table>
                                <%if pcount>1 then%>
                                  <table width="530" border="0" cellpadding="0" cellspacing="0" bgcolor="E8E6E7">
                                    <tr>
                                      <td height="25"><%
  response.Write "<TABLE align='center' class='STYLE4'>"
response.Write "<form name='form1' method='post' action='searchjlbnews.asp'>"
response.Write "<input type='hidden' name='keys' value='"& keys &"'>"
response.Write "<input type='hidden' name='s_id' value='"& classid &"'>"
response.Write "<TBODY><TR><TD>"
if page>1 then
    response.Write "<a href='searchjlbnews.asp?page=1&s_id="& classid &"&keys="&keys&"' class='b2'>首页</a>&nbsp;"
	response.Write "<a href='searchjlbnews.asp?page="& page-1 &"&s_id="& classid &"&keys="&keys&"' class='b2'>上一页</a>&nbsp;"
else
    response.Write "首页&nbsp;上一页&nbsp;"
end if			 
if page<pcount then
    response.Write "<a href='searchjlbnews.asp?page="& page+1 &"&s_id="& classid &"&keys="&keys&"' class='b2'>下一页</a>&nbsp;"
	response.Write "<a href='searchjlbnews.asp?page="& pcount &"&s_id="& classid &"&keys="&keys&"' class='b2'>尾页</a>&nbsp;"
else
    response.Write "下一页&nbsp;尾页&nbsp;"
end if	

response.Write "页次:<STRONG><font color='#FF0000'>"&page&"</font>/"&pcount&"</STRONG>页&nbsp; <strong>"&rs.pagesize&"</strong>条/页&nbsp;共<strong>"& precordcount &"</strong>条&nbsp;转到:"
response.Write "<input name='page' type='text' id='page' size='2' style='height:18px;' maxlength='5' value='"&page&"'>"
response.Write "<input name='submit' type='submit' style='height:20px;' id='submit' value='GO'>"
response.Write "</TD></TR></TBODY></form></TABLE>"
			%></td>
                                    </tr>
                                </table>
                                  <%
 end if	
 end if%>
                              </td>
                            </tr>
                        </table></td>
                      </tr>
                      <tr>
                        <td align="center">&nbsp;</td>
                      </tr>
                    </table>
                  </td>
                </tr>
            </table></td>
          </tr>
        </table>
    </div></td>
    <td width="163" align="center" valign="top" bgcolor="#FFFFFF"><!--#include file="fenlei.asp"--></td>
  </tr>
  <tr>
    <td height="1" valign="top"></td>
    <td valign="top" ></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
%>
