<%
stuname=request("stuname")
Set Conn=Server.CreateObject("ADODB.Connection")
StrConn="Dbq=" & Server.Mappath("db\student.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"
Conn.Open StrConn
set rs=Server.CreateObject("ADODB.RecordSet")
sqlcmd="select * from student where stuname='" & stuname &"'"
rs.open conn,sqlcmd,1,3
if rs.recordcount=0 then
response.write "查无此人"
else
do while not rs.eof
for i=0 to rs.fields.count-1
response.write rs(i) & "<br>"
next
rs.movenext
loop
end if
rs.close
conn.close
set conn=nothing
%>