#52001/10/17 16:41:25
不需要数据库支持!
核心代码:
<%
SearchType = Trim(Request("SearchType"))
URLRedirTo = ""
strSearchString = Server.Urlencode(Trim(Request("SearchString")))
Select Case SearchType
Case "local"
' first assumed is our server to be searched for
URLRedirTo = Trim(Request("IDQFile")) & "?CiRestriction=" & strSearchString
URLRedirTo = URLRedirTo & "&CiMaxRecordsPerPage=" & server.urlencode(Trim(Request("CiMaxRecordsPerPage")))
URLRedirTo = URLRedirTo & "&CiScope=" & server.urlencode(Trim(Request("SearchArea")))
URLRedirTo = URLRedirTo & "&TemplateName=" & server.urlencode(Trim(Request("TemplateName")))
URLRedirTo = URLRedirTo & "&CiSort=" & server.urlencode(Trim(Request("CiSort")))
URLRedirTo = URLRedirTo & "&HTMLQueryForm=" & server.urlencode(Trim(Request("HTMLQueryForm")))
Case "altavista"
URLRedirTo = "http://altavista.digital.com/cgi-bin/query" & "?pg=q"
URLRedirTo = URLRedirTo & "&what=web&fmt="
URLRedirTo = URLRedirTo & "&q=" & strSearchString
Case "excite"
URLRedirTo = "http://www.excite.com/search.gw"
URLRedirTo = URLRedirTo & "?trace=a&search=" & strSearchString & "&collection=web"
Case "infoseek"
URLRedirTo = "http://www.infoseek.com/Titles"
URLRedirTo = URLRedirTo & "?col=WW&qt=" & strSearchString & "&sv=IS&lk=noframes&nh=10"
Case "lycos"
URLRedirTo = "http://www.lycos.com/cgi-bin/pursuit"
URLRedirTo = URLRedirTo & "?cat=lycos&query=" & strSearchString
Case "hotbot"
URLRedirTo = "http://www.hotbot.com/"
URLRedirTo = URLRedirTo & "?SW=the+Web&SM=B&MT=" & strSearchString
URLRedirTo = URLRedirTo & "&DC=10&DE=2&RG=NA&_v=2"
Case "yahoo"
URLRedirTo = "http://search.yahoo.com/bin/search"
URLRedirTo = URLRedirTo & "?p=" & strSearchString
Case Else
End Select
if ("" <> URLRedirTo) then
Response.Redirect(URLRedirTo)
else
%>
做一个html,调用这段代码。
编辑历史:[这消息被必胜客编辑过(编辑时间2001-10-17 16:42:14)]