⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 board.asp

📁 5237 论坛.rar
💻 ASP
📖 第 1 页 / 共 2 页
字号:
🔍
12 
<!--#include file="Connections/connY.asp" -->
<!--#include file="Inc/Info.asp" -->
<!--#include file="Inc/Set.asp" -->
<!--#include file="Inc/TimeFormat.asp" -->
<!--#include file="Inc/UBBCode.asp" -->
<!--#include file="Inc/Level.asp" -->
<%
State="浏览"&Forum_TypeName&"之"&Forum_Name&"版面文章列表"
%>
<html>
<head>
<title><%=Forum_Title%></title>
<meta http-equiv="Content-Type" content="text/html;">
<meta http-equiv="Expires" CONTENT="0">
<meta http-equiv="Cache-Control" CONTENT="no-cache">
<meta http-equiv="Pragma" CONTENT="no-cache">
<!--#include file="Inc/Css.asp" -->
<script language=Javascript src="Js/Menu.Js"></script>
<script language=Javascript src="Js/Button.Js"></script>
<script language=Javascript src="Js/Operate.Js"></script>
</head>
<body leftmargin="0" topmargin="0" bgcolor="<%=Forum_BgColor%>" vlink="<%=Forum_Css_A_Link_Color%>" onLoad="MM_preloadImages('<%=Forum_Pic_Write2%>','<%=Forum_Pic_Vote2%>')">
<!--#include file="Inc/Top.asp" -->
<table width="<%=Forum_Width%>" border="0" cellspacing="1" cellpadding="0" align="center" bgcolor="<%=Forum_BorderColor%>">
  <tr> 
    <td height="20" bgcolor="<%=Forum_BgColor%>"> 
      <table width="100%" border="0" cellspacing="0" cellpadding="0" class="font">
        <tr> 
          <td>&nbsp;您所在的位置： <a href="../" onfocus="this.blur()">首页</a> &gt;&gt; 
            <a href="List.asp" onFocus="this.blur()">讨论组</a> &gt;&gt; <a href="List.asp?T=<%=Forum_TypeID%>"  onfocus="this.blur()"><%=Forum_TypeName%></a>
             &gt;&gt; <font color="<%=Forum_NavFontColor%>"><%=Forum_Name%></font></td>
          <td width="150"></td>
          <td width="18"> 
            <div align="center"><img src="<%=Forum_Pic_Open%>" width="15" height="14" border="0" alt="显示个人工具箱" onClick="ShowInfo()" style="CURSOR: hand" id=infoimage align="texttop"></div>
          </td>
        </tr>
      </table>
    </td>
  </tr>
</table>
<table width="<%=Forum_Width%>" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr>
    <td height=1></td>
  </tr>
</table>
<table width="<%=Forum_Width%>" border="0" cellspacing="1" cellpadding="1" align="center" id=info bgcolor="<%=Forum_BorderColor%>">
  <tr>
    <td valign="top" bgcolor="<%=Forum_BgColor%>"><!--#include file="Inc/Tools.asp" --></td>
  </tr>
</table>
<table width="<%=Forum_Width%>" border="0" cellspacing="0" cellpadding="0" align="center" id=infoborder>
  <tr>
    <td height=1></td>
  </tr>
</table>
<table width="<%=Forum_Width%>" border="0" cellspacing="1" cellpadding="2" align="center" bgcolor="<%=Forum_BorderColor%>" class="font">
  <tr bgcolor="<%=Forum_BroadColor%>"> 
    <td height="16" colspan="8"> 
      <table width="100%" border="0" cellspacing="0" cellpadding="1" class="font">
        <tr> 
          <td width="22"><img src="<%=Forum_Pic_Announce%>" width="20" height="16"></td>
          <td><!--#include file="Inc/Broadcast.asp" --></td>
          <td width="170"> 
            <div align="right"><a href="Write.asp?S=<%=Forum_ID%>" onFocus="this.blur()" onClick="MM_nbGroup('down','group1','WriteArticle','<%=Forum_Pic_Write2%>',1)" onMouseOut="MM_nbGroup('out')" onMouseOver="MM_nbGroup('over','WriteArticle','<%=Forum_Pic_Write2%>','<%=Forum_Pic_Write2%>',1)"><img src="<%=Forum_Pic_Write1%>" width="80" height="20" border="0" align="absmiddle" name="WriteArticle"></a> 
              <a href="Vote.asp?S=<%=Forum_ID%>" onFocus="this.blur()" onClick="MM_nbGroup('down','group1','Vote','<%=Forum_Pic_Vote2%>',1)" onMouseOut="MM_nbGroup('out')" onMouseOver="MM_nbGroup('over','Vote','<%=Forum_Pic_Vote2%>','<%=Forum_Pic_Vote2%>',1)"><img src="<%=Forum_Pic_Vote1%>" width="80" height="20" border="0" align="absmiddle" name="Vote"></a></div>
          </td>
        </tr>
      </table>
    </td>
  </tr>
  <tr bgcolor="<%=Forum_BgColor%>"> 
    <td colspan="8" height="22"> 
      <table width="100%" border="0" cellspacing="0" cellpadding="1" class="font">
        <tr> 
          <td>本版版主：<!--#include file="Inc/Host.asp" --></td>
          <td width="400"> 
            <div align="right">| <a href="javascript:this.location.reload()" onFocus="this.blur()">刷新</a> 
              | <a href="Soul.asp?S=<%=Forum_ID%>" onFocus="this.blur()"><font color="<%=Forum_PFontColor%>">精华区</font></a> 
              | <a href="Broad.asp?S=<%=Forum_ID%>" onFocus="this.blur()">广播</a> 
              | <a href="Log.asp?S=<%=Forum_ID%>" onFocus="this.blur()">事件</a> 
              | <a href="Manage.asp?S=<%=Forum_ID%>" onFocus="this.blur()">管理</a> 
              | <a href="Color.asp?S=<%=Forum_ID%>" onFocus="this.blur()">配色</a> 
              | <a href="Help.asp" onFocus="this.blur()">帮助</a> | 
              <%
				  set rsList=Server.CreateObject("ADODB.Recordset")
                  Sql="SELECT *  FROM tArticleManage Where Not rIsTop And rRepID=0 And rType="&Forum_TypeID&" And rSubject="&Forum_ID&" Order By rLastReplyTime Desc"
                  rsList.Open Sql,ConnY,3,3
				  If Not rsList.Eof Then
                  Dim PageSize
				  Dim RowNum
                  rsList.PageSize=Forum_PageNum
				  RowNum=rsList.PageSize
                  PageSize=rsList.PageSize
                  If Request("Page")<>"" Then
                  CurrentPage=Cint(Request("Page"))
                  Else
                  CurrentPage=1
                  End If
	              TotalNum=rsList.RecordCount
	              If (TotalNum Mod PageSize)=0 Then
                  TotalPage=TotalNum \ PageSize
                  Else
                  TotalPage=TotalNum \ PageSize+1
                  End If
                  If CurrentPage<1 Then
                  CurrentPage=1
                  End If
	              If CurrentPage>TotalPage Then
                  CurrentPage=TotalPage
                  End If
                  rsList.Move(CurrentPage-1)*PageSize
                  End If
                  %>
            </div>
          </td>
        </tr>
      </table>
    </td>
  </tr>
  <tr bgcolor="<%=Forum_TitleColor%>"> 
    <td width="4%" height="18">&nbsp;</td>
    <td width="4%" height="18"> 
      <div align="center">字</div>
    </td>
    <td width="5%" height="18"> 
      <div align="center">浏览</div>
    </td>
    <td width="43%" height="18"> 
      <div align="center">主题</div>
    </td>
    <td width="12%" height="18"> 
      <div align="center">作者</div>
    </td>
    <td width="5%" height="18"> 
      <div align="center">回复</div>
    </td>
    <td width="15%" height="18"> 
      <div align="center">最新操作时间</div>
    </td>
    <td width="12%" height="18"> 
      <div align="center">回复者</div>
    </td>
  </tr>
  <%
  Set rsArticle = Server.CreateObject("ADODB.Recordset")
  Sql = "Select *  From tArticleManage Where rIsTop And rRepID=0 And rType="&Forum_TypeID&" And rSubject="&Forum_ID&" Order By rLastReplyTime Desc"
  rsArticle.Open Sql,ConnY,3,3
  RowNumTop=1
  While Not rsArticle.Eof
  %>
  <tr bgcolor="<%
  If RowNumTop Mod 2 = 0 Then
  Response.Write Forum_AlternateColor1
  Else
  Response.Write Forum_AlternateColor2
  End If
  %>"> 
    <td width="4%" height="20"> 
      <div align="center"><a href=View.asp?S=<%=Forum_ID%>&I=<%=rsArticle("rID")%>&J=1 target=_blank onFocus="this.blur()"><img src="<%=Forum_Pic_Top%>" width="16" height="16" border=0 alt="开启新窗口浏览"></a></div>
    </td>
    <td width="4%" height="20"> 
      <div align="center"> 
        <%
			rsArticle("rLength")=Len(rsArticle("rContent"))
			rsArticle.Update
			LiannLength=rsArticle("rLength")
			If LiannLength>100000 Then
			LiannLength="Max"
			Else
			If LiannLength>1000 Then 
			LiannLength=Cint(LiannLength/1000)&"k"
			End If
			End If
			Response.Write LiannLength
			%>
      </div>
    </td>
    <td width="5%" height="20"> 
      <div align="center"> 
        <%
			If rsArticle("rReadNum")>50 Then 
			Response.Write "<font color="&Forum_PReadColor&">"&rsArticle("rReadNum")&"</font>"
			Else
			Response.Write rsArticle("rReadNum")
			End If
			%>
      </div>
    </td>
    <td width="43%" height="22"> 
     <%
	 LiannTitle=CovHtml(rsArticle("rTitle"))
	 If Len(LiannTitle)>26 Then LiannTitle=Left(LiannTitle,25)&".."
	 If rsArticle("rIsNeedPay")  And rsArticle("rPoster")<>Session("SUserID") Then
	 Response.Write "<a href='javascript:PayAssets("&Forum_ID&","&rsArticle("rID")&","&rsArticle("rPayHowMuch")&")' onFocus='this.blur()'>"&LiannTitle&"</a>"
	 Else
	 If rsArticle("rIsQuintessence") Then LiannTitle="<font color='"&Forum_PFontColor&"'>◎</font>"&LiannTitle
	 Response.Write "<a href='View.asp?S="&Forum_ID&"&I="&rsArticle("rID")&"' onFocus='this.blur()'>"&LiannTitle&"</a>"
	 End If
	 If rsArticle("rReplyNum") Mod Forum_ReplyNum <> 0 Then
	 ReplyPage=Int(rsArticle("rReplyNum")/Forum_ReplyNum) + 1
	 Else
	 ReplyPage=Int(rsArticle("rReplyNum")/Forum_ReplyNum)
	 End If
	 If ReplyPage>1 Then
	 Response.Write "&nbsp;&nbsp;"
	 Response.Write "<img src='"&Forum_Pic_PageNum&"' width='12' height='14' align='absmiddle'>&nbsp;"
	 For I=1 To ReplyPage
	   If I<4 Then
	   Response.Write " <a href='View.asp?S="&Forum_ID&"&I="&rsArticle("rID")&"&P="&I&"' onFocus='this.blur()' Title='第"&I&"页'>"&I&"</a>"
	   Else
	   Response.Write " <a href='View.asp?S="&Forum_ID&"&I="&rsArticle("rID")&"&P="&ReplyPage&"' onFocus='this.blur()' Title='最后一页'>&gt;&gt;</a>"
	   Exit For
	   End If
	 Next
	 End If
	 %>
    </td>
    <td width="12%" height="20"> 
      <div align="center"><a href="User.asp?I=<%=rsArticle("rPosterNickName")%>" onFocus="this.blur()"><%=rsArticle("rPosterNickName")%></a></div>
    </td>
    <td width="5%" height="20"> 
      <div align="center"> 
        <%
	  If rsArticle("rIsVote") Then 
      Response.Write rsArticle("rVoteNum")&"票"
12

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -