📄 search_article.asp
字号:
{
var url;
if (formname.myselectvalue.value == "0")
{
url = "http://www1.baidu.com/baidu";
document.search_form.tn.value = "zqcharm";
formname.method = "get";
}
if (formname.myselectvalue.value == "1")
{
url = "http://mp3search.baidu.com/wstsearch";
document.search_form.tn.value = "baidump3";
document.search_form.ct.value = "134217728";
document.search_form.lm.value = "-1";
formname.method = "get";
}
if (formname.myselectvalue.value == "2")
{
document.search_form.tn.value = "flash";
document.search_form.ct.value = "33554432";
url = "http://flash.baidu.com/wstsearch";
}
if (formname.myselectvalue.value == "3")
{
document.search_form.tn.value = "baiduwstui";
document.search_form.ct.value = "83886080";
url = "http://www1.baidu.com/wstsearch";
}
formname.action = url;
return true;
}
</SCRIPT>
<FORM name=search_form onsubmit="return gowhere(this)" target=_blank>
<INPUT name=myselectvalue type=hidden value=0>
<INPUT name=tn type=hidden>
<INPUT name=ct type=hidden>
<INPUT name=lm type=hidden>
<tr>
<td bgcolor="#F7F7F7"><a href="http://www.baidu.com/" target="_blank"><img src="images/baidu_hz.gif" width="64" height="25" border="0" align="absmiddle"></a></td>
<td bgcolor="#F7F7F7"><input id=word name=word size="50" value="" >
<input name="image" type="submit" id="image" value="百度搜索"> <a href="http://www.baidu.com/search/jiqiao.html">百度搜索帮助
</a><br> <INPUT CHECKED name=myselect onclick=javascript:this.form.myselectvalue.value=0; type=radio value=0>
网页
<INPUT name=myselect onclick=javascript:this.form.myselectvalue.value=1; type=radio value=1>
mp3
<INPUT name=myselect onclick=javascript:this.form.myselectvalue.value=2; type=radio value=2>
flash
<INPUT name=myselect onclick=javascript:this.form.myselectvalue.value=3; type=radio value=3>
信息快递 </td>
</tr>
</form>
<form action=http://search.sogua.com/search/search.asp method=get target=_blank id=form1 name=form1>
<tr>
<td bgcolor="#F7F7F7">歌曲搜索</td>
<td bgcolor="#F7F7F7"><input name=key value='请输入歌手名或歌名'onfocus='if (value =="请输入歌手名或歌名"){value =""}'onblur='if (value ==""){value="请输入歌手名或歌名"}' size=50 >
<input type=submit cachename=go value='搜索' id=submit1 name=submit1>
</a><br>文件:<input type=checkbox name=fmp3 value=1 checked>MP3
<input type=checkbox name=frm value=1 checked>RM
<input type=checkbox name=fswf value=1>SWF
<input type=checkbox name=fwma value=1>WMA
<input type=checkbox name=fasf value=1>ASF
协议:<input type=checkbox name=phttp value=1 checked>
http <input type=checkbox name=pftp value=1>
ftp <input type=checkbox name=prtsp value=1>
rtsp <input type=checkbox name=ppnm value=1>
pnm <input type=checkbox name=pmms value=1 checked>
mms </td>
</tr>
</form>
</table>
<% end sub
sub Search_Article()
dim q,keyword,sqlKeyword,splCatalog,sqlDateTime
keyword=checkStr(Trim(Request("keyword")))
dim currentpage,page_count,Pcount
dim totalrec,endpage
const MaxPerPage=20
if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if
q="&action=article&keyword="&keyword&"&selby="&Trim(Request("selby"))&"&catalog="&Request("catalog")&""
if Trim(Request("catalog"))="" then
sqlCatalog=""
if Request("selby")=1 then
sqlKeyword=" (" & translate(keyword,"Title") & ") "
elseif Request("selby")=2 then
sqlKeyword=" (" & translate(keyword,"Content") & ") "
elseif Request("selby")=0 then
sqlKeyword=" (" & translate(keyword,"Title") & " or " & translate(keyword,"Content") & ") "
end if
else
splCatalog=split(Request("catalog"),",")
if cint(splCatalog(2))=0 then
sqlCatalog=" RootID="&splCatalog(1)&""
else
sqlCatalog=" CatalogID="&splCatalog(1)&""
end if
'Response.Write(sqlCatalog)
if Request("selby")=1 then
sqlKeyword=" and (" & translate(keyword,"Title") & ") "
elseif Request("selby")=2 then
sqlKeyword=" and (" & translate(keyword,"Content") & ") "
elseif Request("selby")=0 then
sqlKeyword=" and (" & translate(keyword,"Title") & " or " & translate(keyword,"Content") & ") "
end if
'Response.Write(sqlKeyword)
end if
if Request("DateTime")<>"" then
sqlDateTime=" and datediff('d',DateTime,date())<"&datediff("d",Request("DateTime"),Now())&""
q=q&"&DateTime="&Trim(Request("DateTime"))&""
else
sqlDateTime=""
end if
sql="select ArticleID,Title,CatalogID,CatalogName,DateTime,Hits,isTop,isHot,Writer from info_Article Where "& sqlCatalog & sqlKeyword & sqlDateTime & " order by isTop desc,DateTime Desc"
%>
<table width="100%" border="0" align="center" cellpadding="3" cellspacing="1" id="TbSoftList">
<COLGROUP>
<COL width=*>
<COL width=80>
<COL width=60>
<COL width=50>
<tr>
<td bgcolor="#F5F5F5">文章分类和标题</td>
<td align="center" bgcolor="#F5F5F5">日期</td>
<td align="center" bgcolor="#F5F5F5">作者</td>
<td align="center" bgcolor="#F5F5F5">人气</td>
</tr>
<% rs.open sql,conn,1,1
if rs.eof and rs.bof then
Response.Write "<tr bgcolor=""#FCFCFC""> <td colspan=""5"">Sorry！没有找到任何记录。</td></tr>"
else
totalrec=rs.recordcount
if (totalrec mod MaxPerPage)=0 then
Pcount= totalrec \ MaxPerPage
else
Pcount= totalrec \ MaxPerPage + 1
end if
RS.MoveFirst
if currentpage > Pcount then currentpage = Pcount
if currentpage<1 then currentpage=1
RS.Move (currentpage-1) * MaxPerPage
page_count=0
do while not rs.eof and page_count < MaxPerPage
%>
<tr bgcolor="#FCFCFC">
<td class="b1"> <%
if rs("isTop") then
Response.Write "<img src=""images/isTop.gif"" align=""absmiddle"">"
elseif rs("isHot") then
Response.Write "<img src=""images/isHot.gif"" align=""absmiddle"">"
else
Response.Write "<img src=""images/isList.gif"" align=""absmiddle"">"
end if
Response.Write "[<a href=""infolist/Catalog_"&rs("CatalogID")&"_1.html"" target=""_blank"">"&rs("CatalogName")&"</a>]"
Response.Write " <a href=""infoview/Article_"&rs("ArticleID")&".html"" target=""_blank"">"&rs("Title")&"</a>"
%> </td>
<td align="center" class="b1"><%= FormatDateTime(rs("DateTime"),2) %></td>
<td align="center" class="b1"><%= rs("Writer") %></td>
<td align="center" class="b1"><%= rs("Hits") %></td>
</tr>
<% page_count=page_count+1
rs.movenext:loop %>
<tr bgcolor="#FCFCFC">
<td colspan="4"><table width="100%">
<tr>
<td>
<%Response.Write "共搜索到：<b><font color=""red"">"&totalrec&"</font></b> 条记录"
Response.Write " 页次：<b>"¤tpage&"</b>/<b>"&Pcount&"</b>页"
Response.Write " 每页<b>"&MaxPerPage&"</b>" %>
</td>
<td align="right">分页：
<%
if currentpage > 4 then
response.write "<a href=""?page=1"&q&""">[1]</a> ..."
end if
if Pcount>currentpage+3 then
endpage=currentpage+3
else
endpage=Pcount
end if
for i=currentpage-3 to endpage
if not i<1 then
if i = clng(currentpage) then
response.write " <font color=""red"">["&i&"]</font>"
else
response.write " <a href=""?page="&i&""&q&""">["&i&"]</a>"
end if
end if
next
if currentpage+3 < Pcount then
response.write "... <a href=""?page="&Pcount&""&q&""">["&Pcount&"]</a>"
end if %>
</td>
</tr>
</table></td>
</tr>
<% end if:rs.close %>
</table> <% end sub %></td>
</tr>
</table></td>
</tr>
</table>
<% Response.Write(replace(strFooter,"../","./"))
CloseDatabase
%>
<% sub Sysmsg(msgtitle,msginfo) %>
<br>
<table width="65%" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#CCCCCC">
<tr>
<td bgcolor="#E7E7E7" class="tdbg1"><strong><%= msgtitle %></strong></td>
</tr>
<tr>
<td bgcolor="#F7F7F7" class="tdbg2"><%= msginfo %></td>
</tr>
<tr>
<td align="center" bgcolor="#F7F7F7" class="tdbg2"><a href="<%=Request.ServerVariables("HTTP_REFERER")%>"><<返回上一页</a></td>
</tr>
</table>
<br>
<% end sub %>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -