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

📄 result.asp

📁 5237 论坛.rar
💻 ASP
字号:
🔍 
<!--#include file="Connections/connY.asp" -->
<!--#include file="Inc/Info.asp" -->
<!--#include file="Inc/TimeFormat.asp" -->
<!--#include file="Inc/UBBCode.asp" -->
<!--#include file="Inc/SetCss.asp" -->
<%
K=Request("K")
N=Request("N")
R=Request("R")
L=Request("L")
D=Request("D")
KeyWords=Split(K, "|")
KeyNum=Ubound(Keywords)
State="高级搜索"
%>
<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_ColorList_BgColor%>" vlink="<%=Forum_Css_A_Link_Color%>">
<!--#include file="Inc/Top.asp" -->
<table width="<%=Forum_Width%>" border="0" cellspacing="1" cellpadding="0" align="center" bgcolor="<%=Forum_ColorList_BorderColor%>">
  <tr> 
    <td height="20" bgcolor="<%=Forum_ColorList_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; <font color="<%=Forum_ColorList_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="0" align="center" id=info style="DISPLAY: none" bgcolor="<%=Forum_ColorList_BorderColor%>">
  <tr> 
    <td valign="top" bgcolor="<%=Forum_ColorList_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_ColorList_BorderColor%>" class="font">
  <tr bgcolor="<%=Forum_ColorList_BgColor%>"> 
    <td colspan="8" height="22"> 
      <table width="100%" border="0" cellspacing="0" cellpadding="1" class="font">
        <tr> 
          <td>&nbsp;</td>
          <td width="400"> 
            <div align="right">| <a href="javascript:this.location.reload()" onFocus="this.blur()"><font color="<%=Forum_ColorList_PFontColor%>">刷新</font></a> 
              | <a href="Help.asp" onFocus="this.blur()">帮助</a> | 
              <%
				  set rsSearch=Server.CreateObject("ADODB.Recordset")
				  Sql = "Select * From tArticleManage Where "
                  If Cint(L)<>0 Then
                  Sql = Sql&"rSubject="&L&" And "
                  End If
                  If Cint(D) <> 0 Then
                  TimeLimit = Cint(D)
                  Sql = Sql & "rPostTime > #"&Dateadd("d", -TimeLimit, Now)&"# And "
                  End If
                  I=0
                  For Each Word In KeyWords
                  If Cint(N)=1 Then
                  Sql =Sql & "rPosterNickName Like '%"&Word&"%'"
                  End If
                  If Cint(N)=2 Then
                  Sql =Sql & "rTitle Like '%"&Word&"%'"
                  End If
                  If Cint(N)=3 Then
                  Sql =Sql & "rContent Like '%"&Word&"%'"
                  End If
                  If I < KeyNum Then Sql = Sql&R&" " 
                  I = I + 1
                  Next
                  rsSearch.Open Sql,ConnY,1,1
				  If Not rsSearch.Eof Then
                  Dim PageSize
				  Dim RowNum
                  rsSearch.PageSize=25
				  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_ColorList_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_ColorList_AlternateColor1
  Else
  Response.Write Forum_ColorList_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?T="&rsSearch("rType")&"&S="&rsSearch("rSubject")&"&I="&rsSearch("rID")&"' target='_blank' onFocus='this.blur()' alt='开启新窗口浏览'>"
		Else
		Response.Write "<a href='javascript:PayAssets("&rsSearch("rType")&","&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?T="&rsSearch("rType")&"&S="&rsSearch("rSubject")&"&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?T="&rsSearch("rType")&"&S="&rsSearch("rSubject")&"&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?T="&rsSearch("rType")&"&S="&rsSearch("rSubject")&"&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?T="&rsSearch("rType")&"&S="&rsSearch("rSubject")&"&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?T="&rsSearch("rType")&"&S="&rsSearch("rSubject")&"&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"> 
        <%
			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_ColorList_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("rType")&","&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?T="&rsSearch("rType")&"&S="&rsSearch("rSubject")&"&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?T="&rsSearch("rType")&"&S="&rsSearch("rSubject")&"&I="&rsSearch("rID")&"&P="&I&"' onFocus='this.blur()'>"&I&"</a>"
	   Else
	   Response.Write " <a href='View.asp?T="&rsSearch("rType")&"&S="&rsSearch("rSubject")&"&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_ColorList_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_ColorList_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="N" value="<%=Request("N")%>">
                <input type="hidden" name="R" value="<%=Request("R")%>">
                <input type="hidden" name="L" value="<%=Request("L")%>">
                <input type="hidden" name="D" value="<%=Request("D")%>">
                <%
			      If CurrentPage<=1 Then
                  Response.Write "<font color='"&Forum_ColorList_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_ColorList_PFontColor&"'>"&CurrentPage&"</font>/"&TotalPage&" "
                  If CurrentPage>=TotalPage Then
				  Response.Write "<font color='"&Forum_ColorList_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" bgcolor="<%=Forum_ColorList_BorderColor%>" id=online>
  <tr> 
    <td valign="top" bgcolor="<%=Forum_ColorList_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 + -