麻豆小视频在线观看_中文黄色一级片_久久久成人精品_成片免费观看视频大全_午夜精品久久久久久久99热浪潮_成人一区二区三区四区

首頁 > 編程 > 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 
%> 

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 美女黄视频在线观看 | 色综合网在线观看 | 国产亚洲精品久久久久5区 日韩一级片一区二区三区 国产精品久久久久av | 康妮卡特欧美精品一区 | 精品在线一区二区三区 | 欧美a视频在线观看 | 国产视频在线观看免费 | 色视频欧美 | 久久国产亚洲视频 | 毛片av网址 | 亚洲国产视频在线 | 欧美一级淫片免费视频1 | 精品一区二区三区在线观看视频 | 九九热免费视频在线观看 | 久久久久久久久久亚洲 | cosplay裸体福利写真 | 精品一区二区电影 | 大学生一级毛片在线视频 | 成人毛片在线免费看 | 久久国产精品99久久人人澡 | 亚洲一区 国产精品 | 污污黄| 免费在线观看午夜视频 | 操碰在线视频 | 国产精品久久久久久久久久久久午夜 | 免费看性xxx高清视频自由 | 中文字幕www. | 99r国产精品 | 久久精品中文字幕一区二区 | 精品国产一二区 | 国产精品一区二区三区在线 | 免费观看一区二区三区 | 免费网站看v片在线a | 成人免费毛片在线观看 | 久久华人 | 国产99一区二区 | 在线成人免费网站 | 国产精品视频六区 | 欧美日韩一区二区综合 | 国产色爱综合网 | 日本成年网 |