日期：2016-7-15（原创文章,禁止转载）
2008-10-23 15:59
来源：code-123
编辑：Googler【纠错】人评论
A-A+
怎样开淘宝店 站优化方法 创业如何取得投资
小米note顶配版评测
最新LOL活动
首先建一个access 数据库癫痫手术价格，库中有一个URLINDEX表，其中URL和Keywords字段分别添加了索引贵阳颠痫病专科医院，以下：
以下为援用的内容：URL 文本(索引:有(无重复)) Title文本 Description文本 Summary文本 Keywords文本(索引:有(无重复))
程序文件p，代码：
以下为援用的内容：HTMLHEADTITLE简单搜索引擎/TITLE/HEAD BODYBGCOLOR=#fffffords=Split(QueryString) strIndent=
如果搜索为空则返回 IfQueryString=Then direct(p) EndIf
meout=2 IfIsObject(Session(sitesearch_conn))Then Setconn=Session(sitesearch_conn) Else Setconn=eateObject(nnection) endriver={MicrosoftAccessDriver(*.mdb)};dbq=pPath(database/b) SetSession(sitesearch_conn)=conn EndIf 查询语句 sql=SELECT*FROM[URLIndex]WHERE搜索Description字段 sql=sql([Description]LIKE%QueryWords(0)%First Fori=LBound(QueryWords)+1toUBound(QueryWords) IfQueryWords(i)andUCase(QueryWords(i))ORandUCase(QueryWords(i))ANDThen IfuCase(QueryWords(i-1))=ORThen sql=sqlOR[Description]LIKE%QueryWords(i)% Else sql=sqlAND[Description]LIKE%QueryWords(i)% EndIf EndIf Next 搜索Keywords字段 sql=sql)OR([Keywords]LIKE%QueryWords(0)% Fori=LBound(QueryWords)+1toUBound(QueryWords) IfQueryWords(i)andUCase(QueryWords(i))ORandUCase(QueSummary字段 sql=sql)OR([Summary]LIKE%QueryWords(0)% Fori=LBound(QueryWords)+1toUBound(QueryWords) IfQueryWords(i)andUCase(QueryWords(i))ORandUCase(QueryWords(i))ANDThen IfuCase(QueryWords(i-1))=ORThen sql=sqlOR[Summary]LIKE%QueryWords(i)% Else sql=sqlAND[Summary]LIKE%QueryWords(i)% EndIf EndIf Next sql=sql) Setrs=eateObject(cordset) ensqlconn33
iteBRB你搜索的是:/BQueryString
iteBRB搜索的关键字:/B Fori=LBound(QueryWords)toUBound(QueryWords) iteBRstrIndenti:QueryWords(i) Next PrinttheSQLString iteBRBsql语句:/Bsql
PrinttheResults iteBRB结果:/BUL OnErrorResumeNext veFirst f iteBRAHREF=p儿童癫痫病的治疗?IndexURL=elds(URL).elds(Title)/A- elds(Description)BR iteFONTSIZE=2URL:elds(URL)/FONT iteHRSIZE=1WIDTH=200ALIGN=LEFT veNext Loop ite/UL
endif % /BODY /HTML
查看更多类似文章
