<!--#include file="inc/conn.asp"-->
<!--#include file="inc/safe.asp"-->
<!--#include file="inc/config.asp"-->
<!--#include file="inc/const.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">
<link href="css.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
body {
	background-image: url();
}
.STYLE8 {
	color: #CC0099;
	font-size: 12px;
}
.STYLE81 {color: #CC0099;
	font-size: 12px;
}
.style91 {FONT-FAMILY: "宋体"; font-size: 13px;}
-->
</style>
<script language="javascript">
<!--
function chkreply(){
if(document.frmreply.content.value==""){
alert("请填写内容！");
document.frmreply.content.focus();
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 wzid:wzid=request("wzid")
ChkNumber(wzid) 

set rs=server.CreateObject("adodb.recordset")
sql="select * from jlbreply where newsid="& wzid &" order by dtime asc"
rs.open sql,conn,1,1
rcount=rs.recordcount

pmcount=10
rs.pagesize=pmcount   	'设置每页数
mpage=rs.pagecount    	'得到总页数
if mpage=0 then mpage=1
pageno=clng(request("pageno"))
	
if isempty(pageno) or cint(pageno)<1 or cint(pageno)>mpage then
	pageno=1
end if   
%>
<table width="950" border="0" align="center" cellpadding="00" cellspacing="0" style="border-left:#9DCCF6 1px solid;border-right:#9DCCF6 1px solid;border-top:#9DCCF6 1px solid;border-bottom:#9DCCF6 1px solid">  
  <form method="post" action="wzcontent.asp">
  <input type="hidden" name="wzid" value="<%=wzid%>">
  <tr>
    <td width="105" height="26" background="images/index_39.gif" class="pgd">&nbsp;&nbsp;浏览回贴</td>
    <td width="432" background="images/index_39.gif" class="pgd">&nbsp;</td>
    <td width="411" background="images/index_39.gif" class="style91">共 <%=cstr(rcount)%> 篇回复 第 <%=cstr(pageno)&"/"&cstr(mpage)%> 页 &nbsp;跳转
      <input name="pageno" type="text" id="pageno" size="2" maxlength="4">
      页
      <input type="submit" name="Submit" value="GO">
      <%if cint(pageno)>1 then%>
                        [<a href='wzcontent.asp?pageno=<%=pageno-1%>&wzid=<%=wzid%>' class="a1">上一页</a>]
                        <%end if
			if cint(pageno)<cint(mpage) then
			%>
                        [<a href='wzcontent.asp?pageno=<%=pageno+1%>&wzid=<%=wzid%>' class="a1">下一页</a>]
      <%end if%> </td>
  </tr></form>
</table>
<div id="aa" style="display:<%if pageno<>1 then response.Write "none"%>">
<%
set res=server.CreateObject("adodb.recordset")
rsql="select * from jlbnews where id="& wzid
res.open rsql,conn,1,3
if not res.eof then
jlbid=res("bigid")
%>
<table width="180" border="0" cellspacing="0" cellpadding="00">
  <tr>
    <td height="8"></td>
  </tr>
</table>
<table width="950" border="0" align="center" cellpadding="00" cellspacing="0">
  <tr valign="top">
    <td width="164" height="367" bgcolor="DFF3FF" style="border-left:#9DCCF6 1px solid;border-right:#9DCCF6 1px solid;border-top:#9DCCF6 1px solid;border-bottom:#9DCCF6 1px solid"><table width="163" border="0" cellspacing="1" cellpadding="0">
      <tr >
        <td height="23" colspan="3" background="images/index_35.gif"><div align="center"><span class="STYLE3">楼 主：</span><a href="userinfo.asp?user_id=<%=res("userid")%>" target="_blank" class="STYLE2"><%=res("username")%></a></div></td>
      </tr>
      <%
		set r2=server.CreateObject("adodb.recordset")
		sql2="select photo,birthday,school,prov,grade from user_info where userid="& res("userid")
		r2.open sql2,conn,1
		%>
        <tr>
          <td width="8" height="23">&nbsp;</td>
          <td width="140"><%
						if r2("photo")<>"" and not isnull(r2("photo")) then
						response.Write "<img src='uppic/photo/"& r2("photo") &"' onload='javascript:if(this.width>this.height){this.width=144}else{this.height=108}' align='middle'>"
						else
						%>
                        <img src="image/showphoto2.gif" width="154" height="120" align="middle">
                       <%end if%></td>
          <td width="10">&nbsp;</td>
        </tr>
        <tr>
          <td height="23">&nbsp;</td>
          <td><span class="style30"><%
				response.Write datediff("yyyy",r2("birthday"),now())&"&nbsp;"&ShowXl(r2("school"))&"&nbsp;"&GetProv(r2("prov"))
				if chkonline(res("userid")) then response.Write "&nbsp;在线"
				response.Write "<br>诚信&nbsp;"
				ShowHonor(res("userid"))
				%><br>
身份级别：</span><span class="hong"><%select case r2("grade")
													case 1:
													  Tclass="注册会员"
													case 2:
													  Tclass="普通会员"
													case 3:
													  Tclass="VIP会员"
													end select
													response.Write Tclass
													%></span></td>
          <td>&nbsp;</td>		  
        </tr>
		<%r2.close
		  set r2=nothing%>
    </table></td>
    <td width="4"></td>
    <td width="782"><table width="782" border="0" cellpadding="2" cellspacing="0" style="border-left:#9DCCF6 1px solid;border-right:#9DCCF6 1px solid;border-top:#9DCCF6 1px solid;border-bottom:#9DCCF6 1px solid">
      <tr  >
        <td width="593" height="30" class="style30"><div align="center"><span class="pgd">主题:</span><span class="hong2"><%=res("title")%></span></div></td>
        <td width="92" height="30" class="style30"><%
		if UserID<>0 and isInteger(UserID) then
		  response.Write "<a href=""#hf""><img src=""images/aniu23.gif"" width=""52"" height=""26"" border=""0""></a>"
		else
		  response.Write "<a href=""userlogin.asp""><img src=""images/aniu22.gif"" width=""52"" height=""26"" border=""0""></a>"
		end if
		%></td>
        <td width="83" class="style30"><span class="style30" style="border-top:#cccccc 1px solid">
          <%if chkhz(jlbid,userid) then response.Write "<a href=""deljlbnews.asp?id="& res("id") &"&clubid="& jlbid &""">删除</a>"%>
        </span></td>
      </tr>
      <tr  >
        <td height="30" colspan="3" background="images/line3.gif" class="style30" style="border-top:#cccccc 1px solid">&nbsp;&nbsp;作者: <A href="userinfo.asp?user_id=<%=res("userid")%>" target=_blank class="a1"><font color="#474747"><%=res("username")%></font></A>  时间：<%=res("dtime")%>  <%
		if chkhz(jlbid,userid) then response.Write "&nbsp;&nbsp;IP："&res("ip")
		%> </td>
        </tr>
      <tr bgcolor="#FFFFFF">
        <td height="90" colspan="3" valign="top" class="style30"><div align="left">
          <table width="735" border="0" align="center" cellpadding="00" cellspacing="0">
            <tr>
              <td width="735" style="font-size:12px;"><br>
			  <%=res("content")%>
			  <br></td>
            </tr>
          </table>
        </div></td>
      </tr>
    </table>
   </td>
  </tr>
</table>
<table width="163" border="0" cellspacing="0" cellpadding="00">
  <tr>
    <td height="6"></td>
  </tr>
</table>
<%
res("click")=res("click")+1
res.update
end if
 res.close
 set res=nothing
%>
<table width="950" border="0" align="center" cellpadding="00" cellspacing="0" style="border-left:#9DCCF6 1px solid;border-right:#9DCCF6 1px solid;border-top:#9DCCF6 1px solid;border-bottom:#9DCCF6 1px solid">
    <tr>
      <td width="105" height="26" background="images/index_39.gif" class="pgd">&nbsp;&nbsp;回贴：</td>
      <td width="441" background="images/index_39.gif" class="pgd">&nbsp;</td>
      <td width="402" background="images/index_39.gif" class="style91">&nbsp;</td>
    </tr>
</table>
</div>
<%
if not (rs.eof and rs.bof) then
rs.absolutepage=pageno	'将指针移至指定页的第一条记录
loopno=pmcount	  
%>
<%
do while not rs.eof and loopno>0%>	
<table width="163" border="0" cellspacing="0" cellpadding="00">
  <tr>
    <td height="4"></td>
  </tr>
</table>
<table width="950" border="0" align="center" cellpadding="00" cellspacing="0">
  <tr valign="top">
    <td width="164" height="214" bgcolor="DFF3FF" style="border-left:#9DCCF6 1px solid;border-right:#9DCCF6 1px solid;border-top:#9DCCF6 1px solid;border-bottom:#9DCCF6 1px solid"><table width="163" height="73" border="0" cellpadding="00" cellspacing="1">
        <tr>
          <td height="23" colspan="3" background="images/index_35.gif"><div align="center"><a href="userinfo.asp?user_id=<%=rs("userid")%>" class="STYLE2"><%=rs("username")%></a></div></td>
        </tr>
		<%
		set r2=server.CreateObject("adodb.recordset")
		sql2="select photo,birthday,school,prov,grade from user_info where userid="& rs("userid")
		r2.open sql2,conn,1
		%>
        <tr>
          <td width="8" height="23">&nbsp;</td>
          <td width="140"><%
						if r2("photo")<>"" and not isnull(r2("photo")) then
						response.Write "<img src='uppic/photo/"& r2("photo") &"' onload='javascript:if(this.width>this.height){this.width=144}else{this.height=108}' align='middle'>"
						else
						%>
                        <img src="image/showphoto2.gif" width="154" height="120" align="middle">
                       <%end if%></td>
          <td width="10">&nbsp;</td>
        </tr>
        <tr>
          <td height="23">&nbsp;</td>
          <td><span class="style30"><%
				response.Write datediff("yyyy",r2("birthday"),now())&"&nbsp;"&ShowXl(r2("school"))&"&nbsp;"&GetProv(r2("prov"))
				if chkonline(rs("userid")) then response.Write "&nbsp;在线"
				response.Write "<br>诚信&nbsp;"
				ShowHonor(rs("userid"))
				%><br>
身份级别：</span><span class="hong"><%select case r2("grade")
													case 1:
													  Tclass="注册会员"
													case 2:
													  Tclass="普通会员"
													case 3:
													  Tclass="VIP会员"
													end select
													response.Write Tclass
													%></span></td>
          <td>&nbsp;</td>		  
        </tr>
		<%r2.close
		  set r2=nothing%>
      </table>
        </td>
    <td width="4"></td>
    <td width="782"><table width="782" border="0" cellpadding="2" cellspacing="0" style="border-left:#9DCCF6 1px solid;border-right:#9DCCF6 1px solid;border-top:#9DCCF6 1px solid;border-bottom:#9DCCF6 1px solid">
        <tr  >
          <td width="621" height="32" background="images/line3.gif" class="style30" style="border-top:#cccccc 1px solid">&nbsp;&nbsp;回帖者:          <a href="userinfo.asp?user_id=<%=rs("userid")%>" class="a1"><font color="#474747"><%=rs("username")%></font></a>  时间：<%=rs("dtime")%><%
		if chkhz(jlbid,userid) then response.Write "&nbsp;&nbsp;IP："&rs("ip")
		%></td>
          <td width="76" height="32" background="images/line3.gif" class="style30" style="border-top:#cccccc 1px solid"><%
		if UserID<>0 and isInteger(UserID) then
		  response.Write "<a href=""#hf""><img src=""images/aniu23.gif"" width=""52"" height=""26"" border=""0""></a>"		
		end if
		%>&nbsp;</td>
          <td width="71" background="images/line3.gif" class="style30" style="border-top:#cccccc 1px solid"><span class="style30" style="border-top:#cccccc 1px solid">
            <%if chkhz(jlbid,userid) then response.Write "<a href=""deljlbreplay.asp?id="& rs("id") &"&clubid="& jlbid &"&wzid="& wzid &""">删除</a>"%>
          </span></td>
        </tr>
        <tr bgcolor="#F9F9F9">
          <td height="182" colspan="3" valign="top" class="style30"><div align="left">
              <table width="735" border="0" align="center" cellpadding="00" cellspacing="0">
                <tr>
                  <td width="735" height="80">&nbsp;&nbsp;&nbsp;<br>
                    <span class="p1"><%=rs("content")%> <br></span></td>
                </tr>
              </table>
          </div></td>
        </tr>
    </table></td>
  </tr>
</table>
<%
rs.movenext
loopno=loopno-1
loop
end if
rs.close
set rs=nothing
%>
<table width="163" border="0" cellspacing="0" cellpadding="00">
  <tr>
    <td height="4"></td>
  </tr>
</table>
<table width="950" border="0" align="center" cellpadding="00" cellspacing="0" style="border-left:#9DCCF6 1px solid;border-right:#9DCCF6 1px solid;border-top:#9DCCF6 1px solid;border-bottom:#9DCCF6 1px solid">
    <tr>
      <td width="105" height="26" background="images/index_39.gif" class="pgd">&nbsp;<a name="hf"></a>&nbsp;快速回复：</td>
      <td width="441" background="images/index_39.gif" class="pgd">&nbsp;</td>
      <td width="402" background="images/index_39.gif" class="style91">&nbsp;</td>
    </tr>
</table>
<table width="163" border="0" cellspacing="0" cellpadding="00">
  <tr>
    <td height="2"></td>
  </tr>
</table>
<table width="950" border="0" align="center" cellpadding="00" cellspacing="0">
 <form method="post" name="frmreply" action="savereply.asp" onSubmit="return chkreply();">
 <input type="hidden" name="wzid" value="<%=wzid%>">
  <tr valign="top">
    <td width="164" height="161" bgcolor="DFF3FF"><table width="155" border="0" align="center" cellpadding="00" cellspacing="0">
          <tr>
            <td height="160" valign="top">&nbsp;</td>
          </tr>
      </table></td>
    <td width="4"></td>
    <td width="782"><table width="782" border="0" cellpadding="2" cellspacing="0" style="border-left:#9DCCF6 1px solid;border-right:#9DCCF6 1px solid;border-top:#9DCCF6 1px solid;border-bottom:#9DCCF6 1px solid">
        <tr  >
          <td width="622" height="107" bgcolor="#F9F9F9" class="style30" style="border-top:#cccccc 1px solid"><span class="title3">
            <textarea name="content" cols="80" rows="8" id="content"></textarea>
          </span></td>
          <td width="158" height="107" bgcolor="#F9F9F9" class="style30" style="border-top:#cccccc 1px solid">&nbsp;</td>
        </tr>
        <tr bgcolor="#F9F9F9">
          <td height="41" valign="top" class="style30">
            <div align="center">
              <input type="submit" name="Submit" value="发表">
              </div></td>
          <td height="41" valign="top" class="style30">&nbsp;</td>
        </tr>
    </table></td>
  </tr></form>
</table>
<table width="1002" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td><!--#include file="root.asp"--></td>
  </tr>
</table>
</body>
</html>
<%
conn.close
set conn=nothing
%>
