解读用asp编写类似搜索引擎功能的代码(2)_ASP教程
教程Tag：暂无Tag,欢迎添加,赚取U币!
推荐：揭秘解决杀毒软件误删asp文件的方法一些杀毒软件经常会把某些asp文件当成病毒删除，有时简直防不胜防，程序莫名其妙的就不能用了，因为少了文件呀~~。这主要是因为，杀毒软件将某些asp代码当成木马关键词，记录保存着，所以遇到有这个关键词，就会禁止运行或删除。 解决的方法是将这些关键词给
| ’ 搜索Summary字段 sql = sql & " ) OR ( [Summary] LIKE ’%" & QueryWords( 0 ) & "%’" For i = LBound( QueryWords ) + 1 to UBound( QueryWords ) If QueryWords( i ) <> "" and UCase( QueryWords(i) ) <> "OR" and UCase( QueryWords(i) ) <> "AND" Then If uCase( QueryWords( i-1 ) ) = "OR" Then sql = sql & " OR [Summary] LIKE ’%" & QueryWords( i ) & "%’" Else sql = sql & " AND [Summary] LIKE ’%" & QueryWords( i ) & "%’" End If End If Next sql = sql & " )" ’ Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, conn, 3, 3 Response.Write "<BR><B> 你搜索的是: </B> " & QueryString Response.Write "<BR><B> 搜索的关键字: </B> " For i = LBound( QueryWords ) to UBound( QueryWords ) Response.Write "<BR>" & strIndent & i & ": " & QueryWords( i ) Next ’ Print the SQL String Response.Write "<BR><B> sql 语句 : </B> " & sql ’ Print the Results Response.Write "<BR><B> 结果 : </B> <UL>" On Error Resume Next rs.MoveFirst Do While Not rs.eof Response.Write "<BR>" & "<A HREF=’OpenPage.asp?IndexURL=" & rs.Fields("URL").Value & "’>" & rs.Fields("Title") & "</A> - " Response.Write rs.Fields("Description") & "<BR>" Response.Write " <FONT SIZE=2>URL: " & rs.Fields("URL") & "</FONT>" Response.Write "<HR SIZE=1 WIDTH=200 ALIGN=LEFT>" rs.MoveNext Loop Response.Write "</UL>" end if %> </BODY> </HTML> |
分享：揭秘17个ASP编程基础典型代码1.ASP取得表格输入数据的方法：GETPOST 一.get:用户端将数据加到URL后，格式为”？字段1=输入数据1字段2=输入数据2...,再将其送到服务器。如:action为www.abc.com,字段Name输入数据为jack,字段age的数据为15，则用get方法为http://www.abc.com?Name=jackAge=
相关ASP教程：
- 相关链接：
- 教程说明：
ASP教程-解读用asp编写类似搜索引擎功能的代码(2)
。