viewarticle.asp

广东交友源程序

<!--#include file="articleconn.asp"-->
<!--#include file="INC/fun.inc"-->
<!--#include file="top.asp" -->
<link rel="stylesheet" href="../../images/css.css" type="text/css">
<%
   dim sql
   dim rs
   dim listname
   set rs=server.createobject("adodb.recordset")
   sql="select * from learning where articleid="&request("id")
   rs.open sql,conn,1,1
   %> 

<div align="center">
  <center>
  <table cellspacing="0" width="770" border="0" bordercolorlight="#000000" cellpadding="0" style="border-collapse: collapse" bordercolor="#111111">
  <tbody>
    <tr> 
      <td class="title" width="160" valign="top" style="border-right: 1px solid #FF99CC"> 
      <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1">
        <tr>
                  <td height="24" valign="bottom"> 
                    <table cellspacing=0 cellpadding=0 width=100% border=0 height="19">
                      <tbody> 
                      <tr> 
                        <td width="25" bgcolor="#FF0099">　</td>
                        <td align=center class="ccopen" bgcolor="#FF0099"><b>文章分类</b></td>
                        <td width="25" bgcolor="#FF0099">　</td>
                      </tr>
                      </tbody> 
                    </table>
                  </td>
                </tr>
        <tr>
                  <td height="1" bgcolor="#FF99CC"></td>
                </tr>
        <tr>
                  <td align="center" class="box1"> 
                    <table width="100" border="0" cellspacing="3" cellpadding="1">
                      <tbody> 
                      <tr> 
                        <td height="2"></td>
                      </tr>
<%
    dim rst
	set rst=server.CreateObject("ADODB.RecordSet")
	rst.open "select * from type",conn,1
    if rst.EOF then
	   response.write "<tr><td>还没有任何文章</td></tr>"
	else
%>
                      <tr> 
                        <td align="center" onMouseOver="this.className='menuover';" onMouseOut="this.className='menuout';"><a href="index.asp?typeid=0" class="a02">全部文章</a></td>
                      </tr>
<%do while NOT rst.EOF%>
                      <tr>
                        <td background="../images/hline.gif" height="1"></td>
                      </tr>
                      <tr>
                        <td align="center" onMouseOver="this.className='menuover';" onMouseOut="this.className='menuout';"><a href="index.asp?typeid=<%=rst("typeid")%>" class="a02"><%=rst("type")%></a></td>
                      </tr>
<%
	    rst.MoveNext
	    loop
	end if
    rst.close
%>
                      <tr> 
                        <td height="2"></td>
                      </tr>
                      </tbody> 
                    </table>
                  </td>
                </tr>
        <tr>
          <td width="100%">　</td>
        </tr>
      </table>
    </td>
      <td class="title" width="610"> <br>
        <p align="center" class="titletext"><b><font color="#000000"><%=rs("title")%></font></b> 
        <blockquote> 
          <p align="right">发表日期:<%=GetDate(rs("dateandtime"))%>&nbsp;&nbsp;&nbsp;&nbsp;阅览 <%=rs("hits")%> 次&nbsp;&nbsp;
            <br><p class="text">
            <%=rs("content")%>
            </p>    
            <p>
            <table width="465" border="0" cellspacing="0" cellpadding="0">
              <tbody>
                <tr> 
                  <td background="../images/hline.gif" height="1"></td>
                </tr>
              </tbody>
            </table>
            <br><br>
              <%rs.close
set rs=server.createobject("adodb.recordset")
sql="select * from learning where articleid="&request("id")-1
rs.open sql,conn,1,1 
  if rs.eof and rs.bof then
%>
<font face="Webdings" size="4" color="#FF0099">4</font>上篇文章:已经没有了 <%else%> <br>
<font face="Webdings" size="4" color="#FF0099">4</font>上篇文章:<a href="openarticle.asp?id=<%=rs("articleid")%>"><%=rs("title")%></a> 
              <%end if%><BR>
              <% rs.close
set rs=server.createobject("adodb.recordset")
sql="select * from learning where articleid="&request("id")+1
rs.open sql,conn,1,1
  if rs.eof and rs.bof then
 %>
<font face="Webdings" size="4" color="#FF0099">4</font>下篇文章:已经没有了
<%else%>
<font face="Webdings" size="4" color="#FF0099">4</font>下篇文章:<a href="openarticle.asp?id=<%=rs("articleid")%>"><%=rs("title")%></a> 
              <%end if%><br>
              <br>
            </p>
      </blockquote>
    </td>
  </tr>
</tbody>
</table></center>
</div>
<br>
<p align="right"><a href="javascript:self.close()">关闭窗口</a>&nbsp;&nbsp;&nbsp;</p>
<!--#include file="../../copyright.asp" -->