<%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
<%Head="搜索"SearchString=Request("SearchString")count=0'把当前目录的实际路径转换为虚拟路径FunctionUnMapPath(Path)UnMapPath=Replace(Mid(Path,Len(Server.MapPath("/"))+1),"\","/")EndFunctionFunctionSearchFile(f,s,title)Setfo=fs.OpenTextFile(f)content=fo.ReadAll'读全部文本到...
http://www.jb51.net//article/3744.htm
<HTML><HEAD><TITLE>同文件夹内文本搜索器(vbs)</TITLE><METAhttp-equiv=Content-Typecontent="text/html;charset=gb2312"><SCRIPTlanguage=vbscriptid=clientEventHandlersVBS><!--Dimfso,f,f1,fc,fn,s,uf1,ufnSubB1_onclickfn=T1.value''pn=mid(location.pathname,2,len(location...
http://www.jb51.net//article/3699.htm
共有:3/10，当前1/1页
[首页] [上一页]
1
[下一页] [尾页]
转到：