sql1="Select Depart_id,SupplierID from Workers where Chinese_name='"& Session("User_name") &"'" set rs1=conn.execute(sql1) Depart_id = Trim(rs1("Depart_id")) If Depart_id <> "" Then A_ID = split(Depart_id,",")'拆分 for B_ID = LBound(A_ID) to UBound(A_ID) If Trim(A_ID(B_ID)) <> "" Then Set Rs2 = Server.CreateObject("adodb.recordset") Rs2.Open"Select Work_id from Workers where Depart_id like '%"& Trim(A_ID(B_ID)) &"%' and SupplierID="& rs1("SupplierID") &" and Chinese_name <>'"& Session("User_name") &"'",conn,1,1 While not Rs2.Eof Work_id=Work_id&" "&Rs2("Work_id")&"," Rs2.MoveNext Wend 'response.Write(Depart_id) 'Rs1.Close 'Set Rs1 = Nothing End If Next End If 添进数据库怎样去掉重复的值！！！
Rs2.Open"Select Work_id from Workers where Depart_id like '%"& Trim(A_ID(B_ID)) &"%' and SupplierID="& rs1("SupplierID") &" and Chinese_name <>'"& Session("User_name") &"' group by Work_id",conn,1,1
Function FormateOrderBy(OrderByText) Dim tmp,tmp2,i,j tmp3="" tmp = Split(OrderByText,",") For i=0 To Ubound(tmp)-1 For j=i+1 To Ubound(tmp) If UCase(Trim(tmp(i)))=UCase(Trim(tmp(j))) Then tmp(j)="" End If Next Next tmp2="" For i=0 To Ubound(tmp) If tmp(i) <>"" Then tmp2 = tmp2 & tmp(i) & "," Next FormateOrderBy = Left(tmp2,Len(tmp2)-1) End function
