searchtitle.asp

ASPTest 网络基础网页设计

<%
Dim rsReplyCount,rsReplyLast,rsUser

Set rsReplyCount = Server.CreateObject("ADODB.RecordSet")
Set rsReplyLast = Server.CreateObject("ADODB.RecordSet")
Set rsUser = Server.CreateObject("ADODB.RecordSet")

%>
<table border="0" cellpadding="0" cellspacing="0" width="760" height="41" align="center">
  <tr>
    <td width="100%" height="41">搜索结果,满足条件的记录数为：<%=rsArticle.RecordCount%></td>
  </tr>
</table>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="760" align="center" height="46">
  <tr>
    <td width="177" height="19" align="center" bgcolor="#003366">
    <p align="left"><font color="#FFFFFF" size="2">主题</font></td>
    <td width="119" height="19" align="center" bgcolor="#003366">
    <font color="#FFFFFF" size="2">作者</font></td>
    <td width="148" height="19" align="center" bgcolor="#003366">
    <font color="#FFFFFF" size="2">发表时间</font></td>
    <td width="36" height="19" align="center" bgcolor="#003366">
    <font color="#FFFFFF" size="2">阅读</font></td>
    <td width="36" height="19" align="center" bgcolor="#003366">
    <font color="#FFFFFF" size="2">回复</font></td>
    <td width="136" height="19" align="center" bgcolor="#003366">
    <font color="#FFFFFF" size="2">最后回复时间</font></td>
    <td width="68" height="19" align="center" bgcolor="#003366">
    <font color="#FFFFFF" size="2">最后回复人</font></td>
  </tr>
  <%
  Do While Not rsArticle.Eof
    rsUser.Open "SELECT UserID,UserNick FROM Lily_Users WHERE UserID='"&rsArticle("UserID")&"'",cn
    rsReplyCount.Open "SELECT Count(ReplyID) FROM Lily_Reply WHERE ArticleID="&rsArticle("ArticleID"),cn
    rsReplyLast.Open "SELECT * FROM Lily_Reply WHERE ArticleID="&rsArticle("ArticleID")&" ORDER BY PostTime DESC",cn
    %>   
    <tr>
      <td width="177" height="26">
        <a href=ContentList.asp?ArticleID=<%=rsArticle("ArticleID")%>><%=rsArticle("Title")%></a>　
      </td>
      <td width="119" height="26" bgcolor="#CFDBF3">
        <a href=UserInfo?UserID=<%=rsUser(0)%>><%=rsUser(0)%>（<%=rsUser(1)%>）</a>　
      </td>
      <td width="148" height="26">
        <%=rsArticle("PostTime")%>  　
      </td>
      <td width="36" height="26" bgcolor="#CFDBF3">
        <%=rsArticle("ReadCount")%>
      </td>
      <td width="36" height="26">
        <%=rsReplyCount(0)%>　
      </td>
      <td width="136" height="26" bgcolor="#CFDBF3">
        <%
        If Not rsReplyLast.Eof Then
          Response.Write rsReplyLast("PostTime")
        End If
        %>　
      </td>
      <td width="68" height="26">
    　  <%
        If Not rsReplyLast.Eof Then
          Response.Write "<a href=UserInfo.asp?UserID="&rsReplyLast("UserID")&">"&rsReplyLast("UserID")&"</a>"
        End If
        %>
      </td>
    </tr>
    <%
    rsUser.Close
    rsReplyCount.Close
    rsReplyLast.Close
    rsArticle.MoveNext
  Loop   
  %>
  <tr>
    <td width="177" height="19" align="center" bgcolor="#003366">
    <p align="left"><font color="#FFFFFF" size="2">主题</font></td>
    <td width="119" height="19" align="center" bgcolor="#003366">
    <font color="#FFFFFF" size="2">作者</font></td>
    <td width="148" height="19" align="center" bgcolor="#003366">
    <font color="#FFFFFF" size="2">发表时间</font></td>
    <td width="36" height="19" align="center" bgcolor="#003366">
    <font color="#FFFFFF" size="2">阅读</font></td>
    <td width="36" height="19" align="center" bgcolor="#003366">
    <font color="#FFFFFF" size="2">回复</font></td>
    <td width="136" height="19" align="center" bgcolor="#003366">
    <font color="#FFFFFF" size="2">最后回复时间</font></td>
    <td width="68" height="19" align="center" bgcolor="#003366">
    <font color="#FFFFFF" size="2">最后回复人</font></td>
  </tr>
</table>
<%
Set rsReplyCount = Nothing
Set rsReplyLast= Nothing
Set rsUser = Nothing
%>