ASP网页编程之刚写的使用于某软件的全文检索程序

优点：简单易学、开发速度快、有很多年“历史”，能找到非常多别人做好的程序来用、配合activeX功能强大，很多php做不到的asp+activeX能做到，例如银行安全控件程序|全文检索|全文检索<p><!--#includefile=function/conn.asp-->

<br>

<%

keyWord=trim(request("oKey"))

sType=trim(request("oType"))

ifkeyWord=""orkeyWord="关头字…"then

Response.Write"请输出关头字！"

Response.End()

endif

ifsType=""then

Response.Write"请选择查询信息种别"

Response.End()

endif

dimftsTable要查询信息的贮存表名

dimftsFolder要查询信息的贮存文件夹　

ifsType="1"then

ftsTable="tb_bzxx"

ftsFolder=fjroot

elseifsType="2"then

ftsTable="tb_other"

ftsFolder=fjroot_other

elseifsType="3"then

ftsTable="tb_info"

ftsFolder=fjroot_info

else

Response.Write"堕落了！"

Response.End

endif

sql=""

ifsType="1"then

sql="selectbz_xuhaoasxuhao,bz_nameasbname,bz_codeasbcode,bz_htmashtmfrom"&ftsTable

elseifsType="2"then

sql="selectp_xuhaoasxuhao,p_nameasbname,p_codeasbcode,p_htmashtmfrom"&ftsTable

elseifsType="3"then

sql="selectinfo_idasxuhao,info_htm,info_typeashtmfrom"&ftsTable

else

Response.Write"堕落了！"

Response.End

endif

CallOPenConn()翻开数据库毗连

setfso=server.CreateObject("scripting.filesystemobject")

setrs=server.createobject("adodb.recordset")

dimoPattern

oPattern="<p>|<p(.*)>|</p>"

假如是查询第三种信息（其他信息），则先将一切的信息种别掏出来，放到数组中。

diminfoType()

ifsType="3"then

rs.Open"selecttype_id,type_namefromtb_info_typeorderbytype_iddesc",adocon,3,1

ifrs.RecordCount<=0then

CloseRsrs

CallCloseConn

Response.Write"堕落了！"

Response.End()

endif

rediminfoType(clng(rs(0)))

dowhilenotrs.EOF

infoType(clng(rs(0)))=rs(1)

rs.MoveNext

loop

rs.Close()

endif

%>

<h4ALIGN="CENTER"STYLE="COLOR:#000080">尺度信息体系全文检索了局

关头字：<spanstyle="color:#ff0000"><%=KEYWORD%>

</span><br>

</h4>

<hr>

<tablewidth="600">

<tr>

<tdstyle="font-size:12;color:000000;line-height:1.8"><%

举行检索

rs.Opensql,adocon,3,1

ifrs.RecordCount>0then

sCount=0

dowhilenotrs.EOF

findPos=0

htm=rs("htm")

ifhtm""then

vpath=ftsFolder&"/"&rs("xuhao")&"/"&htm

filePath=Server.MapPath(vpath)

iffso.FileExists(filepath)then

setoFile=fso.GetFile(filepath)

setoFilestream=oFile.openastextstream(1)

oFileInfo=""

ifnotoFilestream.atendofstreamthen

oFileInfo=FilterHTML(FilterBr(trim(oFilestream.readall)))

ifoFileInfo""then

findPos=instr(1,oFileInfo,keyWord,1)

查到了数据，必要显现

iffindPos>0then

Response.Write"<ahref="&vpath&"target=_blank>"

ifsType="1"orsType="2"then

Response.Write"<spanstyle=font-weight:bold;font-size:13;color:0000ff>"&rs("bname")&"("&rs("bcode")&")　　</span></a><br>"

else

Response.Write"<spanstyle=font-weight:bold;font-size:13;color:0000ff>"&infotype(clng(rs("info_Type")))&"　　</span></a><br>"

endif

iffindPos>50then

Response.Write"…"&replace(mid(oFileInfo,findPos-50,200),keyWord,"<spanstyle=color:ff0000>"&keyWord&"</span>",1,-1,1)&</p>ASP脚本是采用明文（plaintext）方式来编写的。

你可以通过继承已有的对象最大限度保护你以前的投资。并且C#和C++、Java一样提供了完善的调试/纠错体系。

尽管MS自己讲C#内核中更多的象VC，但实际上我还是认为它和Java更象一些吧。首先它是面向对象的编程语言，而不是一种脚本，所以它具有面向对象编程语言的一切特性，比如封装性、继承性、多态性等等，这就解决了刚才谈到的ASP的那些弱点。

我想问如何掌握学习节奏(先学什么再学什么)最好详细点?

虽然ASP也有很多网络教程。但是这些都不系统。都是半路出家，只是从一个例子告诉你怎么用。不会深入讨论，更不会将没有出现在例子里的方法都一一列举出来。

我们必须明确一个大方向，不要只是停留在因为学而去学,我们应有方向应有目标.

ASP的语言不仅仅只是命令格式差不多，而是包含在<%%>之内的命令完全就是VB语法。虽然ASP也是做为单独的一个技术来提出的，但他就是完全继承了VB所有的功能。

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

运用ASP可将VBscript、javascript等脚本语言嵌入到HTML中，便可快速完成网站的应用程序，无需编译，可在服务器端直接执行。容易编写，使用普通的文本编辑器编写，如记事本就可以完成。由脚本在服务器上而不是客户端运行，ASP所使用的脚本语言都在服务端上运行。

完全不知道到底自己学的是什么。最后，除了教程里面说的几个例子，还是什么都不会。

用户端的浏览器不需要提供任何别的支持，这样大提高了用户与服务器之间的交互的速度。