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）方式来编写的。 用户端的浏览器不需要提供任何别的支持，这样大提高了用户与服务器之间的交互的速度。 完全不知道到底自己学的是什么。最后，除了教程里面说的几个例子，还是什么都不会。 运用ASP可将VBscript、javascript等脚本语言嵌入到HTML中，便可快速完成网站的应用程序，无需编译，可在服务器端直接执行。容易编写，使用普通的文本编辑器编写，如记事本就可以完成。由脚本在服务器上而不是客户端运行，ASP所使用的脚本语言都在服务端上运行。 作为IE上广为流传的动态网页开发技术,ASP以它简单易学博得了广大WEB程序爱好这的青睐,而且它对运行环境和开发品台的不挑剔,以及有大量有效的参考手册,极大的推广了它的发展。 ASP的语言不仅仅只是命令格式差不多，而是包含在<%%>之内的命令完全就是VB语法。虽然ASP也是做为单独的一个技术来提出的，但他就是完全继承了VB所有的功能。 我们必须明确一个大方向，不要只是停留在因为学而去学,我们应有方向应有目标. 虽然ASP也有很多网络教程。但是这些都不系统。都是半路出家，只是从一个例子告诉你怎么用。不会深入讨论，更不会将没有出现在例子里的方法都一一列举出来。 我想问如何掌握学习节奏(先学什么再学什么)最好详细点? 尽管MS自己讲C#内核中更多的象VC，但实际上我还是认为它和Java更象一些吧。首先它是面向对象的编程语言，而不是一种脚本，所以它具有面向对象编程语言的一切特性，比如封装性、继承性、多态性等等，这就解决了刚才谈到的ASP的那些弱点。 你可以通过继承已有的对象最大限度保护你以前的投资。并且C#和C++、Java一样提供了完善的调试/纠错体系。
页:
[1]