急急！ 关于一段元搜索的ASP代码不懂！

问题描述

FunctionCommend(ByValWordList)DimRsDimWordItemDimIDImSQLDimTitleDimContentDimURLDimHomePageWordItem=Split(WordList,Chr(32))ForI=0ToUBound(WordItem)SQL=SQL&"KeywordLike'%"&WordItem(I)&",%'Or"NextSQL=Left(SQL,(Len(SQL)-3))SetRs=Conn.Execute("SelectTop10*FromCommendWhere("&SQL&")AndTimeout>='"&FormatDateTime(Date,2)&"'OrderByPriceDesc")IfRs.EOFOrRs.BOFThenElseSetTitle=Rs("Title")SetContent=Rs("Content")SetURL=Rs("URL")DoWhileNotRs.EOFCommend=Commend&"<spanstyle='font-size:15px'><ahref='http://"&URL&"'target='_blank'>"&Title&"</a></span><br>"Commend=Commend&"<spanstyle='line-height:150%;font-size:13px'>"&Content&"</span><br>"IfInStr(1,URL,"/",0)=0ThenHomePage=URLElseHomePage=Left(URL,InStr(1,URL,"/",0)-1)EndIfCommend=Commend&"<spanstyle='line-height:150%'><fontcolor='#008000'>"&HomePage&"</font></span><br><br>"Rs.MoveNextLoopEndIfRs.CloseSetRs=NothingEndFunction

解决方案

解决方案二：
那个不懂做个标记啊.难道一大段都翻译成中文.
解决方案三：
这是asp不是asp.net都是很基本的语句，建议你找一本asp的书看下。前面是构造sql，后面是拼接html。

时间： 2024-10-30 10:38:19

急急！ 关于一段元搜索的ASP代码不懂！的相关文章

一段打开光驱的ASP代码

这段代码是ASP利用了WINDOWS MEID PLAYER 7的组件来实现了弹出光驱的功能! <% Set oWMP = CreateObject("WMPlayer.OCX.7")Set colCDROMs = oWMP.cdromCollectionif colCDROMs.Count >= 1 thenFor i = 0 to colCDROMs.Count - 1 colCDROMs.Item(i).EjectNext End If %>

多关键词搜索实例asp代码

在用asp进行网页开发时,经常遇到多个关键词查询搜索功能,我一般是通过动态数组来实现的.当然多个关键词的一般是用空格或,隔开,我这几假设多个关键词用空格隔开,关键字字符串为keyStr,具体代码为. 以下是代码:str="select * from tableName where id>4" if srhKey<>"" then keyArr=split(srhKey," ") j=UBound(keyArr) t=0 dim 

求大神把这段代码完成的功能用asp代码写出来

问题描述 求大神把这段代码完成的功能用asp代码写出来 protected void Button1_Click(object sender, System.EventArgs e) { XmlDocument doc = new XmlDocument(); String Account = TextBox1.Text.ToString(); String Password = TextBox2.Text.ToString(); String url = "http://3tong.net/h

asp获取搜索蜘蛛程序代码

asp获取搜索蜘蛛程序代码 Function GetSearcher(ByVal strUrl)  On Error Resume Next  If Len(strUrl) < 5 Then   GetSearcher = "DirectInput"   Exit Function  End If  If strUrl = ''Or InStr(strUrl, ":") = 0 Then   GetSearcher = "DirectInput&qu

Access与Sql Server之ASP代码比较

access|server|sql|比较 后台数据库: [Microsoft Access] 与 [Microsoft Sql Server] 更换之后,ASP代码应注意要修改的一些地方: [一]连接问题(举例) [Microsoft Access] constr = "DBQ=c:\data\clwz.mdb; DRIVER={Microsoft Access Driver (*.mdb)}" [Microsoft Sql Server] constr = "DRIVER=

技巧：Access与Sql Server之ASP代码比较

access|server|sql|比较|技巧 后台数据库: [Microsoft Access] 与 [Microsoft Sql Server] 更换之后,ASP代码应注意要修改的一些地方: [一]连接问题(举例) [Microsoft Access] constr = "DBQ=c:\data\clwz.mdb; DRIVER={Microsoft Access Driver (*.mdb)}" [Microsoft Sql Server] constr = "DRIV

值得收藏的一些ASP代码

值得收藏的一些ASP代码值得收藏的一些ASP代码1. oncontextmenu="window.event.returnvalue=false" 将彻底屏蔽鼠标右键<table border oncontextmenu=return(false)><td>no</table> 可用于Table2. <body onselectstart="return false"> 取消选取.防止复制3. onpaste=&quo

使用模板实现ASP代码与页面分离

模板|页面 使用模板实现ASP代码与页面分离 每个进行过较大型的ASP-Web应用程序设计的开发人员大概都有如下的经历:ASP代码与页面HTML混淆难分,业务逻辑与显示方式绞合,使得代码难以理解.难以修改:程序编写必须在美工之后,成为项目瓶颈:整合的程序代码和HTML静态页面时,花费大量的时间才能得到理想的效果,兼作了美工.的确,用脚本语言开发Web应用不容易将数据的处理和数据的显示分开,但在多人合作的情况下,如果无法将数据和显示分开,将大大影响开发的效率,专业分工的发挥. 其它的脚本语言,如J

用VB生成DLL封装ASP代码一个例子：连接access数据库等

access|封装|数据|数据库 封装为dll会带来很多的好处,主要包括只是产权的保护,以及效率和安全性能的提升.这个例子中被封装的dll文件可以隐藏access数据库的实际路径. VB生成的DLL封装ASP代码来连接数据库(Access). 本文用一个最简单的连接access数据库的例子来说明如何将asp代码封装为dll文件. 我们用vb,最常见的方式来封装asp代码. 我们需要封装的对象如下: 'Proconn.aspdim ProConnset ProConn=Server.CreateO