[求助]站内搜索 - ASP - 新微赢技术网

一切还好

电梯直达

1^#

发表于 2010-1-16 02:10:11 | 只看该作者回帖奖励

|正序浏览 |阅读模式

这是第一页
<form id="form1" name="form1" method="post" action="2.asp">
<label>
<select name="name">
<option value="姓名" >姓名</option>
<option value="Email">Email</option>
</select>
<input type="text" name="keyword" size="15">
<input type="submit" value="搜索">

第二页

<%
name=Request.form("name")
keyword=request.form("keyword")
%>
搜索： <font color="green"><%=name%></font> 中的关键字： <span style="background-color:#FFFF00"><%=keyword%></span><br><br><br><br>
<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from yonghu where name like '%"&keyword&"%' ",conn,1,1
if "keyword"<>"name" then
response.Write("没有搜索到相关内容<br><br><a href='javascript:history.go(-1)'>返回重新搜索</a>")
else
response.Write("相关内容如下：<br><br>")
end if
while not rs.eof
%>
<%
rs.movenext
wend
rs.close
set rs=nothing
%>
这什么收不到内容呢

收藏0

使用道具举报

carsoom

5^#

发表于 2010-2-8 04:05:04 | 只看该作者

加油啊！！！！顶哦!!!!!支持楼主，支持你~

回复支持反对

使用道具举报

鰰﹎話

4^#

发表于 2010-1-16 02:10:22 | 只看该作者

解决了

回复支持反对

使用道具举报

边走边看

3^#

发表于 2010-1-16 02:10:18 | 只看该作者

<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from yonghu where name like '%"&keyword&"%' ",conn,1,1
if rs.eof then
response.Write("没有搜索到相关内容<br><br><a href='javascript:history.go(-1)'>返回重新搜索</a>")
else
response.Write("相关内容如下：<br><br>")
end if
while not rs.eof
%>
<%=rs("name")%> 
<%
rs.movenext
wend
rs.close
set rs=nothing
%>

回复支持反对

使用道具举报

我和老公在

2^#

发表于 2010-1-16 02:10:14 | 只看该作者

以下是引用tulipdwh在2006-12-5 9:26:51的发言：

这是第一页
<form id="form1" name="form1" method="post" action="2.asp">
<label>
<select name="name">
<option value="姓名" >姓名</option>
<option value="Email">Email</option>
</select>
<input type="text" name="keyword" size="15">
<input type="submit" value="搜索">

第二页

<%
name=Request.form("name")
keyword=request.form("keyword")
%>
搜索： <font color="green"><%=name%></font> 中的关键字： <span style="background-color:#FFFF00"><%=keyword%></span><br><br><br><br>
<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from yonghu where name like '%"&keyword&"%' ",conn,1,1
if "keyword"<>"name" then
response.Write("没有搜索到相关内容<br><br><a href='javascript:history.go(-1)'>返回重新搜索</a>")
else
response.Write("相关内容如下：<br><br>")
end if
while not rs.eof
%>
<%
rs.movenext
wend
rs.close
set rs=nothing
%>
这什么收不到内容呢
自己认真看下我所标示的红色部分,以及认真想下为什么?

回复支持反对

使用道具举报

		自动登录	找回密码
密码			注册