ASP 相關(guān)文章或者相關(guān)產(chǎn)品
更新時(shí)間：2009年05月29日 20:28:15 作者：
以下僅提供相關(guān)思路和關(guān)鍵代碼，并且只提供一種最簡(jiǎn)單的算法實(shí)現(xiàn)，稍復(fù)雜的本文不做介紹。
在后臺(tái)添加中一般我們都設(shè)置了一個(gè)“關(guān)鍵字”，而且一般輸入可能如下：
娃娃，毛絨娃娃，日本充氣娃娃
我們將根據(jù)這個(gè)來(lái)做，具體實(shí)現(xiàn)如下：
先看一條SQL語(yǔ)句：
select top 3 sid,sname from product where keywords like '%娃娃%' or keywords like '%毛絨娃娃%' or keywords like '%日本充氣娃娃%'
那么我們根據(jù)這條語(yǔ)句就可以搜索到相關(guān)產(chǎn)品或者相關(guān)文章了（其實(shí)有更復(fù)雜以及更好的實(shí)現(xiàn)，但這里暫時(shí)不提及了），以下是關(guān)鍵代碼：
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<% Response.Charset="gb2312" %>
<%
Dim A:A = "娃娃,毛絨娃娃,日本充氣娃娃"
'obj為值，filed為字段名
Function sqlKeyWord(obj,field)
Dim temp:temp = split(obj,",")
For i = 0 To ubound(temp)
sqlKeyWord = sqlKeyWord & field&" like '%"&temp(i)&"%' or "
Next
sqlKeyWord = left(sqlKeyWord,len(sqlKeyWord)-3)
End Function
Dim mysql:mysql = "select top 3 sid,sname from product where " + sqlKeyWord(A,"keywords")
Response.Write(mysql)
'Set objRs = objConn.execute(mysql)
'Do while not objRs.Eof
'Response.Write(objRs("sname"))
'Loop
'objRs.close
'set objRs = nothing
'objConn.close
'set objConn = nothing
%>
娃娃，毛絨娃娃，日本充氣娃娃
我們將根據(jù)這個(gè)來(lái)做，具體實(shí)現(xiàn)如下：
先看一條SQL語(yǔ)句：
復(fù)制代碼 代碼如下:
select top 3 sid,sname from product where keywords like '%娃娃%' or keywords like '%毛絨娃娃%' or keywords like '%日本充氣娃娃%'
那么我們根據(jù)這條語(yǔ)句就可以搜索到相關(guān)產(chǎn)品或者相關(guān)文章了（其實(shí)有更復(fù)雜以及更好的實(shí)現(xiàn)，但這里暫時(shí)不提及了），以下是關(guān)鍵代碼：
復(fù)制代碼 代碼如下:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<% Response.Charset="gb2312" %>
<%
Dim A:A = "娃娃,毛絨娃娃,日本充氣娃娃"
'obj為值，filed為字段名
Function sqlKeyWord(obj,field)
Dim temp:temp = split(obj,",")
For i = 0 To ubound(temp)
sqlKeyWord = sqlKeyWord & field&" like '%"&temp(i)&"%' or "
Next
sqlKeyWord = left(sqlKeyWord,len(sqlKeyWord)-3)
End Function
Dim mysql:mysql = "select top 3 sid,sname from product where " + sqlKeyWord(A,"keywords")
Response.Write(mysql)
'Set objRs = objConn.execute(mysql)
'Do while not objRs.Eof
'Response.Write(objRs("sname"))
'Loop
'objRs.close
'set objRs = nothing
'objConn.close
'set objConn = nothing
%>
相關(guān)文章
響應(yīng)對(duì)象 錯(cuò)誤 ''ASP 0185 : 80020003'' 缺少默認(rèn)屬性
發(fā)現(xiàn)個(gè)垃圾后臺(tái)用了大量的Response.Cookies,導(dǎo)致后臺(tái)認(rèn)證出錯(cuò)。2007-12-12
ASP開(kāi)發(fā)中數(shù)據(jù)庫(kù)文件調(diào)用的捷徑
本文針對(duì)ASP程序設(shè)計(jì)中最基礎(chǔ)、也是最關(guān)鍵的部分"數(shù)據(jù)庫(kù)文件的調(diào)用"進(jìn)行說(shuō)明，同時(shí)談?wù)凙SP程序設(shè)計(jì)中數(shù)據(jù)庫(kù)文件調(diào)用的一些技巧2006-09-09
PJ-Blog教程┊增強(qiáng)博客用戶體驗(yàn)～讓發(fā)表內(nèi)容的同時(shí)拷貝到剪貼板以防丟失
PJ-Blog教程┊增強(qiáng)博客用戶體驗(yàn)～讓發(fā)表內(nèi)容的同時(shí)拷貝到剪貼板以防丟失...2007-01-01
asp排序沒(méi)有系統(tǒng)函數(shù)直接支持，而我們經(jīng)常需要使用的數(shù)字排序和字符排序、按拼音排序都離不開(kāi)排序。2011-01-01
Microsoft JET Database Engine(0x80004005)未指定錯(cuò)誤的解決方法
今天在配置iis asp運(yùn)行環(huán)境的時(shí)候提示Microsoft JET Database Engine(0x80004005)未指定錯(cuò)誤，不過(guò)最后通過(guò)如下方法解決了，這里腳本之家小編特為大家分享下，方便需要的朋友2014-06-06
ASP 關(guān)于動(dòng)態(tài)數(shù)據(jù)顯示頁(yè)面得錨點(diǎn)
ASP 關(guān)于動(dòng)態(tài)數(shù)據(jù)顯示頁(yè)面得錨點(diǎn)...2007-09-09
這篇文章主要介紹了ASP的chr(0)文件上傳漏洞原理和解決方法介紹,chr(0)漏洞在上傳文件時(shí)可以繞過(guò)擴(kuò)展名驗(yàn)證,是一個(gè)危害非常大的漏洞,需要的朋友可以參考下2014-06-06
其實(shí)SQL注入漏洞并不可怕，知道原理 ＋ 耐心仔細(xì)，就可以徹底防范2011-11-11
訪問(wèn)一個(gè)ASP集合來(lái)提取一個(gè)值是費(fèi)時(shí)的、占用計(jì)算資源的過(guò)程。因?yàn)檫@個(gè)操作包含了一系列對(duì)相關(guān)集合的搜索，這比訪問(wèn)一個(gè)局部變量要慢得多。2007-10-10
這篇文章主要與大家分享了input中空格截段問(wèn)題的解決方法，這是在項(xiàng)目中遇到的一個(gè)問(wèn)題，將方法記錄下2014-10-10