国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > ASP > 正文

ASP 相關文章或者相關產品

2024-05-04 11:08:54
字體:
來源:轉載
供稿:網友
以下僅提供相關思路和關鍵代碼,并且只提供一種最簡單的算法實現,稍復雜的本文不做介紹。
 
 
 
在后臺添加中一般我們都設置了一個“關鍵字”,而且一般輸入可能如下: 
娃娃,毛絨娃娃,日本充氣娃娃 
我們將根據這個來做,具體實現如下: 
先看一條SQL語句: 
復制代碼代碼如下:

select top 3 sid,sname from product where keywords like '%娃娃%' or keywords like '%毛絨娃娃%' or keywords like '%日本充氣娃娃%' 

那么我們根據這條語句就可以搜索到相關產品或者相關文章了(其實有更復雜以及更好的實現,但這里暫時不提及了),以下是關鍵代碼: 
復制代碼代碼如下:

<%@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 
%> 

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 万载县| 伊川县| 罗田县| 兴仁县| 丁青县| 牡丹江市| 嘉峪关市| 龙南县| 陆丰市| 八宿县| 全州县| 绿春县| 苍溪县| 宁城县| 和田县| 荣成市| 芮城县| 云梦县| 甘谷县| 平江县| 岳普湖县| 封丘县| 大埔区| 河津市| 定南县| 乳山市| 寿阳县| 泽库县| 茶陵县| 普定县| 兴业县| 根河市| 龙里县| 万安县| 安西县| 奉贤区| 库尔勒市| 张家川| 北辰区| 太保市| 施甸县|