<!--#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();
}
.STYLE8 {
	color: #474747;
	font-size: 12px;
	font-weight: bold;
}
.STYLE31 {color: #666666; font-size: 12px;}
-->
</style>
</head>

<body>
<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="548" align="center" valign="top"><div align="left">
              <table width="192" border="0" cellspacing="0" cellpadding="0">
                <tr>
                  <td valign="top"><table width="190" border="0" cellpadding="0" cellspacing="0" class="STYLE4">
                      <tr>
                        <td><table width="190" height="27" border="0" cellpadding="0" cellspacing="0">
                            <tr>
                              <td align="center" background="image/tiao_1.gif"><strong class="pgd">日记类型</strong></td>
                            </tr>
                        </table></td>
                      </tr>
                      <tr>
                        <td height="520" align="center" valign="top" style="border-left:#C7C8CC 1px solid;border-right:#C7C8CC 1px solid;border-bottom:#C7C8CC 1px solid"><br>
                          <table width="143" border="0" cellpadding="0" cellspacing="0" class="STYLE4">
                            <%set rst=server.CreateObject("adodb.recordset")
	sql1="select * from art_class"
	rst.open sql1,conn,1
	do while not rst.eof
	%>
                            <tr>
                              <td width="24" height="25" align="center"><img src="image/tb.jpg" width="6" height="7"></td>
                              <td width="119" height="25"><a href="xqnews.asp?c_id=<%=rst("classid")%>" class="a1"><%=rst("classname")%></a></td>
                            </tr>
                            <%
	rst.movenext
	loop
	rst.close
	set rst=nothing
	%>
                        </table></td>
                      </tr>
                  </table></td>
                </tr>
              </table>
            </div></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="517" valign="top" style="border-left:#C7C8CC 1px solid;border-right:#C7C8CC 1px solid;border-bottom:#C7C8CC 1px solid"><br>
                      <table width="520" border="0" align="center" cellpadding="0" cellspacing="0">
                        <tr>
                          <td height="265" align="center" valign="top"><%
dim id
id=request.QueryString("id")
ChkNumber(id)
set rs=server.CreateObject("adodb.recordset")
sql="select * from article where id="& id
rs.open sql,conn,1,3
if not(rs.eof or rs.bof) then
rs("lcount")=rs("lcount")+1
rs.update
%>
                              <table width="520" border="0" cellspacing="0" cellpadding="0">
                                <tr>
                                  <td height="25" align="center" bgcolor="ECF3FF" class="style895"><strong><%=rs("title")%></strong></td>
                                </tr>
                                <tr>
                                  <td height="30" align="right" bgcolor="#FFFFFF" class="STYLE4">作者 <span class="STYLE88"><%=rs("username")%></span>&nbsp;&nbsp; 发表时间 <%=formatdatetime(rs("dtime"),2)%>&nbsp; 阅览 <%=rs("lcount")%> 次</td>
                                </tr>
                                <tr>
                                  <td bgcolor="#FFFFFF" class="style30"><hr size="1" class="STYLE88"></td>
                                </tr>
                                <tr>
                                  <td height="8" bgcolor="#FFFFFF"></td>
                                </tr>
                                <tr>
                                  <td align="center" bgcolor="#FFFFFF" class="style30"><table width="540" border="0" cellspacing="0" cellpadding="0">
                                      <tr>
                                        <td class="style30">&nbsp;&nbsp; <%=rs("content")%><br></td>
                                      </tr>
                                  </table></td>
                                </tr>
                                <tr>
                                  <td bgcolor="#FFFFFF"><hr size="1" class="STYLE88"></td>
                                </tr>
                                <tr>
                                  <td height="26" bgcolor="#ECF3FF" class="STYLE88">&nbsp;&nbsp; ◆ <span class="STYLE31">上篇文章:</span>
                                  <%Particle(rs("id"))%></td>
                                </tr>
                                <tr>
                                  <td height="24" bgcolor="#ECF3FF" class="STYLE88">&nbsp;&nbsp; ◆ <span class="STYLE31">下篇文章:</span>
                                  <%Narticle(rs("id"))%></td>
                                </tr>
                                <tr>
                                  <td height="35" align="right" bgcolor="#FFFFFF" class="STYLE88"><a href="javascript:self.close()" class="STYLE31"><font color="#666666">【&nbsp;关闭窗口 】</font></a></td>
                                </tr>
                                <tr>
                                  <td>&nbsp;</td>
                                </tr>
                            </table>
                              <%
rs.close
set rs=nothing
end if
conn.close
set conn=nothing
%>
                          </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>
