search.asp

网站 QCNEWS后台管理程序,风格流行功能强大

<!--#include file="head.asp"-->
<!----------------------------------------------

	Powered by QCDN_NEWS Version 1.4.3.10.6.0 (青创文章系统 - 测试版)
	个人免费版
	http://www.qcdn.net/
	此版本只能在个人网站使用并要求保留青创网络版权！

-------------------------------------------------->
<%
	if Trim(Request("keyword")) = "" then
		Errmsg = "<li>请填写要查找的关键字。"
		FoundErr = true
	else
		keyword = Trim(Request("keyword"))
	end if
	if Request("where") = "" then
		Errmsg = Errmsg + "<li>发现异常错误。<li>错误编号为: error 109。<li>请和青创网络联系解决问题。"
		FoundErr = true
	else
		where = Request("where")
	end if
	if FoundErr then
		Call Qcdn.Err_List(Errmsg,1)
		Response.End()
	end if
	MaxPerPage=PageCount
   	dim totalPut
   	dim CurrentPage
	if not isempty(request("page")) then
      		currentPage=cint(request("page"))
   	else
      		currentPage=1
   	end if
%>
<table class="twidth" align=center cellpadding=0 cellspacing=0>
<tr>
<td class="navsub-left"></td>
<td class="navsub">
	&nbsp; <a href='index.asp'><%=NetName%></a> → 文章搜索
</td>
<td class="navsub-right"></td>
</tr>
</table>

<br>

<table class="twidth" cellpadding=0 cellspacing=0 border=0 align=center>
<tr align="left" valign=top >
<td width=200><!--#include file="2jleft.asp"--></td>
<td>

	<table width=100% cellspacing=0 cellpadding=0>
	<tr>
	<td class="mframe-t-left"></td>
	<td class="mframe-t-mid">
		<span class="mframe-t-text">&nbsp; &gt;&gt; <span id="NameLabel">
		文章搜索
		</span></span>
	</td>
	<td class="mframe-t-right"></td>
	</tr>
	</table>
	<table width=100% cellspacing=0 cellpadding=0>
	<tr>
	<td class="mframe-m-left"></td>
	      <td valign="top" class="mframe-m-mid"> 
			<%
					  set rs=server.createobject("adodb.recordset")
					  Sql = "Select Unid,title,content,classid,hits,intime,pic,synopsis from article_info where "& where &" like '%"& Qcdn.checkStr(keyword) &"%' and flag = 0 and Audit = 0 order by Unid desc"
					  rs.open sql,conn,1,1
					  if Rs.eof and Rs.bof then
					  	response.Write("没有查询到所需的文章。")
					  else
					  totalPut=rs.recordcount
      		if currentpage<1 then
          		currentpage=1
      		end if
      		if (currentpage-1)*MaxPerPage>totalput then
	   		if (totalPut mod MaxPerPage)=0 then
	     			currentpage= totalPut \ MaxPerPage
	  		else
	      			currentpage= totalPut \ MaxPerPage + 1
	   		end if
      		end if
       		if currentPage=1 then
           		showpage totalput,MaxPerPage,"search.asp"
            		showContent
            		showpage totalput,MaxPerPage,"search.asp"
       		else
          		if (currentPage-1)*MaxPerPage<totalPut then
            			rs.move  (currentPage-1)*MaxPerPage
            			dim bookmark
            			bookmark=rs.bookmark
           			showpage totalput,MaxPerPage,"search.asp"
            			showContent
             			showpage totalput,MaxPerPage,"search.asp"
        		else
	        		currentPage=1
           			showpage totalput,MaxPerPage,"search.asp"
           			showContent
           			showpage totalput,MaxPerPage,"search.asp"
	      		end if
	   		end if
		rs.close
		set rs = nothing	
   	end if 
	sub showContent
	dim i 
	   	i=0
	do while not rs.eof 
						  Unid = rs(0)
						  title = rs(1)
						  content = rs(2)
						  Nclassid = rs(3)
						  hits = rs(4)
						  intime = rs(5)
						  pic = rs(6)
						  synopsis = rs(7)
			%>
			<table width=100% cellpadding=0 cellspacing=0 border=0>
              <tr>
                <td class='summary-title'>&nbsp;<img src='image/skin/1/bullet.gif' align=absmiddle>
				<%
					if cid = "" then
								Response.Write ("[<a href=2j.asp?id="&id&"&cid="&Nclassid&">" & Qcdn.Classlist(Nclassid) & "</a>]")
					end if
					Response.Write("<a href=list.asp?unid="& rs(0) &" target='"& AddOpenWin &"'>" & title & "</a>")
					if DisPicico then
							if pic = 1 then
									Response.write " [图文]"
							end if
					end if
				%>
				</td>
              </tr>
              <tr>
                <td style='padding:5px 10px'>
				<%
				Response.Write "　　" & Qcdn.HTMLcode(synopsis)
				Response.write ("<div style='width:100%;text-align:right'><font class=gray>("& intime &",<font class=hit>"& hits &"</font>)</font>   <a href=list.asp?unid="& rs(0) &" target='"& AddOpenWin &"'>[查看全文]</a> </div>")
				%>
                  </td>
              </tr>
            </table>
<%
		  i=i+1
	      if i>=MaxPerPage then exit do
  rs.movenext
  loop
  
%>
            <table width=95% align=center height=40><tr><td align=center><table cellpadding=0 cellspacing=0 width=100%><tr>
                      <td>
	<%
	end sub
	function showpage(totalnumber,maxperpage,filename)
  	dim n

  	if totalnumber mod maxperpage=0 then
     		n= totalnumber \ maxperpage
  	else
     		n= totalnumber \ maxperpage+1
  	end if
  	response.write "<table cellspacing=1 width='100%' border=0 colspan='4'><form method=Post action="""&filename&"?id="&id&"&cid="&cid&"&where="& where &"&keyword="& keyword &"""><tr><td align=right> "
  	if CurrentPage<2 then
    		response.write "共搜索到：<font color=red>"&totalnumber&"</font> 篇文章&nbsp;首页 上一页&nbsp;"
  	else
    		response.write "共搜索到：<font color=red>"&totalnumber&"</font> 篇文章&nbsp;<a href="&filename&"?page=1&id="&id&"&cid="&cid&"&where="& where &"&keyword="& keyword &" class=gray>首页</a>&nbsp;"
    		response.write "<a href="&filename&"?page="&CurrentPage-1&"&id="&id&"&cid="&cid&"&where="& where &"&keyword="& keyword &" class=gray>上一页</a>&nbsp;"
  	end if

  	if n-currentpage<1 then
    		response.write "下一页 尾页"
  	else
    		response.write "<a href="&filename&"?page="&(CurrentPage+1)&"&id="&id&"&cid="&cid&"&where="& where &"&keyword="& keyword &" class=gray>"
    		response.write "下一页</a> <a href="&filename&"?page="&n&"&id="&id&"&cid="&cid&"&where="& where &"&keyword="& keyword &" class=gray>尾页</a>"
  	end if
   	response.write "&nbsp;页次：<strong><font color=red>"&CurrentPage&"</font>/"&n&"</strong>页 "
    	response.write "&nbsp;<b>"&maxperpage&"</b>篇文章/页 "
%>
                        转到： 
                        <select name='page' size='1' style="font-size: 9pt" onChange='javascript:submit()'>
                          <%for i = 1 to n%>
                          <option value='<%=i%>' <%if CurrentPage=cint(i) then%> selected <%end if%>>第<%=i%>页</option>
                          <%next%>
                        </select> 
                        <%   
	response.write "</td></tr></FORM></table>"
end function
					  %>
					  </td>
                    </tr></table></td></tr></table>
					<!-----------快速搜索栏----------->
					<%Call Qcdn.Searchlist()%>
					<!-----------搜索栏结束----------->
	      </td>
	<td class="mframe-m-right"></td>
	</tr>
	</table>
	<table width=100% cellspacing=0 cellpadding=0 >
	<tr>
	<td class="mframe-b-left"></td>
	<td class="mframe-b-mid">&nbsp;</td>
	<td class="mframe-b-right"></td>
	</tr>
	</table>

</td>
</tr>
</table>
<!--#include file="copy.asp"-->