目的:文章表中的文章关键字查询
查询格式:百度谷歌百度谷歌百度谷歌(也不能输入所有查询)



<
功能searshsql(tname,模型,STR)'tname表名称名称查询字符STR模型
如果修剪(STR),那么
MySQL =select * from tname
其他的
STR = SqlEncode(STR)预处理查询字符串
arrstr =分裂(STR,)的分割字符串空间
力捷= UBound(arrstr)将数组维数后,确定段数分为关键词
处理多个空间在如果力捷> 0的关键词,从第二维度
我= 1力捷
strtemp = arrstr(我)
如果修剪(strtemp)=然后strtemp = / / ~~~~~分为空的元素而不是使用特殊字符
SQL SQL 或像模型strtemp %
下一个
最后如果

MySQL =SELECT * FROM ,tname LName喜欢arrstr (0)SQL %。

做
J =仪器(1,MySQL,% / / ~~~~~ %
如果j=0,那么
退出
最后如果
MySQL =取代(MySQL 或模型是 / / ~~~~~ %
环
最后如果


searshsql = MySQL

端功能

函数的SqlEncode(STR)的格式化字符串
替换
修剪(STR)
替换
替换
替换(STR,,)
STR =取代(STR,_
替换(STR,%
替换
替换
sqlencode = str
端功能
%>
<
SQL = searshsql(文
集= server.createobject(ADODB。记录集)
的。打开SQL,Conn,1,1
if not rs.eof then

写下如下