📄 info_search.asp
字号:
<!--#include file="Inc/func_info.asp"-->
<%
const ChannelID=2
const ShowRunTime="Yes"
MaxPerPage=10
SkinID=0
PageTitle="搜索结果"
strFileName="info_Search.asp?Field=" & strField & "&Keyword=" & keyword & "&ClassID=" & ClassID
%>
<html>
<head>
<title><%=SiteName%>--文章搜索结果</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="inc/Skin_CSS.asp"-->
<% call MenuJS() %>
</head>
<body <%=Body_Label%> onmousemove='HideMenu()'>
<!--#include file="Top.asp"-->
<table width="778" border="0" align="center" cellpadding="0" cellspacing="0" class="border2">
<tr>
<td width="25%" class="td_left"><table width="100%" border="0" cellspacing="0" cellpadding="0" class="title_left">
<tr>
<td align="center" class='title_bg_center'>专 题 栏 目</td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="5">
<tr>
<td height="100" valign="top">
<% call ShowSpecial(10) %> </td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" class="title_left">
<tr>
<td align="center" class='title_bg_center'>推 荐 文 章</td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="100" valign="top">
<% call ShowElite(5,16) %> </td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" class="title_left">
<tr>
<td align="center" class='title_bg_center'>热 门 文 章</td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="100" valign="top">
<% call ShowHot(5,16) %> </td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" class="title_left">
<tr>
<td align="center" class='title_bg_center'>最 新 调 查</td>
</tr>
</table>
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="5">
<tr>
<td height="100" valign="top">
<% call ShowVote() %> </td>
</tr>
</table></td><td width="75%" valign="top"><table width="102%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td class='title_bg_center'>
<%
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
%>
</td>
</tr>
</table>
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="8">
<tr>
<td valign="top">
<%call ShowSearchResult()%>
</td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr class="tdbg_leftall">
<td>
<%
if totalput>0 then
call showpage(strFileName,totalput,MaxPerPage,false,true,"篇文章")
end if
%>
</td>
</tr>
</table>
<table width='100%' border='0' align="center" cellpadding='2' cellspacing='0' class="title" style="border-top:solid #999999 1px">
<tr>
<td width="27%" align="center"><img src="Images/checkarticle.gif" width="15" height="15" align="absmiddle"> 信息文章搜索：</td>
<td width="73%"><% call ShowSearchForm("info_Search.asp",2) %></td>
</tr>
</table></td>
</tr>
</table>
<% call Bottom() %>
</td>
</tr></table>
</body>
</html>
<script>
mtDropDown.initialize();
</script>
<% call CloseConn() %>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -