<%

db="zhk.mdb"

Set conn = Server.CreateObject("ADODB.Connection")

connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")

conn.Open connstr

set rsd=server.createobject("adodb.recordset")

str="select * from cjb00"

rsd.open str,conn

%>

<%

n=1

do while not rsd.eof

%>

<%

m=m+1

n=n+1

rsd.MoveNext

loop

%>

<% rsd.close

set rsd=nothing

conn.close

set cnn=nothing %>

姓名	学号
" type="hidden" value="<%=rsd("姓名")%>"> <%=rsd("姓名")%>	" type="hidden" value="<%=rsd("学号")%>"> <%=rsd("学号")%>