📄 search_soft.asp
字号:
<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_Soft()
dim q,keyword,sqlKeyword,splCatalog,sqlSoftType,sqlLicenceType,sqlLanguage,sqlSystem,sqlSoftFrom,sqlEmail,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=soft&keyword="&keyword&"&selby="&Trim(Request("selby"))&"&catalog="&Request("catalog")&""
if Trim(Request("catalog"))="" then
sqlCatalog=""
if Request("selby")=1 then
sqlKeyword=" (" & translate(keyword,"SoftName") & ") "
elseif Request("selby")=2 then
sqlKeyword=" (" & translate(keyword,"Content") & ") "
elseif Request("selby")=0 then
sqlKeyword=" (" & translate(keyword,"SoftName") & " 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,"SoftName") & ") "
elseif Request("selby")=2 then
sqlKeyword=" and (" & translate(keyword,"Content") & ") "
elseif Request("selby")=0 then
sqlKeyword=" and (" & translate(keyword,"SoftName") & " or " & translate(keyword,"Content") & ") "
end if
'Response.Write(sqlKeyword)
end if
if Request("SoftType")<>"" then
sqlSoftType=" and SoftType='"&Trim(Request("SoftType"))&"'"
q=q&"&softtype="&Trim(Request("SoftType"))&""
else
sqlSofttype=""
end if
'Response.Write(sqlSofttype)
if Request("LicenceType")<>"" then
sqlLicenceType=" and LicenceType='"&Trim(Request("LicenceType"))&"'"
q=q&"&LicenceType="&Trim(Request("LicenceType"))&""
else
sqlLicenceType=""
end if
if Request("Language")<>"" then
sqlLanguage=" and Language='"&Trim(Request("Language"))&"'"
q=q&"&Language="&Trim(Request("Language"))&""
else
sqlLanguage=""
end if
if Request("System")<>"" then
sqlSystem=" and System like '%"&Trim(Request("System"))&"%'"
q=q&"&System="&Trim(Request("System"))&""
else
sqlSystem=""
end if
if Request("SoftFrom")<>"" then
sqlSoftFrom=" and SoftFrom like '%"&checkStr(Trim(Request("SoftFrom")))&"%'"
q=q&"&SoftFrom="&Trim(Request("SoftFrom"))&""
else
sqlSoftFrom=""
end if
if Request("Email")<>"" then
sqlEmail=" and Email like '%"&checkStr(Trim(Request("Email")))&"%'"
q=q&"&Email="&Trim(Request("Email"))&""
else
sqlEmail=""
end if
if Request("DateTime")<>"" then
sqlDateTime=" and datediff('d',SoftTime,date())<"&datediff("d",Request("DateTime"),Date)&""
q=q&"&DateTime="&Trim(Request("DateTime"))&""
else
sqlDateTime=""
end if
sql="select top 500 SoftID,SoftName,SoftVer,CatalogID,CatalogName,SoftTime,SoftSize,[Language],LicenceType,System,Rank,AllHits,isTop,isCommend from SoftDown_SoftInfo Where "& sqlCatalog & sqlKeyword & sqlSoftType & sqlLicenceType & sqlLanguage & sqlSystem & sqlSoftFrom & sqlEmail & sqlDateTime &" order by isTop desc,SoftTime Desc"
'Response.Write(sql)
%>
<table width="770" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#CCCCCC" id="TbSoftList">
<COLGROUP>
<COL width=*>
<COL width=75>
<COL width=60>
<COL width=50>
<COL width=75>
<tr>
<td bgcolor="#F5F5F5">软件名称</td>
<td align="center" bgcolor="#F5F5F5">整理日期</td>
<td align="center" bgcolor="#F5F5F5">软件大小</td>
<td align="center" bgcolor="#F5F5F5">人气</td>
<td align="center" bgcolor="#F5F5F5">软件等级</td>
</tr>
<%
'response.write sql
'response.end
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>
<% if rs("isTop") then
Response.Write "<img src=""images/isTop.gif"" align=""absmiddle"">"
elseif rs("isCommend") 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=""SoftList/Catalog_"&rs("CatalogID")&"_SoftTime_Desc_1.html"">"&rs("CatalogName")&"</a>] <a href=""SoftView/SoftView_"&rs("SoftID")&".html""><b>"&rs("SoftName")&" "&rs("SoftVer")&"</b></a>"
%>
</td>
<td align="center"><%= FormatDateTime(rs("SoftTime"),2) %></td>
<td align="center"><% if rs("SoftSize")>1024 then
Response.Write (round(rs("SoftSize")/1024,2)&" MB")
else
Response.Write (rs("SoftSize")&" KB")
end if %></td>
<td align="center"><%= rs("allhits") %></td>
<td align="center"><% Response.Write("<img src=""images/"&trim(rs("Rank"))&"star.gif"">") %></td>
</tr>
<tr bgcolor="#FCFCFC">
<td colspan="5"><% Response.Write("<font color=""#009900"">语言界面：</font>"&rs("Language")&" <font color=""#009900"">授权方式：</font>"&rs("LicenceType")&" <font color=""#009900"">运行平台：</font>"&rs("system")&"</td>") %></td>
</tr><% page_count=page_count+1
rs.movenext:loop %>
<tr bgcolor="#FCFCFC">
<td colspan="5"><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
sub Search_Article()
end sub
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 + -