<%head="搜索"SearchString=Request("SearchString")count=0FunctionUnMapPath(Path) UnMapPath=Replace(Mid(Path,Len(Server.MapPath("/"))+1),"\","/")'把当前目录的实际路径转换为虚拟路径.EndFunctionFunctionSearchFile(f,s,title) Setfo=fs.OpenTextFile(f) content=fo.ReadAll'把全部文本读到content. fo.Close&n...
http://www.jb51.net//article/4791.htm
searchpage.htm'搜索页面.<html><head> <title>千花飞舞之站内搜索引擎</title> </head> <body> <CENTER> <FORMMETHOD=POSTACTION="searchresult.asp"> ...
http://www.jb51.net//article/4790.htm
<%@LANGUAGE="VBscript"%> <html> <head> <metaNAME="GENERATOR"Content="MicrosoftFrontPage3.0"> <metaHTTP-EQUIV="Content-Type"content="text/html;charset=gb_2312-80"> <title>星河影动之全文检索</title> <metaname="MicrosoftBorder"content="tl,default"></head&...
http://www.jb51.net//article/4789.htm
如何做一个检索结果带链接的检索？<%data=request.form("search_data")'从FORM变量集得到要查询的文件名称所要包含的字符串p=search_folder(data,"http://jack/cgi-bin","c:\intels\wwwroot\cgi-bin")'调用函数查询目标查询目录下的所有子目录(所有子树),方法:search_folder(要查询的字符串,查询目标的虚拟绝对路径,查询目标的真实绝对路径)%><scriptlanguage="vbscript" RUNAT=SERVER>functionsearch_fo...
http://www.jb51.net//article/4679.htm
共有:4/10，当前1/1页
[首页] [上一页]
1
[下一页] [尾页]
转到：