ASP实现相关文章或者相关产品

以下仅提供相关思路和关键代码,并且只提供一种最简单的算法实现,稍复杂的本文不做介绍。

在后台添加中一般我们都设置了一个“关键字”,而且一般输入可能如下:
娃娃,毛绒娃娃,日本充气娃娃

我们将根据这个来做,具体实现如下:
先看一条SQL语句:
select top 3 sid,sname from product where keywords like '%娃娃%' or keywords like '%毛绒娃娃%' or keywords like '%日本充气娃娃%'

       那么我们根据这条语句就可以搜索到相关产品或者相关文章了(其实有更复杂以及更好的实现,但这里暂时不提及了),以下是关键代码:
ASP/Visual Basic复制代码
  1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>   
  2. <% Response.Charset="UTF-8" %>    
  3. <%   
  4. Dim A:A = "娃娃,毛绒娃娃,日本充气娃娃"  
  5.   
  6. 'obj为值,filed为字段名   
  7. Function sqlKeyWord(obj,field)   
  8.     Dim temp:temp  = split(obj,",")   
  9.     For i = 0 To ubound(temp)   
  10.         sqlKeyWord = sqlKeyWord & field&" like '%"&temp(i)&"%' or "  
  11.     Next  
  12.     sqlKeyWord = left(sqlKeyWord,len(sqlKeyWord)-3)   
  13. End Function    
  14.   
  15. Dim mysql:mysql = "select top 3 sid,sname from product where " + sqlKeyWord(A,"keywords")   
  16. Response.Write(mysql)   
  17. 'Set objRs = objConn.execute(mysql)   
  18. 'Do while not objRs.Eof   
  19.     'Response.Write(objRs("sname"))   
  20. 'Loop   
  21.   
  22. 'objRs.close   
  23. 'set objRs = nothing   
  24. 'objConn.close   
  25. 'set objConn = nothing   
  26. %>  
今天看完《大生活》了,冒泡出来写下,也写给阿伟。


上一篇:10个优秀的CSS框架

下一篇:asp.net如何实现相关文章

留下脚印压缩包密码:sosuo8
名字:
全部评论:
申明:本站部分文章来自网络,由于各种原因对文章的来源无从考究,如果您是“ ASP实现相关文章或者相关产品 ”的原作者,若侵犯您的版权,请与我联系!在此请您原谅我的幼稚和无知!联系方法:email:ahuinan@21cn.com  QQ:106494262

感谢以下网友对网站提出的建议:
1、感谢“蓝树叶kiss”网友发现一个评论漏洞。(2009-2-28)
2、感谢“陈臣”对程序优化和seo方面的建议。(2009-3-18)
文章档案
  • 作者:阿会楠
  • 来源:搜索吧
  • 日期:2009-5-28 23:56:00
  • 点击:810
网友投票(您觉得这篇文章怎样?)
loadding...请稍侯......