search.asp

1

<!--#include file="Conn.asp" -->
<!--#include file="Include/FY.Common.Front.Asp" -->
<%
S=ReplaceBadChar(trim(request("s")))
S_J=1
If S_J=1 And S="" Then
   Call WriteErrMsg("<br>"+"<li>请输入关键词后再点搜索！")
Else
FY_Web_R="&nbsp;<a class='LinkPath' href='"&InstallDir&"" & "'>" & FY_Config(0) & "</a>&nbsp;>>&nbsp;搜索结果"
strHtml=FY_Mb_GO(MB_FSOFileRead("search",""&FY_Config(16)&""),0,0,0,0)
Response.Write FY_Replace(strHtml,"{$_关键词}","<font color=""#FF0000""><b>"&s&"</b></font>")
'Response.Write FY_Replace(FY_Replace(strHtml,"{$_关键词}",s),s,"<font color=""#FF0000""><b>"&s&"</b></font>")
End if
Call CloseConn()
%>