决斗之城武藤游戏攻略:ASP搜索引擎的问题

来源:百度文库 编辑:中科新闻网 时间:2024/05/07 20:43:30
偶做了个搜索引擎,可以搜索关键字.现在我要附加个搜索年度功能,只需要搜索者在搜索栏你选按年度搜索,然后在下面输入要搜索的年度,数据就自己出来了.偶写了段代码,但怎么测试都不成功.下面这段代码我把他加到了有搜索程序的页面,在后台的调用页面或者是显示页面还需要写什么代码吗?希望各位高手给详细指点指点!小弟在线等....

<form method="post" action="/kejibu/xushi/so.asp?all=all" onsubmit="<% =rs("time") %>">
<p align="left"> <select size="1" name="time">
<option>关键字搜索</option>
<option value="<form method="post" action="/kejibu/xushi/so.asp">">
分类查找
</option>
<%
sql = "select * from lm where time<>'' order by id asc"
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,1,1
while not rs.eof
'response.write "<optgroup label=(ID:"&rs("id")&")"&rs("time")&">"
%>
<option value='/kejibu/xushi/so.asp?time=<%=rs("id")%>' <% if int(timeid)=rs("id") then response.write " selected" %>>(ID:<%=rs("id")%>)<%=rs("time")%></option>
<%
sql2 = "select * from time where timeid='"&rs("id")&"' order by id asc"
Set rs2 = Server.CreateObject("ADODB.RecordSet")
rs2.Open sql2,conn,1,1
while not rs2.eof
%>

</select>

</select><input type="text" name="word" size="15"><input type="submit" value="搜索" name="B1"></p>

加我吧!我的qq是 25234805 我交你

从你贴出来的代码没见到有什么搜索的含意???
/kejibu/xushi/so.asp
是实现搜索的功能吗?而贴出来的是输入或选择搜索条件是吧?
那你要明白 so.asp 要的是什么参数传入就可以了!
而你这块代码好象是在写一个 select
可以换成这样
sub writeOption(sql,val,txt)
dim rs
set rs = server.createObject("adodb.recordset")
rs.open sql,conn,1,1
while not rs.eof
response.write "<option value='" & rs(val) & "'>" & rs(txt) & "</option>" & VBCLRF
rs.movenext
wend
rs.close
set rs = nothing
end sub
<form name=do_search method=get action=/kejibu/xushi/so.asp>
<select><%writeOption "select from newsType","id","TypeName"%></select>
"><input type="submit" value="搜索" name="B1">
</form>
以新闻类型来说!

只要那个 so.asp可以用就没有问题的