简单的asp分词算法（正向最大匹配）
最近写站内搜索，所以研究了一下算法，该算法的原理如图显示。
以下是一个用asp写的简单的分词程序主要的代码，词库我已经用access建立好了。
如果要注重效率，MarLen的选取很是重要，否则效率会十分低下，这里MarLen我选取的是5。
dim faword : faword = ""
do while (len(fword) > 0)
tword = left(fword,5)
'response.write "tword--->" & tword & "<br />"
tlen = len(tword)
do while (tlen > 0)
fw = left(tword,tlen)
'response.write "fw--->" & fw & "<br />"
sql = "select fword from dict where fword='" & fw & "'"
set rsfff = connf.execute(sql)
if not rsfff.eof or tlen=1 then
faword = faword & fw & ","
'response.write fw & "<br />"
exit do
end if
tlen = tlen - 1
loop
'response.write "tlen--->" & tlen & "<br />"
fword = mid(fword,tlen+1)
'response.write "fword--->" & fword & "<br />"
loop
connf.close
dim querywords : querywords = split(faword,",")
querywords是保存关键词的数组。
分词就到这里了，对于如何利用分词的结果在数据库中查找结果也是值得研究的。
我这里用了清一色的“like”，“or” sql语句，效果不是很理想。
希望大家能够留言讨论。
相关文档：
txt文件是下面这样的，
一行一条数据，用逗号分隔
下面写出asp文件
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<!--#include file="inc/conn.asp" -->
<%
filespec=server.mappath("txt.txt")
Const ForRead ......
这几天好多人问我如何在asp程序中控制摄像头去抓拍照片，asp技术还是99年的时候看过一点点，早就着米饭吃了，不过既然有人问，那就是看得起咱，花了一个晚上的时间把asp程序调用摄像头拍照的问题搞定了，现记录如下，让有类似需求的同学可以少走些弯路。
用到的技术：
1.asp程序中作base64编码和解码，使用的是msxml组件� ......
Dim FilePath,FileName
Set ObjFileStream = Server.CreateObject("ADODB.Stream")
ObjFileStream.Type = 1
ObjFileStream.Mode = 3
ObjFileStream.open
ObjFileStream.LoadfromFile FilePath&"\"&FileName&".doc"
ObjFileStream.Position = 0
response.binarywrite ......
Adodb.Stream是ADO的Stream对象,提供存取二进制数据或者文本流,从而实现对流的读、写和管理等操作.
有下列方法：
Cancel 方法
使用方法如下
Object.Cancel
说明：取消执行挂起的异步 Execute 或 Open 方法的调用。
Close 方法
......
