三国大时代4成自立:谁能帮帮我啊

如何才能在文本框中输入准考证号就显示数据库中的对应数据
谁能帮帮我
下面程序可以显示第21行数据，但是没有文本输入框
<%@LANGUAGE="VBSCRIPT"%>
<% startime=timer()
dim conn
dim connstr
dim db
db="Database\lzzhongkao.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Driver={Microsoft Access Driver (*.mdb)};Dbq=C:\Inetpub\wwwweb\Database\lzzhongkao.mdb; Source=" & Server.MapPath(""&db&"")
conn.Open(connstr)
%>
<%
sql="select baominghao,xuexiaodaihao,zhunkaozhenghao,xingming,yuwen,shuxue,yingyu,lihua,zhengshi,yiyu,jiafen,zongfen from students"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,1
if not rs.eof then
dim record_baominghao,record_xuexiaodaihao,record_zhunkaozhenghao,record_xingming,record_yuwen,record_shuxue,record_yingyu,record_lihua,record_zhengshi,record_yiyu,record_jiafen,record_zongfen
const n=21
if rs.recordcount>=n then
rs.move n
record_baominghao=rs("baominghao")
record_xuexiaodaihao=rs("xuexiaodaihao")
record_zhunkaozhenghao=rs("zhunkaozhenghao")
record_xingming=rs("xingming")
record_yuwen=rs("yuwen")
record_shuxue=rs("shuxue")
record_yingyu=rs("yingyu")
record_lihua=rs("lihua")
record_zhengshi=rs("zhengshi")
record_yiyu=rs("yiyu")
record_jiafen=rs("jiafen")
record_zongfen=rs("zongfen")
else
record_baominghao=""
record_xuexiaodaihao=""
record_zhunkaozhenghao=""
record_xingming=""
record_yuwen=""
record_shuxue=""
record_yingyu=""
record_lihua=""
record_zhengshi=""
record_yiyu=""
record_jiafen=""
record_zongfen=""
end if
end if
response.write record_baominghao&"<br>"
response.write record_xuexiaodaihao&"<br>"
response.write record_zhunkaozhenghao&"<br>"
response.write record_xingming&"<br>"
response.write record_yuwen&"<br>"
response.write record_shuxue&"<br>"
response.write record_yingyu&"<br>"
response.write record_lihua&"<br>"
response.write record_zhengshi&"<br>"
response.write record_yiyu&"<br>"
response.write record_jiafen&"<br>"
response.write record_zongfen
%>
我希望是在文本框中输入准考证号就显示数据库中的数据
谁能帮帮我啊 江湖救急啊
在线等待
需要完整代码
救救我呀 大虾们！！！！！！！！！
找不到啊 可以提供一下地址吗？