比如
<%
Do Until rs.EOf
Response.Write "<a href=02.asp?id="&rs("姓名")&">"&rs("姓名")&"</a>"
rs.MoveNext
Loop
%>
然后02.asp
就跟5楼的代码差不多
<%
id=request("id")
if id<>"" then
sql="select * from 学生表 where lieming='"&id&"'"
Dim rs
set rs=conn.execute(sql)
'这里写显示代码
End IF
%>
rs是ADODB.RecordSet
conn是ADODB.Connection