ASP教程之文本搜刮

只看该作者 · 发表于 2015-1-16 22:57:28

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有帐号？立即注册

x

因为ASP脚本语言非常简单，因此其代码也简单易懂，结合HTML代码，可快速地完成网站的应用程序。还无法完全实现一些企业级的功能：完全的集群、负载均横。<%
Head="搜刮"
SearchString=Request("SearchString")
count=0

把以后目次的实践路径转换为假造路径
FunctionUnMapPath(Path)
UnMapPath=Replace(Mid(Path,Len(Server.MapPath("/"))+1),"","/")
EndFunction

FunctionSearchFile(f,s,title)
Setfo=fs.OpenTextFile(f)
content=fo.ReadAll读全体文本到content
fo.Close
SearchFile=InStr(1,content,S,vbTextCompare)>0从第一个字符入手下手反省content内里是不是有S
IfSearchFileThen假如有,则提出文件TITLE存进变量
pos1=InStr(1,content,"<TITLE>",vbTextCompare)
pos2=InStr(1,content,"</TITLE>",vbTextCompare)
title=""
Ifpos1>0Andpos2>0Then取TITLE标志两头的字符
title=Mid(content,pos1+7,pos2-pos1-7)
EndIf
EndIf
EndFunction

FunctionFileLink(f,title)
vPath=UnMapPath(f.Path)取路径
Iftitle=""Thentitle=f.Name做链接
FileLink="<AHREF="""&vPath&""">"&title&"</A>"
FileLink="<UL>・"&FileLink&"</UL>"
EndFunction

SubSearchFolder(fd,s)
found=False
ForeachfInfd.Files
pos=InStrRev(f.Path,".")
Ifpos>0Then
ext=Mid(f.Path,pos+1)
Else
ext=""
EndIf
IfLCase(ext)="htm"Then显现扩大名字为HTM的文件
IfSearchFile(f,s,title)Then
Response.WriteFileLink(f,title)
count=count+1
Response.Writecstr(count)
EndIf
EndIf
Next

ForeachsfdInfd.SubFolders
SearchFoldersfd,s
Next
EndSub
%>
<html>

<head>
<metahttp-equiv="Content-Type"
content="text/html;charset=gb_2312-80">
<metaname="GENERATOR"content="MicrosoftFrontPageExpress2.0">
<title><%=Head%></title>
</head>

<bodybgcolor="#FFFFFF">

<h1><%=Head%></h1>

<hr>

<formaction="search.asp"method="Get">
<p>请输出欲搜刮的内容：<inputtype="text"
size="20"name="SearchString"value="<%=SearchString%>"><input
type="submit"value="搜刮"></p>
</form>
<%
Setfs=Server.CreateObject("Scripting.FileSystemObject")
Setfd=fs.GetFolder(Server.MapPath("/"))设置入手下手搜刮的路径！

IfSearchString""Then
Response.Write"<H2>搜刮<fontcolor=red>"&SearchString&"</font>了局以下：</H2><P>"
SearchFolderfd,SearchString
EndIf
%>
<hr>
</body>
</html>
</p>ASP由于使用了COM组件所以它会变的十分强大，但是这样的强大由于WindowsNT系统最初的设计问题而会引发大量的安全问题。只要在这样的组件或是操作中一不注意，哪么外部攻击就可以取得相当高的权限而导致网站瘫痪或者数据丢失；

只看该作者 · 发表于 2015-1-20 06:36:18

不能只是将它停留在纸上谈兵的程度上。

只看该作者 · 发表于 2015-1-24 12:06:58

作为IE上广为流传的动态网页开发技术,ASP以它简单易学博得了广大WEB程序爱好这的青睐,而且它对运行环境和开发品台的不挑剔,以及有大量有效的参考手册,极大的推广了它的发展。

只看该作者 · 发表于 2015-1-25 23:38:29

下面简单介绍一下我学习ASP的方法,希望对想学习ASP的朋友有所帮助...

只看该作者 · 发表于 2015-2-4 13:08:06

那么，ASP.Net有哪些改进呢？

只看该作者 · 发表于 2015-2-9 23:00:11

封装性使得代码逻辑清晰，易于管理，并且应用到ASP.Net上就可以使业务逻辑和Html页面分离，这样无论页面原型如何改变，业务逻辑代码都不必做任何改动；继承性和多态性使得代码的可重用性大大提高。

只看该作者 · 发表于 2015-2-28 03:47:26

Application:这个存储服务端的数据，如果不清除，会直到web应用程序结束才清除(例如重启站点)

仓酷云 · 发表于 2015-3-9 20:37:27

如何学好ASP,以前也有人问过,把回答给你转过来看看能否对你有帮助:

只看该作者 · 发表于 2015-3-17 01:08:04

下面简单介绍一下我学习ASP的方法,希望对想学习ASP的朋友有所帮助...

只看该作者 · 发表于 2015-3-17 01:08:03

如何更好的使自己的东西看上去很不错等等。其实这些都不是问题的实质，我们可以在实践中不断提升自己，不断充实自己。

只看该作者 · 发表于 2015-3-23 11:01:46

不能只是将它停留在纸上谈兵的程度上。

		自动登录	找回密码
密码			立即注册

[学习教程] ASP教程之文本搜刮

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子