帮忙解决下，asp+access 数据库查询问题
数据库中有表：tb
id c_id name hangye
1 1 f 4
2 1 4 4
3 2 4 5
4 2 e h
5 3 l h

各字段中，相同的记录显示一次，不重复的全部显示

查询结果为：
c_id name hangye
1 f/4 4
2 4/e 5/h
3 1 h

[解决办法]

VBScript code

<%sConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\AA.mdb;"Set conn = CreateObject("ADODB.Connection")conn.Provider = "MSDataShape"conn.ConnectionString = "Data " & sConnconn.Opensql = "SHAPE{SELECT DISTINCT cid FROM tb} " & _      "APPEND({" &_      "SELECT cid, name, hangye FROM tb " &_      "} AS tbl " & _      "RELATE cid TO cid)"s = ""Set rs = CreateObject("ADODB.Recordset")rs.CursorLocation = 3rs.Open sql, conn, 1, 1Do While Not rs.EOF    s = s & rs("cid").Value    Set rs1 = rs("tbl").Value    n = "/"    h = "/"    Do While Not rs1.EOF        If InStr(n, "/" & rs1("name").Value &"/") = 0 Then            n = n & rs1("name").Value & "/"        End If        If InStr(h, "/" & rs1("hangye").Value &"/") = 0 Then            h = h & rs1("hangye").Value & "/"        End If        rs1.MoveNext    Loop    rs1.Close    Set rs1 = Nothing    If n<>"" Then        n = Left(n, Len(n)-1)        n = Right(n, Len(n)-1)    End If    If h<>"" Then        h = Left(h, Len(h)-1)        h = Right(h, Len(h)-1)    End If    s = s & " " & n & " " & h & "<br>" & vbCrLf     rs.MoveNextLooprs.CloseSet rs = Nothingconn.CloseSet conn = NothingResponse.Write s%>