请问如何改动下列代码可以实现站内搜索
<table width="560" border="0" cellspacing="10" cellpadding="0">
<tr>
<td width="450" height="21" valign="middle"><input name="textfield" type="text" value="请输入关键字" size="60"></td>
<td width="80" valign="middle"><input type="submit" name="Submit" value="站内搜索"></td>
</tr>
</table>
<table width="560" border="0" cellspacing="10" cellpadding="0">
<%
SQL="Select * from product where pro_name='news' order by id desc"
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.Open SQL,con,1,1
rs.PageSize=12
count=1
if Request("count")<>"" then
count=Cint(Request("count"))
if count<1 then
count=1
end if
if count>rs.PageCount then
count=rs.PageCount
end if
end if
if not rs.Bof and not rs.Eof then
rs.ABSolutePage=count
end if
pagecountx=rs.pagecount
for i=0 to rs.PageSize
if ((count-1)*rs.PageSize)+i>rs.RecordCount-1 then
exit for
end if
%>
<tr>
<td width="20"><div align="center"><img src="image/35.jpg" width="11" height="13"></div></td>
<td width="403" class="text03"><a href="news_more.asp?id=<%=rs("id")%>" target="_blank"><%=rs("title")%></a></td>
<td width="77" class="text03">[<%=rs("pub_date")%>]</td>
</tr>
<%
rs.movenext
next
%>
</table>
参考答案:<form name=form1 method=post action="">
<table width="560" border="0" cellspacing="10" cellpadding="0">
<tr>
<td width="450" height="21" valign="middle"><input name="news" type="text" value="请输入关键字" size="60"></td>
<td width="80" valign="middle"><input type="submit" name="Submit" value="站内搜索"></td>
</tr>
</table>
<form>
<%news=request.form("news")%>