哪为高手教教小弟有关网页里的搜索制作

我正在学做网页,哪为高手教教小弟怎么做搜索?我在主页里做好了搜索栏,可是不知道在下面怎么做来实现搜索功能,先谢谢了
谢谢这位大哥的帮助,可是我怎么看不懂啊.一堆代码,能不能简单点,我的水平很低,太难的看不懂,谢谢了

以下测试通过，你自己修改库名和表名、字段名就行了

<%Dim rs,conn
cadmin=request.form("admin")
cyear = request.form("year")
cmonth = request.form("month")

conn = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/test/yoursdb.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = conn
sql = "SELECT * FROM mydb WHERE year='" + cyear + "' AND month='" + cmonth + "' and admin='" + cadmin + "'"
rs.open sql,conn,3,3
rscount=rs.RecordCount
response.write "共有" & rscount & "条记录" & "<br>"

for i=0 to rscount
if i<rscount then
i=+i
response.write rs.Fields("title") & "<br>"
rs.MoveNext()
end if
next

rs.Close()
Set rs = Nothing
%>

你说要用dw来写，那么代码就有点长哦，

<!--#include file="../Connections/conn.asp" -->
<%
Dim rs__MMColParam
rs__MMColParam = "1"
If (Request.Form("year") <> "") Then
rs__MMColParam = Request.Form("year")
End If
%>
<%
Dim rs__MMColParam1
rs__MMColParam1 = "1"
If (Request.Form("month") <> "") Then
rs__MMColParam1 = Request.Form("month")
End If
%>
<%
Dim rs__MMColParam2
rs__MMColParam2 = "2"
If (Request.Form("admin") <> "") Then
rs__MMColParam2 = Request.Form("admin")
End If
%>
<%
Dim rs
Dim rs_numRows

Set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = MM_conn_STRING
rs.Source = "SELECT * FROM mydb WHERE year = '" + Replace(rs__MMColParam, "'", "''") + "' and month='" + Replace(rs__MMColParam1, "'", "''") + "' and month='" + Replace(rs__MMColParam2, "'", "''") + "'"
rs.CursorType = 0
rs.CursorLocation = 2
rs.LockType = 1
rs.Open()

rs_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = -1
Repeat1__index = 0
rs_numRows = rs_numRows + Repeat1__numRows
%>

<%
' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables

Dim rs_total
Dim rs_first
Dim rs_last

' set the record count
rs_total = rs.RecordCount

' set the number of rows displayed on this page
If (rs_numRows < 0) Then
rs_numRows = rs_total
Elseif (rs_numRows = 0) Then
rs_numRows = 1
End If

' set the first and last displayed record
rs_first = 1
rs_last = rs_first + rs_numRows - 1

' if we have the correct record count, check the other stats
If (rs_total <> -1) Then
If (rs_first > rs_total) Then
rs_first = rs_total
End If
If (rs_last > rs_total) Then
rs_last = rs_total
End If
If (rs_numRows > rs_total) Then
rs_numRows = rs_total
End If
End If
%>
<%
' *** Recordset Stats: if we don't know the record count, manually count them

If (rs_total = -1) Then

' count the total records by iterating through the recordset
rs_total=0
While (Not rs.EOF)
rs_total = rs_total + 1
rs.MoveNext
Wend

' reset the cursor to the beginning
If (rs.CursorType > 0) Then
rs.MoveFirst
Else
rs.Requery
End If

' set the number of rows displayed on this page
If (rs_numRows < 0 Or rs_numRows > rs_total) Then
rs_numRows = rs_total
End If

' set the first and last displayed record
rs_first = 1
rs_last = rs_first + rs_numRows - 1

If (rs_first > rs_total) Then
rs_first = rs_total
End If
If (rs_last > rs_total) Then
rs_last = rs_total
End If

End If
%>

查找到的记录总数为：<%=(rs_total)%><br> 分别是:<br>
<%
While ((Repeat1__numRows <> 0) AND (NOT rs.EOF))
%>
<%=(rs.Fields.Item("title").Value)%><br>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
rs.MoveNext()
Wend
%>
<br>

<%
rs.Close()
Set rs = Nothing
%>

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/f2s48mf7.html