<% set conn=server.CreateObject("adodb.connection")Conn.Open "Provider=MSDataShape;" & _"Data Provider=SQLOLEDB;" & _"Data Source=localhost;" & _"Initial Catalog=db_dsms;" & _"User ID=sa;" & _"Password=SC;"set rs=server.CreateObject("adodb.recordset")strShape = "SHAPE {SELECT * FROM tb_users}" & _" APPEND ({SELECT * FROM tb_task}" & _" RELATE user_id to task_from) AS rsTitles"rs.open strshape,conn,1,1 set rs2=rs("rstitles").value do until rs.eof response.Write(rs("user_name")&"<br>") do until rs2.eof response.Write(rs2("task_name")&"<br>") rs2.movenext loop rs.movenext looprs.closers2.closeset rs=nothingset rs2=nothing %> 转载于:https://www.cnblogs.com/xzlang/archive/2005/05/30/164780.html