国产探花免费观看_亚洲丰满少妇自慰呻吟_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 
%> 

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 蒙自县| 桦南县| 博野县| 张家界市| 衡阳市| 两当县| 甘洛县| 玛纳斯县| 乌兰察布市| 新巴尔虎右旗| 文安县| 平顶山市| 修文县| 织金县| 怀远县| 乾安县| 四子王旗| 平罗县| 灌阳县| 博湖县| 潞西市| 双辽市| 凤山县| 若尔盖县| 酒泉市| 尚义县| 商洛市| 灵台县| 天峻县| 六枝特区| 宜宾县| 台北市| 清丰县| 鱼台县| 北川| 达孜县| 民县| 维西| 绥棱县| 凉城县| 福建省|