asp模糊搜索怎么做啊 下面是我的完整代码,怎么把带有关键字的全部显示出来
<!--#includefile="const.asp"--><%Functionmaindimrs,sql,i,Page,count,PageCount,kw,ii,g...
<!--#include file="const.asp"-->
<%Function main
dim rs,sql,i,Page,count,PageCount,kw,ii,gopage
dim RndTXT
const PageSize=15
kw = xywap.RepSQL(trim(Request("kw")))
Page = Request("page")
If Page = "" Then Page = 1
If Not IsNumeric(Page) Then Page = 1
Page = CLng(Page)
If Page < 1 Then Page = 1
randomize
RndTXT=int((99999999)*rnd+1)
%><card title="搜索"><p><%
if kw<>"" then
set rs=server.createobject("adodb.recordset")
Sql = "select [id],[name],[ReadCount] from xywap_photo_list where [name] like '%"&kw&"%' "
rs.open sql,conn,1,1
if not (rs.bof and rs.eof) then
Rs.PageSize = PageSize
'gopage="Search.asp?kw="&server.URLEncode(kw)&"&"
gopage="Search.asp"
IF Not IsEmpty(Page) Then
IF Not IsNumeric(Page) Then
Page=1
Else
Page=Cint(Page)
End IF
IF Page > Rs.PageCount Then
Rs.AbsolutePage = Rs.PageCount
ElseIF Page <= 0 Then
Rs.AbsolutePage = 1
Else
Rs.AbsolutePage = Page
End IF
Else
Rs.AbsolutePage = 1
End IF
Page = Rs.AbsolutePage
For i=1 to Rs.PageSize
If Rs.Eof Then
exit For
End If
%><a href="photo_view.asp?id=<%=rs("id")%>"><%=xywap.utf8(rs("name"))%></a>[<%=rs(2)%>]<br/><%
Rs.MoveNext
Next
''''''''''''''''''''''''''''''分页''''''''''''''''''''''''''''''
if rs.PageCount>1 then
for ii=Page-2 to Page+2
if ii>0 and ii<rs.PageCount+1 then
if ii=Page then
response.write("<u>"&ii&"</u>.")
else
response.write("<a href='"&gopage&"page="&ii&"'>"&ii&"</a>.")
end if
end if
next
Response.Write("共"&rs.PageCount&"页")
If rs.PageCount > 3 Then
Response.Write("<input name='Page' value='"&page+1&"' format='*N' size='1' maxlength='5'/>")
Response.Write("<a href='"&gopage&"page=$(Page:n)'>跳页</a><br/>")
End if
''''''''''''''''''''''''''''''
else
%>
没有找到相关内容哦!<br/>
<%
end if
Rs.close
set rs=nothing
else
%>搜索内容不能为空。<br/><%
end if
Response.Write("<a href='index.asp'>首页</a>")
end Function
在网有很多 就是不会自己加上去!本人菜鸟!
比如内容是“共中华人民和国”
我搜中华共和国,中国等关键字就可以出来
还有就是如果搜索栏里有空格也能出的来
上面是我现在的程序
请问该怎么改才能实现???
或者比如我搜“中国”,带“中”字的和带“国”字的,和带“中国”的都会出来。。。 展开
<%Function main
dim rs,sql,i,Page,count,PageCount,kw,ii,gopage
dim RndTXT
const PageSize=15
kw = xywap.RepSQL(trim(Request("kw")))
Page = Request("page")
If Page = "" Then Page = 1
If Not IsNumeric(Page) Then Page = 1
Page = CLng(Page)
If Page < 1 Then Page = 1
randomize
RndTXT=int((99999999)*rnd+1)
%><card title="搜索"><p><%
if kw<>"" then
set rs=server.createobject("adodb.recordset")
Sql = "select [id],[name],[ReadCount] from xywap_photo_list where [name] like '%"&kw&"%' "
rs.open sql,conn,1,1
if not (rs.bof and rs.eof) then
Rs.PageSize = PageSize
'gopage="Search.asp?kw="&server.URLEncode(kw)&"&"
gopage="Search.asp"
IF Not IsEmpty(Page) Then
IF Not IsNumeric(Page) Then
Page=1
Else
Page=Cint(Page)
End IF
IF Page > Rs.PageCount Then
Rs.AbsolutePage = Rs.PageCount
ElseIF Page <= 0 Then
Rs.AbsolutePage = 1
Else
Rs.AbsolutePage = Page
End IF
Else
Rs.AbsolutePage = 1
End IF
Page = Rs.AbsolutePage
For i=1 to Rs.PageSize
If Rs.Eof Then
exit For
End If
%><a href="photo_view.asp?id=<%=rs("id")%>"><%=xywap.utf8(rs("name"))%></a>[<%=rs(2)%>]<br/><%
Rs.MoveNext
Next
''''''''''''''''''''''''''''''分页''''''''''''''''''''''''''''''
if rs.PageCount>1 then
for ii=Page-2 to Page+2
if ii>0 and ii<rs.PageCount+1 then
if ii=Page then
response.write("<u>"&ii&"</u>.")
else
response.write("<a href='"&gopage&"page="&ii&"'>"&ii&"</a>.")
end if
end if
next
Response.Write("共"&rs.PageCount&"页")
If rs.PageCount > 3 Then
Response.Write("<input name='Page' value='"&page+1&"' format='*N' size='1' maxlength='5'/>")
Response.Write("<a href='"&gopage&"page=$(Page:n)'>跳页</a><br/>")
End if
''''''''''''''''''''''''''''''
else
%>
没有找到相关内容哦!<br/>
<%
end if
Rs.close
set rs=nothing
else
%>搜索内容不能为空。<br/><%
end if
Response.Write("<a href='index.asp'>首页</a>")
end Function
在网有很多 就是不会自己加上去!本人菜鸟!
比如内容是“共中华人民和国”
我搜中华共和国,中国等关键字就可以出来
还有就是如果搜索栏里有空格也能出的来
上面是我现在的程序
请问该怎么改才能实现???
或者比如我搜“中国”,带“中”字的和带“国”字的,和带“中国”的都会出来。。。 展开
4个回答
展开全部
要分字搜索,真的很麻烦
追问
帮忙 搞下可以不!
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
很麻烦
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
你的问题不完整啊
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询