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

📄 resu.asp

📁 5237 论坛.rar
💻 ASP
字号:
🔍 
<!--#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" -->
<%
K=Request.Form("K")
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; <a href="Board.asp?S=<%=Forum_ID%>" onFocus="this.blur()"><%=Forum_Name%></a> 
            &gt;&gt; <font color="<%=Forum_NavFontColor%>">文章搜索</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 style="DISPLAY: none" 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 style="DISPLAY: none">
  <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 rsSearch=Server.CreateObject("ADODB.Recordset")
                  Sql="SELECT *  FROM tArticleManage Where rSubject="&Forum_ID&" And rTitle Like '%"&K&"%' Order By rLastReplyTime Desc"
                  rsSearch.Open Sql,ConnY,3,3
				  If Not rsSearch.Eof Then
                  Dim PageSize
				  Dim RowNum
                  rsSearch.PageSize=Forum_PageNum
				  RowNum=rsSearch.PageSize
                  PageSize=rsSearch.PageSize
                  If Request("Page")<>"" Then
                  CurrentPage=Cint(Request("Page"))
                  Else
                  CurrentPage=1
                  End If
	              TotalNum=rsSearch.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
                  rsSearch.Move(CurrentPage-1)*PageSize
                  End If
                  %>
            </div>
          </td>
        </tr>
      </table>
    </td>
  </tr>
  <tr bgcolor="<%=Forum_TitleColor%>"> 
    <td width="4%" height="20">&nbsp;</td>
    <td width="4%" height="20"> 
      <div align="center">字</div>
    </td>
    <td width="5%" height="20"> 
      <div align="center">浏览</div>
    </td>
    <td width="43%" height="20"> 
      <div align="center">主题</div>
    </td>
    <td width="12%" height="20"> 
      <div align="center">作者</div>
    </td>
    <td width="5%" height="20"> 
      <div align="center">回复</div>
    </td>
    <td width="15%" height="20"> 
      <div align="center">最新操作时间</div>
    </td>
    <td width="12%" height="20"> 
      <div align="center">回复者</div>
    </td>
  </tr>
  <%
  While Not rsSearch.Eof And PageSize>0
  %>
  <tr bgcolor="<%
  If RowNum Mod 2 = 0 Then
  Response.Write Forum_AlternateColor1
  Else
  Response.Write Forum_AlternateColor2
  End If
  %>"> 
    <td width="4%" height="22"> 
      <div align="center"> 
        <%
		If rsSearch("rIsNeedPay") Then
		If rsSearch("rPoster")=Session("SUserID") Then
		Response.Write "<a href='View.asp?S="&Forum_ID&"&I="&rsSearch("rID")&"' target='_blank' onFocus='this.blur()' alt='开启新窗口浏览'>"
		Else
		Response.Write "<a href='javascript:PayAssets("&rsSearch("rSubject")&","&rsSearch("rID")&","&rsSearch("rPayHowMuch")&")' onFocus='this.blur()'>"
		End If
		Response.Write "<img src='"&Forum_Pic_Pay&"' width='16' height='16' border='0' alt='开启新窗口浏览'></a>"
		ElseIf rsSearch("rIsVote") Then
		Response.Write "<a href='View.asp?S="&Forum_ID&"&I="&rsSearch("rID")&"' target='_blank' onFocus='this.blur()'><img src='"&Forum_Pic_Post&"' width='16' height='16' border='0' alt='开启新窗口浏览'></a>"
		Else
		If rsSearch("rReplyNum")=0 Then
		If rsSearch("rReadNum")>20 Then
		Response.Write "<a href='View.asp?S="&Forum_ID&"&I="&rsSearch("rID")&"' target='_blank' onFocus='this.blur()'><img src='"&Forum_Pic_HotNew&"' width='16' height='16' border='0' alt='开启新窗口浏览'></a>"
        Else
		Response.Write "<a href='View.asp?S="&Forum_ID&"&I="&rsSearch("rID")&"' target='_blank' onFocus='this.blur()'><img src='"&Forum_Pic_New&"' width='16' height='16' border='0' alt='开启新窗口浏览'></a>"
		End If
        Else
        If rsSearch("rReplyNum")>10 Then
		Response.Write "<a href='View.asp?S="&Forum_ID&"&I="&rsSearch("rID")&"' target='_blank' onFocus='this.blur()'><img src='"&Forum_Pic_HotReply&"' width='16' height='16' border='0' alt='开启新窗口浏览'></a>"
        Else
		Response.Write "<a href='View.asp?S="&Forum_ID&"&I="&rsSearch("rID")&"' target='_blank' onFocus='this.blur()'><img src='"&Forum_Pic_Reply&"' width='16' height='16' border='0' alt='开启新窗口浏览'></a>"
		End If
        End If
		End If
		%>
      </div>
    </td>
    <td width="4%" height="22"> 
      <div align="center"> 
        <%
			rsSearch("rLength")=Len(rsSearch("rContent"))
			rsSearch.Update
			LiannLength=rsSearch("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="22"> 
      <div align="center"> 
        <%
			If rsSearch("rReadNum")>50 Then 
			Response.Write "<font color='"&Forum_PReadColor&"'>"&rsSearch("rReadNum")&"</font>"
			Else
			Response.Write rsSearch("rReadNum")
			End If
			%>
      </div>
    </td>
    <td width="43%" height="22"> 
      <%
	 LiannTitle=CovHtml(rsSearch("rTitle"))
	 If Len(LiannTitle)>26 Then LiannTitle=Left(LiannTitle,25)&".."
	 If rsSearch("rIsNeedPay") And rsSearch("rPoster")<>Session("SUserID") Then
	 Response.Write "<a href='javascript:PayAssets("&rsSearch("rSubject")&","&rsSearch("rID")&","&rsSearch("rPayHowMuch")&")' onFocus='this.blur()'>"&LiannTitle&"</a>"
	 Else
	 If rsSearch("rIsQuintessence") Then LiannTitle="<font color='"&Forum_PFontColor&"'>◎</font>"&LiannTitle
	 Response.Write "<a href='View.asp?S="&Forum_ID&"&I="&rsSearch("rID")&"' onFocus='this.blur()'>"&LiannTitle&"</a>"
	 End If
	 
	 If rsSearch("rReplyNum") Mod Forum_ReplyNum <> 0 Then
	 ReplyPage=Int(rsSearch("rReplyNum")/Forum_ReplyNum) + 1
	 Else
	 ReplyPage=Int(rsSearch("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'>"
	 For I=1 To ReplyPage
	   If I<4 Then
	   Response.Write " <a href='View.asp?S="&Forum_ID&"&I="&rsSearch("rID")&"&P="&I&"' onFocus='this.blur()'>"&I&"</a>"
	   Else
	   Response.Write " <a href='View.asp?S="&Forum_ID&"&I="&rsSearch("rID")&"&P="&ReplyPage&"' onFocus='this.blur()'>&gt;&gt;</a>"
	   Exit For
	   End If
	 Next
	 End If
	 %>
    </td>
    <td width="12%" height="22"> 
      <div align="center"><a href="User.asp?I=<%=rsSearch("rPosterNickName")%>" onFocus="this.blur()"><%=rsSearch("rPosterNickName")%></a></div>
    </td>
    <td width="5%" height="22"> 
      <div align="center"> 
        <%
	  If rsSearch("rIsVote") Then 
      Response.Write rsSearch("rVoteNum")&"票"
      Else
      Response.Write rsSearch("rReplyNum")
      End If 
	  %>
      </div>
    </td>
    <td width="15%" height="22"> 
      <div align="center"> 
        <%
	  If rsSearch("rReplyNum")<>0 Then
	  Response.Write "<font color='"&Forum_PTimeColor&"'>"&TimeNoSecond(rsSearch("rLastReplyTime"))&"</font>"
	  Else
	  Response.Write TimeNoSecond(rsSearch("rPostTime"))
	  End If
	  %>
      </div>
    </td>
    <td width="12%" height="22"> 
      <div align="center"> 
        <%
	        If rsSearch("rLastReplyUser")<>"" Then
			Response.Write "<a href='User.asp?I="&rsSearch("rLastReplyUser")&"' onFocus='this.blur()'>"&rsSearch("rLastReplyUser")&"</a>"
			Else
			Response.Write "------"
			End If
			%>
      </div>
    </td>
  </tr>
  <%
  PageSize=PageSize-1
  RowNum=RowNum-1
  rsSearch.MoveNext
  Wend
  %>
  <tr bgcolor="<%=Forum_BgColor%>"> 
    <td colspan="8" height="20"> 
      <table width="100%" border="0" cellspacing="0" cellpadding="1" class="font">
        <tr> 
          <td>匹配记录：<%=TotalNum%></td>
          <form name="form1" method="post" action="" onsubmit="return vdf('Page','页码','NinRange1:<%=TotalPage%>');">
            <td width="300" valign="bottom"> 
              <div align="right"> 
                <input type="hidden" name="K" value="<%=Request("K")%>">
                <input type="hidden" name="S" value="<%=Forum_ID%>">
                <%
			      If CurrentPage<=1 Then
                  Response.Write "<font color='"&Forum_UFontColor&"'>首页 上页</font>"
                  Else 
                  Response.Write "<a href='javascript:ToPage(1)' onFocus='this.blur()'>首页</a> <a href='javascript:ToPage("&(Cint(CurrentPage)-1)&")' onFocus='this.blur()'>上页</a>"
                  End If
				  Response.Write " <font color='"&Forum_PFontColor&"'>"&CurrentPage&"</font>/"&TotalPage&" "
                  If CurrentPage>=TotalPage Then
				  Response.Write "<font color='"&Forum_UFontColor&"'>下页 末页</font>"
                  Else
				  Response.Write "<a href='javascript:ToPage("&(Cint(CurrentPage)+1)&")' onFocus='this.blur()'>下页</a> <a href='javascript:ToPage("&TotalPage&")' onFocus='this.blur()'>末页</a>"
                  End If
			%>
                跳转至第 
                <input type="text" name="Page" class="Textfiled_Bottom" size="2" maxlength="3">
                页 
                <input type="submit" name="Submit" class="Button_None" value="提交" onFocus="this.blur()">
              </div>
            </td>
          </form>
        </tr>
      </table>
    </td>
  </tr>
</table>
<table width="<%=Forum_Width%>" border="0" cellspacing="0" cellpadding="0" align="center" id=onlineborder>
  <tr> 
    <td height=1></td>
  </tr>
</table>
<table width="<%=Forum_Width%>" border="0" cellspacing="1" cellpadding="1" align="center" id=online bgcolor="<%=Forum_BorderColor%>">
  <tr> 
    <td valign="top" bgcolor="<%=Forum_OnlineColor%>"> 
      <!--#include file="Inc/Online.asp" -->
    </td>
  </tr>
</table>
<!--#include file="Inc/Bottom.asp" -->
</body>
</html>

⌨️ 快捷键说明

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