showcontent.asp

ASPTest 网络基础网页设计

<%
Set rsArticle = Server.CreateObject("ADODB.RecordSet")
Set rsReply = Server.CreateObject("ADODB.RecordSet")
Set rsUser = Server.CreateObject("ADODB.RecordSet")
Set rsTemp = Server.CreateObject("ADODB.RecordSet")

ArticleID = Session("ArticleID")
rsArticle.Open "SELECT * FROM Lily_Article WHERE ArticleID="&ArticleID,cn
rsUser.Open "SELECT * FROM Lily_Users WHERE UserID='"&_
  rsArticle("UserID")&"'",cn
rsReply.Open "SELECT * FROM Lily_Reply WHERE ArticleID="&ArticleID,cn

'将该贴子的人气值加1
rsTemp.Open "UPDATE Lily_Article SET ReadCount=ReadCount+1 WHERE ArticleID="&_
  ArticleID,cn

'求取上一贴，下一贴文章的ID
rsTemp.Open "SELECT * FROM Lily_Article ORDER BY ArticleID",cn,3
rsTemp.Find "ArticleID="&ArticleID
rsTemp.MovePrevious
If rsTemp.Bof Then
  PreID = 0
Else
  PreID = rsTemp("ArticleID")
End If
rsTemp.MoveNext
rsTemp.MoveNext
If rsTemp.Eof Then
  NextID = 0
Else
  NextID = rsTemp("ArticleID")
End IF
rsTemp.Close
%>

<table border="0" cellpadding="0" cellspacing="0" width="760" align="center">
  <tr>
    <td width="33%">
      <a href="PostNew.asp"><img border="0" src="Images/postnew.gif"></a>
      <a href="PostReply.asp?ArticleID=<%=ArticleID%>">
        <img border="0" src="Images/reply.gif"></a>
    </td>
    <td width="33%">　</td>
    <td width="34%" align="right">
      <%
      If PreID <> 0 Then
        Response.Write "<a href=ContentList.asp?ArticleID="&PreID&">上一贴</a>"
      Else
        Response.Write "上一帖"
      End If
      If NextID <> 0 Then
        Response.Write "<a href=ContentList.asp?ArticleID="&NextID&">|下一贴</a>"
      Else
        Response.Write "|下一贴"
      End If
      %>
    </td>
  </tr>
</table>

<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="760" height="192" align="center">
  <tr>
    <td width="758" colspan="2" height="22" bgcolor="#30608F">
      <font color="#FFFFFF">文章主题：<%=rsArticle("Title")%>&nbsp; 回复数：<%=rsArticle("ReplyCount")%>&nbsp; 人气值：<%=rsArticle("ReadCount")%></font>
    </td>
  </tr>
  <tr>
    <td width="155" height="19" bgcolor="#336699">
    　 <% =rsUser("UserID")%>（<%=rsUser("UserNick")%>）
    </td>
    <td width="602" height="7" bgcolor="#336699">
      <% 
      If rsUser("UserID")=Session("UserID") Then
      %>
      <a href="EditArticle.asp?ArticleID=<%=ArticleID%>">
         <img src="Images/Edit01.gif"></a>
      <a href="DeleteArticle.asp?ArticleID=<%=ArticleID%>">
         <img src="Images/Delete.gif"></a>  
      <%
      End If
      %>
    </td>
  </tr>
  <tr>
    <td width="155" height="41" align="center" valign="center">
      <% 
      If rsUser("UserGender") = "男" Then
        Response.Write "<img src='Images/Boy.gif'>"
      ElseIf rsUser("UserGender") = "女" Then
        Response.Write "<img src='Images/Girl.gif'>"
      Else
        Response.Write "<img src='Images/Unknown.gif'>"
      End If
      %>　
    </td>
    <td width="602" height="63" bgcolor="#DEEFEF">
      <pre><% =rsArticle("Content")%></pre>
    </td>
  </tr>
  <tr>
    <td width="155" height="18" align="center" bgcolor="#336699">
    文章数：<%=rsUser("ArticleNum")%>篇
    </td>
    <td width="602" height="8" bgcolor="#336699">
      发帖时间：<%=rsArticle("PostTime")%>&nbsp; 最近一次修改时间：<%=rsArticle("RewriteTime")%>
    </td>
  </tr>
  <% 
  Do While Not rsReply.Eof
    rsUser.Close
    rsUser.Open "SELECT * FROM Lily_Users WHERE UserID='"&_
      rsReply("UserID")&"'",cn
    %>
  <tr>
    <td width="155" height="19" align="center" bgcolor="#3D79B6">
      <% =rsUser("UserID")%>（<%=rsUser("UserNick")%>）
    </td>
    <td width="602" height="19" bgcolor="#3D79B6">
      <% 
      If rsUser("UserID")=Session("UserID") Then
      %>
      <a href="EditArticle.asp?ArticleID=<%=ArticleID%>">
        <img src="Images/Edit01.gif"></a>
      <a href="DeleteArticle.asp?ArticleID=<%=ArticleID%>">
        <img src="Images/Delete.gif"></a>  
      <%
      End If
      %>
    </td>
  </tr>
  <tr>
    <td width="155" height="52" align="center" valign="center">
      <% 
      If rsUser("UserGender") = "男" Then
        Response.Write "<img src='Images/Boy.gif'>"
      ElseIf rsUser("UserGender") = "女" Then
        Response.Write "<img src='Images/Girl.gif'>"
      Else
        Response.Write "<img src='Images/Unknown.gif'>"
      End If
      %>
    </td>
    <td width="602" height="52" bgcolor="#C4C4D7" valign="center">
      <pre><% =rsReply("Content")%></pre>
    </td>
  </tr>
  <tr>
    <td width="155" height="19" bgcolor="#3D79B6" align="center">
      文章数：<%=rsUser("ArticleNum")%>篇
    </td>
    <td width="602" height="19" bgcolor="#3D79B6">
      发帖时间：<%=rsReply("PostTime")%>
    </td>
  </tr>
  <%
    rsReply.MoveNext
  Loop
  %>
</table>
<%
Set rsArticle = Nothing
Set rsReply = Nothing
Set rsUser = Nothing
Set rsTemp = Nothing
%>