📄 article_search.asp

📁 程序为品牌程序,信誉、质量、服务有保证主要功能有文章,留言,下载,论坛,博客,统计,调查模块化的程序设计
💻 ASP
字号:
<!--#include file="inc/syscode_article.asp"-->
<%
const ChannelID=2
const ShowRunTime="Yes"
MaxPerPage=10
SkinID=0
PageTitle="搜索结果"
strFileName="Article_Search.asp?Field=" & strField & "&Keyword=" & keyword & "&ClassID=" & ClassID
%>
<HTML><HEAD><title><%=strPageTitle%></title>
<META http-equiv=content-type content="text/html; charset=gb2312">
<META http-equiv=pragma content=no-cache><LINK href="newpic2_files/style.css" 
type=text/css rel=stylesheet><LINK href="newpic2_files/style_p.css" 
type=text/css rel=stylesheet>

<META content="MSHTML 6.00.3790.0" name=GENERATOR></HEAD>
<BODY bgColor=#ffffff leftMargin=0 topMargin=0 marginwidth="0" marginheight="0">
<!--#include file="top.asp"-->
<TABLE width=760 height=35 
  border=0 align="center" cellPadding=0 cellSpacing=0 bgColor=#6b86be>
  <TBODY>
  <TR>
    <TD width=40>
      <DIV align=center></DIV></TD>
    <TD><% call ShowSearchForm("Article_Search.asp",2) %></TD>
</TR></TBODY></TABLE>
<TABLE width=760 border=0 align="center" cellPadding=0 cellSpacing=0 bgColor=#ffffff>
  <TBODY>
  <TR>
    <TD width=460 height=30>&nbsp;&nbsp;<br>
     &nbsp;&nbsp; <FONT color=#cc0000>◆</FONT> <span class="title_maintxt">
      <%
		if keyword="" then
			response.write "所有文章"
		else
			select case strField
				case "Title"
					response.write "文章标题含有 <font color=red>"&keyword&"</font> 的文章"
				case "Content"
					response.write "文章内容含有 <font color=red>"&keyword&"</font> 的文章"
				case "Author"
					response.write "作者姓名含有 <font color=red>"&keyword&"</font> 的文章"
				case "Editor"
					response.write "编辑姓名含有 <font color=red>"&keyword&"</font> 的文章"
				case else
					response.write "文章标题含有 <font color=red>"&keyword&"</font> 的文章"
			end select
		end if
%>
      <br>
      &nbsp;
</span></TD>
</TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=760 bgColor=#ffffff border=0>
  <TBODY>
  <TR>
    </TR></TBODY></TABLE>
<TABLE width=760 border=0 align="center" cellPadding=0 cellSpacing=0>
  <TBODY>
  <TR>
    <TD width=760 bgColor=#ffffff>
      <TABLE cellSpacing=0 cellPadding=0 width=760 border=0>
        <TBODY>
        <TR>
          <TD height=20>
            <TABLE cellSpacing=0 cellPadding=0 width=760 border=0>
              <TBODY>
              <TR bgColor=#f0f9ff>
                <TD class=p1 width=10>&nbsp;&nbsp;</TD>
                <TD class=p1 width=20>
                  <DIV align=center></DIV></TD>
                <TD width=695> &nbsp; <br>
                  <%call ShowSearchResult()%></TD>
                <TD width=20>&nbsp;</TD></TR>
              <TR>
                <TD width=10 height=8></TD>
                <TD width=20 height=8></TD>
                <TD class=p1 style="LINE-HEIGHT: 18px" width=695 bgColor=#ffffff 
                height=8></TD>
                <TD width=20 bgColor=#ffffff height=8></TD></TR>
              
              </TBODY></TABLE></TD></TR>
        <TR>
</TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
<TABLE width=760 border=0 align="center" cellPadding=0 cellSpacing=0 bgColor=#ffffff>
  <TBODY>
  <TR>
    <TD width=460 height=30>&nbsp;&nbsp;<FONT color=#cc0000>◆</FONT> <span class="title_maintxt">
      <%
		if keyword="" then
			response.write "所有文章"
		else
			select case strField
				case "Title"
					response.write "文章标题含有 <font color=red>"&keyword&"</font> 的文章"
				case "Content"
					response.write "文章内容含有 <font color=red>"&keyword&"</font> 的文章"
				case "Author"
					response.write "作者姓名含有 <font color=red>"&keyword&"</font> 的文章"
				case "Editor"
					response.write "编辑姓名含有 <font color=red>"&keyword&"</font> 的文章"
				case else
					response.write "文章标题含有 <font color=red>"&keyword&"</font> 的文章"
			end select
		end if
%>
    </span></TD>
</TR></TBODY></TABLE>
<TABLE width=760 border=0 align="center" cellPadding=0 cellSpacing=0 bgColor=#ffffff>
  <TBODY>
  
  <TR>
    <TD height=20>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
      <%
		  if totalput>0 then
		  	call showpage(strFileName,totalput,MaxPerPage,false,true,"篇文章")
		  end if
		  %></TD>
  </TR>
  <TR>
<TD height=20></TD></TR></TBODY></TABLE>
<TABLE width=760 height=35 
  border=0 align="center" cellPadding=0 cellSpacing=0 bgColor=#6b86be>
  <TBODY>
  <TR>
    <TD width=40>
      <DIV align=center></DIV></TD>
    <TD><% call ShowSearchForm("Article_Search.asp",2) %></TD>
</TR></TBODY></TABLE>
<TABLE width=760 border=0 align="center" cellPadding=0 cellSpacing=0 bgColor=#dddede>
  <TBODY>
  <TR>
    <TD align=middle><BR></TD></TR>
  <TR>
<TD height=8></TD></TR></TBODY></TABLE>
</BODY></HTML>
⌨️ 快捷键说明

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