ASP实现相关文章或者相关产品
以下仅提供相关思路和关键代码,并且只提供一种最简单的算法实现,稍复杂的本文不做介绍。
在后台添加中一般我们都设置了一个“关键字”,而且一般输入可能如下:
我们将根据这个来做,具体实现如下:
先看一条SQL语句:
那么我们根据这条语句就可以搜索到相关产品或者相关文章了(其实有更复杂以及更好的实现,但这里暂时不提及了),以下是关键代码:
今天看完《大生活》了,冒泡出来写下,也写给阿伟。
在后台添加中一般我们都设置了一个“关键字”,而且一般输入可能如下:
娃娃,毛绒娃娃,日本充气娃娃
我们将根据这个来做,具体实现如下:
先看一条SQL语句:
select top 3 sid,sname from product where keywords like '%娃娃%' or keywords like '%毛绒娃娃%' or keywords like '%日本充气娃娃%'
那么我们根据这条语句就可以搜索到相关产品或者相关文章了(其实有更复杂以及更好的实现,但这里暂时不提及了),以下是关键代码:
ASP/Visual Basic复制代码
- <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
- <% Response.Charset="UTF-8" %>
- <%
- 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
- %>
上一篇:10个优秀的CSS框架
下一篇:asp.net如何实现相关文章
全部评论:
申明:本站部分文章来自网络,由于各种原因对文章的来源无从考究,如果您是“
ASP实现相关文章或者相关产品
”的原作者,若侵犯您的版权,请与我联系!在此请您原谅我的幼稚和无知!联系方法:email:ahuinan@21cn.com QQ:106494262
感谢以下网友对网站提出的建议:
1、感谢“蓝树叶kiss”网友发现一个评论漏洞。(2009-2-28)
2、感谢“陈臣”对程序优化和seo方面的建议。(2009-3-18)
感谢以下网友对网站提出的建议:
1、感谢“蓝树叶kiss”网友发现一个评论漏洞。(2009-2-28)
2、感谢“陈臣”对程序优化和seo方面的建议。(2009-3-18)
文章档案
- 作者:阿会楠
- 来源:搜索吧
- 日期:2009-5-28 23:56:00
- 点击:810
网友投票(您觉得这篇文章怎样?)
请稍侯......
请稍侯......
文章阅读排行
随便看看
最新评论
- 不錯的東東,
打包demoupload.asp,js部分尾多了一個逗號
有空多交流:QQ 37787553 - 不錯的東東,
打包demoupload.asp,js部分尾多了一個逗號
有空多交流:QQ 37787553 - 站长 好!
- 网站不错<br>不知道URl是用什么生成的?
- update A
set A.OriginSalary=A.OriginSalary+B.AddSalary
from dbo.OriginSalary as A left join dbo.AddSalary as B on A.O_ID=B.O_ID - update A
set A.OriginSalary=A.OriginSalary+B.AddSalary
from dbo.OriginSalary as A left join dbo.AddSalary as B on A.O_ID=B.O_ID - 例子举得不好,为什么不直接用update解决呢?
update set A.OriginSalary=A.OriginSalary+B.AddSalary
from dbo.OriginSalary as A left join dbo.AddSalary as B on A.O_ID=B.O_ID - 例子举得不好,为什么不直接用update解决呢?
update set A.OriginSalary=A.OriginSalary+B.AddSalary
from dbo.OriginSalary as A left join dbo.AddSalary as B on A.O_ID=B.O_ID - 恭喜站长改进 支持
- 改版了? 牛叉
- 网站不错^-^ 多多向站长学习
- 212
- 啊 是