view.asp

一对一校友录多班级而且非常漂亮http://free.cnyys.com/my/yhe/DEFAULT.ASP

              <tr> 
                <td> 
                  <div align="center"><a href="Register.asp">客户注册</a></div>
                </td>
              </tr>
            </table>
          </td>
        </tr>
        <tr align="center" valign="top" bgcolor="#FFFFCC"> 
          <td height="23" bgcolor="#3399CC">已注册用户直接登录</td>
        </tr>
      </table>
      <% End If ' end If (Session"MM_Username") = ("") script_and_script%>
      <% If (Session("MM_Username")) <> ("") Then 'script_and_script%>
      <table width="100%" border="0" cellspacing="0" cellpadding="0" bgcolor="#3399CC">
        <tr> 
          <td height="49"> 
            <div align="left">欢迎<font color="red"><%= Session("MM_Username") %></font>光临！<br>
              共有<font color="red"><%= Application("visits") %></font>人访问过我们的网站。<br>
              目前有<font color="red"><%= Application("Active") %></font>人在线。<br>
            </div>
          </td>
        </tr>
        <tr> 
          <td height="49"> 
            <div align="center"><A HREF="<%=MM_Logout%>" class="txtfld">退出登录</A></div>
          </td>
        </tr>
      </table>
      <% End If ' end If (Session"MM_Username") <> ("") script_and_script%>
    </td>
    <td height="103" width="77%" valign="top"> 
      <table width="100%" border="1" cellspacing="0" cellpadding="0" height="40" bordercolor="#000000" bgcolor="#339999" bordercolorlight="#000000" bordercolordark="#FFFFFF">
        <tr> 
          <td width="16%"> 
            <div align="center">讨论区主题</div>
          </td>
          <td width="53%"> 
            <div align="left"> 
              <% 
While ((Repeat1__numRows <> 0) AND (NOT rsSubject.EOF)) 
%>
              <a href="default.asp?<%= MM_keepNone & MM_joinChar(MM_keepNone) & "fSubject=" & rsSubject.Fields.Item("fSubject").Value %>" class="txtfld"><%=(rsSubject.Fields.Item("fName").Value)%></a> 
              <% 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  rsSubject.MoveNext()
Wend
%>
              <% If rsSubject.EOF And rsSubject.BOF Then %>
              暂无主题 
              <% End If ' end rsSubject.EOF And rsSubject.BOF %>
            </div>
          </td>
          <td rowspan="2" width="16%"> 
            <div align="center"></div>
            <div align="center">当前讨论区主题</div>
          </td>
          <td rowspan="2" width="15%"> 
            <div align="center"><%=(rsCurSub.Fields.Item("fName").Value)%></div>
          </td>
        </tr>
        <tr> 
          <td width="16%"> 
            <div align="center">当前版主</div>
          </td>
          <td width="53%"> 
            <div align="left"> 
              <% 
While ((Repeat2__numRows <> 0) AND (NOT rsMaster.EOF)) 
%>
              <a href="ShowPersonal.asp?<%= MM_keepNone & MM_joinChar(MM_keepNone) & "fPoster=" & rsMaster.Fields.Item("fUserID").Value %>" target="_blank"><%=(rsMaster.Fields.Item("fUserID").Value)%> 
              &nbsp;&nbsp;</a> 
              <% 
  Repeat2__index=Repeat2__index+1
  Repeat2__numRows=Repeat2__numRows-1
  rsMaster.MoveNext()
Wend
%>
              <% If rsMaster.EOF And rsMaster.BOF Then %>
              暂无版主 
              <% End If ' end rsMaster.EOF And rsMaster.BOF %>
            </div>
          </td>
        </tr>
      </table>
      <table width="100%" border="0" cellspacing="0" cellpadding="2">
        <form name="form2" method="get" action="bbsResult.asp">
          <tr> 
            <td width="90%"> 
              <div align="left">在 
                <select name="mForumSub" class="txtfld">
                  <%
While (NOT rsSubject2.EOF)
%>
                  <option value="<%=(rsSubject2.Fields.Item("fSubject").Value)%>" <%if (CStr(rsSubject2.Fields.Item("fSubject").Value) = CStr(rsCurSub.Fields.Item("fSubject").Value)) then Response.Write("SELECTED") : Response.Write("")%> ><%=(rsSubject2.Fields.Item("fName").Value)%></option>
                  <%
  rsSubject2.MoveNext()
Wend
If (rsSubject2.CursorType > 0) Then
  rsSubject2.MoveFirst
Else
  rsSubject2.Requery
End If
%>
                </select>
                中搜索 
                <select name="mScope" class="txtfld">
                  <option value="fTitle" selected>标题</option>
                  <option value="fContent">内容</option>
                  <option value="fTitle + Content">标题和内容</option>
                  <option value="fPoster">作者</option>
                </select>
                含有 
                <input type="text" name="txtSearchedStr" class="txtfld">
                的贴子 
                <input type="submit" name="Submit2" value="搜索" class="txtfld">
              </div>
            </td>
            <td width="10%"> 
              <div align="center"><a href="Post.asp?<%= MM_keepNone & MM_joinChar(MM_keepNone) & "fSubject=" & rsCurSub.Fields.Item("fSubject").Value %>">贴新贴</a></div>
            </td>
          </tr>
        </form>
      </table>
    </td>
  </tr>
  <tr> 
    <td height="256" width="77%" valign="top"> 
      <table width="100%" border="1" cellspacing="0" cellpadding="0" bordercolor="#000000" bordercolorlight="#000000" bordercolordark="#FFFFFF" bgcolor="#66CCCC">
        <tr> 
          <td height="30" colspan="6"> 
            <div align="center">主题贴子</div>
          </td>
        </tr>
        <tr> 
          <td height="30" colspan="2"> 
            <div align="center">贴子主题</div>
          </td>
          <td height="30" width="11%"> 
            <div align="center">作者</div>
          </td>
          <td height="30" width="18%"> 
            <div align="center">注册时间</div>
          </td>
          <td height="30" width="17%"> 
            <div align="center">发贴时间</div>
          </td>
          <td height="30" width="14%"> 
            <div align="center">发贴数</div>
          </td>
        </tr>
        <tr> 
          <td height="30" colspan="2"> 
            <div align="left"><%=(rsMainTopic.Fields.Item("fTitle").Value)%></div>
          </td>
          <td height="30" width="11%"> 
            <div align="center"><%=(rsMainTopic.Fields.Item("fPoster").Value)%></div>
          </td>
          <td height="30" width="18%"> 
            <div align="center"><%=(rsMainTopic.Fields.Item("fRegTime").Value)%></div>
          </td>
          <td height="30" width="17%"> 
            <div align="center"><%=(rsMainTopic.Fields.Item("fPostTime").Value)%></div>
          </td>
          <td height="30" width="14%"> 
            <div align="center"><%=(rsMainTopic.Fields.Item("fPostNum").Value)%></div>
          </td>
        </tr>
        <tr> 
          <td height="86" width="20%"> 
            <div align="center">贴子具体内容</div>
          </td>
          <td height="86" colspan="5" align="left" valign="top"> 
            <div align="left"><%= DoWhiteSpace(rsMainTopic.Fields.Item("fContent").Value)%></div>
            <div align="center"></div>
            <div align="center"></div>
            <div align="left"></div>
          </td>
        </tr>
        <tr> 
          <td height="30" colspan="6"> 
            <div align="right"><a href="mailto:<%=(rsMainTopic.Fields.Item("fE_Mail").Value)%>" class="txtfld" target="_blank">发E_Mail给作者</a> 
              <a href="ShowPersonal.asp?<%= MM_keepNone & MM_joinChar(MM_keepNone) & "fPoster=" & rsMainTopic.Fields.Item("fPoster").Value %>" class="txtfld" target="_blank">作者祥细资料</a> 
              <a href="Reply.asp?<%= MM_keepURL %>" class="txtfld">回复此贴</a></div>
          </td>
        </tr>
        <tr> 
          <td height="30" colspan="6"> 
            <div align="center">回复贴子</div>
          </td>
        </tr>
        <tr> 
          <td height="30" colspan="2"> 
            <div align="center">回复主题</div>
          </td>
          <td height="30" colspan="2"> 
            <div align="center">回复时间</div>
          </td>
          <td height="30" width="17%"> 
            <div align="center">作者</div>
          </td>
          <td height="30" width="14%"> 
            <div align="center">发贴数</div>
          </td>
        </tr>
        <% 
While ((Repeat3__numRows <> 0) AND (NOT rsReply.EOF)) 
%>
        <tr> 
          <td height="30" colspan="2"> <A HREF="viewReply.asp?<%= MM_keepNone & MM_joinChar(MM_keepNone) & "fID=" & rsReply.Fields.Item("fID").Value %>"> 
            <div align="left"><%=(rsReply.Fields.Item("fTitle").Value)%></div>
            </A></td>
          <td height="30" colspan="2"> 
            <div align="center"><%=(rsReply.Fields.Item("fPostTime").Value)%></div>
          </td>
          <td height="30" width="17%"> <A HREF="ShowPersonal.asp?<%= MM_keepNone & MM_joinChar(MM_keepNone) & "fPoster=" & rsReply.Fields.Item("fPoster").Value %>" target="_blank"> 
            <div align="center"><%=(rsReply.Fields.Item("fPoster").Value)%></div>
            </A></td>
          <td height="30" width="14%"> 
            <div align="center"><%=(rsReply.Fields.Item("fPostNum").Value)%></div>
          </td>
        </tr>
        <% 
  Repeat3__index=Repeat3__index+1
  Repeat3__numRows=Repeat3__numRows-1
  rsReply.MoveNext()
Wend
%>
      </table>
      <% If rsReply.EOF And rsReply.BOF Then %>
      <table width="100%" border="0" cellspacing="0" cellpadding="0" bgcolor="#33CCCC">
        <tr> 
          <td>暂无回复</td>
        </tr>
      </table>
      <% End If ' end rsReply.EOF And rsReply.BOF %>
      <p>&nbsp;</p>
      <p>&nbsp;</p>
    </td>
  </tr>
</table>
</body>
</html>
<%
rsSubject.Close()
%>
<%
rsMaster.Close()
%>
<%
rsCurSub.Close()
%>
<%
rsSubject2.Close()
%>
<%
rsMainTopic.Close()
%>
<%
rsReply.Close()
%>