article_search.asp
来自「利用C++编写的网络跟踪代码」· ASP 代码 · 共 308 行
ASP
308 行
<!--#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>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=strPageTitle%></title>
<STYLE type=text/css></STYLE>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_reloadPage(init) { //reloads the window if Nav4 resized
if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
//-->
</script>
<link href="new/css.CSS" rel="stylesheet" type="text/css">
</head>
<body bgcolor="edebe4" topmargin="0">
<%
dim sqlRoot,rsRoot,trs,arrClassID,TitleStr
sqlRoot="select C.ClassID,C.ClassName,C.RootID,L.LayoutFileName,L.LayoutID,C.Child,C.ParentPath From ArticleClass C inner join Layout L on C.LayoutID=L.LayoutID where C.ParentID=" & ClassID & " and C.IsElite=True and C.LinkUrl='' and C.BrowsePurview>=" & UserLevel & " order by C.OrderID"
Set rsRoot= Server.CreateObject("ADODB.Recordset")
rsRoot.open sqlRoot,conn,1,1
%>
<!--#include file="top.asp"-->
<table class="4" width="860" height="400" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="f2f2f2">
<tr valign="top">
<td width="244" class="tdb"> <div align="left">
<table width="100%" height="10" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="12"></td>
</tr>
</table>
<table width="220" height="26" border="0" align="center" class="4" cellpadding="0" cellspacing="0" background="new/ccd.jpg">
<tr>
<td height="12"> <table width="220" height="22" border="0" align="center" cellpadding="0" cellspacing="0"">
<tr>
<td width="18" height="15"> <div align="right"><img src="new/ee.gif" width="10" height="12">
</div></td>
<td width="195" style="FILTER: dropshadow(color=#cccccc,offx=1,offy=1);color:#333333">
<table width="100%" height="1" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="1"></td>
</tr>
</table>
文章搜索</td>
</tr>
</table></td>
</tr>
</table>
<table width="100%" height="10" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="12"></td>
</tr>
</table>
<table width="222" height="125" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="F7F7F7" class="44">
<tr>
<td height="12" valign="top" class="w4"> <table width="100%" height="10" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="15"></td>
</tr>
</table>
<% call ShowSearchForm("Article_search.asp",1) %>
</td>
</tr>
</table>
<table width="100%" height="10" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="12"></td>
</tr>
</table>
<table width="220" height="26" border="0" align="center" class="4" cellpadding="0" cellspacing="0" background="new/ccd.jpg">
<tr>
<td height="12"> <table width="220" height="22" border="0" align="center" cellpadding="0" cellspacing="0"">
<tr>
<td width="18" height="15"> <div align="right"><img src="new/ee.gif" width="10" height="12">
</div></td>
<td width="195" style="FILTER: dropshadow(color=#cccccc,offx=1,offy=1);color:#333333">
<table width="100%" height="1" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="1"></td>
</tr>
</table>
相关专题</td>
</tr>
</table></td>
</tr>
</table>
<table width="100%" height="10" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="12"></td>
</tr>
</table>
<table width="222" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="F7F7F7" class="44">
<tr>
<td height="12" valign="top" class="w4"> <table width="100%" height="5" border="0" align="center" cellpadding="0" cellspacing="7">
<tr>
<td height="5">
<% call ShowSpecial(5) %>
</td>
</tr>
</table></td>
</tr>
</table>
<table width="100%" height="10" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="12"></td>
</tr>
</table>
<table width="220" height="70" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#CC0000">
<tr>
<td height="12"><div align="center"><font color="#FFFFFF">广告位(220*70)</font></div></td>
</tr>
</table>
<table width="100%" height="10" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="12"></td>
</tr>
</table>
<table width="220" height="26" border="0" align="center" class="4" cellpadding="0" cellspacing="0" background="new/ccd.jpg">
<tr>
<td height="12"> <table width="220" height="22" border="0" align="center" cellpadding="0" cellspacing="0"">
<tr>
<td width="18" height="15"> <div align="right"><img src="new/ee.gif" width="10" height="12">
</div></td>
<td width="195" style="FILTER: dropshadow(color=#cccccc,offx=1,offy=1);color:#333333">
<table width="100%" height="1" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="1"></td>
</tr>
</table>
热门文章</td>
</tr>
</table></td>
</tr>
</table>
<table width="100%" height="10" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="12"></td>
</tr>
</table>
<table width="222" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="F7F7F7" class="44">
<tr>
<td height="12" valign="top" class="w4"> <table width="100%" height="5" border="0" align="center" cellpadding="0" cellspacing="7">
<tr>
<td height="5">
<% call Showhot(10,26) %>
</td>
</tr>
</table></td>
</tr>
</table>
<table width="100%" height="10" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="12"></td>
</tr>
</table>
</div></td>
<td width="616" class="tda"><table width="100%" height="10" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="12"></td>
</tr>
</table>
<table width="592" height="26" border="0" align="center" class="4" cellpadding="0" cellspacing="0" background="new/ccd.jpg">
<tr>
<td height="12"> <table width="220" height="22" border="0" align="left" cellpadding="0" cellspacing="0"">
<tr>
<td width="18" height="15"> <div align="right"><img src="new/ee.gif" width="10" height="12">
</div></td>
<td width="195" style="FILTER: dropshadow(color=#cccccc,offx=1,offy=1);color:#333333">
<table width="100%" height="1" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="1"></td>
</tr>
</table>
搜索结果</td>
</tr>
</table></td>
</tr>
</table>
<table width="100%" height="10" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="12"></td>
</tr>
</table>
<table width="592" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="F7F7F7" class="4">
<tr>
<td height="12" valign="middle"> <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="10" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> </td>
</tr>
</table>
<table width="99%" border="0" align="center" cellpadding="0" cellspacing="0" class="title_main">
<tr>
<td width="12"> </td>
<td width="563"><table width="100%" border="0" cellpadding="0" cellspacing="0" >
<tr>
<td 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
%>
</td>
</tr>
</table></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="5"></td>
</tr>
</table>
<table width="99%" border="0" align="center" cellpadding="0" cellspacing="0" class="border">
<tr>
<td valign="top"> <table width="100%" height="100%" border="0" cellpadding="0" cellspacing="12">
<tr>
<td valign="top">
<%call ShowSearchResult()%>
</td>
</tr>
</table></td>
</tr>
<tr class="tdbg">
<td> <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></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> </td>
</tr>
</table> </td>
</tr>
</table></td>
</tr>
</table>
<table width="100%" height="10" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="12"></td>
</tr>
</table>
<table width="592" height="70" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#CC0000">
<tr>
<td height="12"><div align="center"><font color="#FFFFFF">广告位(590*70)</font></div></td>
</tr>
</table>
<table width="100%" height="10" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="12"></td>
</tr>
</table></td>
</tr>
</table>
<table width="860" height="10" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="10"><img src="new/dbb.gif" width="860" height="18"></td>
</tr>
</table>
<!--#include file="end.asp"-->
<% call PopAnnouceWindow(400,300) %>
<% call ShowAD(0) %>
<% call ShowAD(4) %>
<% call ShowAD(5) %>
</body>
</html>
<%
set rsArticle=nothing
set rsPic=nothing
call CloseConn()
%>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?