<form action="search.asp" method="post">

代码：<input name="code" type="text" size="12" ><p>

<input type=submit value="ok">
</form>

[color=FF0000][size=2]以上接受用户输入数据。[/size][/color]

[color=0000FF]search.asp：[/color]
<%
dim message
if (request("code"))<>"" then
message=request.form("code")
response.write(message)
else
response.write "数据为空"
end if
%>

<% 
Set conn=Server.CreateObject("ADODB.Connection") 
Conn.Open "provider=microsoft.jet.oledb.4.0;data source=" &server.mappath ("ybw.mdb") 
Set rs=Server.CreateObject("ADODB.Recordset") 

[color=000080]sqlstr="select * from gmb where 代码 = 'message'" [/color]'---->(gmb为数据库中的一个数据表，即你要显示的数据所存放的数据表) 
rs.open sqlstr,conn,1,1 '---->(表示打开数据库的方式) 
if rs.bof and rs.eof then
response.write "************无数据"
else
rs.movefirst '---->(将指针移到第一条记录) 
%>

[color=FF0000]其余忽略。用户输入的数据能传给message并显示出来，但无法利用message在数据库中查询，但手动改一个具体的值可以从数据库中查询到。[/color]