SQL数据库重复问题

下面代码中在取到三级分类时,如果出现重复的数据就只取其中一条,如果出现带有感叹号的如:"dd!ee!ff!kk!....."就截取出来再判断是否有重复的数据,如dd是否在其它条数据中出现过,如何实现呢?

<%
  dim ClassId1,classm,co,co1,classid2
  co=1
  co1=100
'一级分类
set rssql1=server.CreateObject("adodb.recordset")
sql4="select * from Ptype  where leveal= 2 order by typeid asc"
rssql1.open sql4,rssql,1,1
do while not rssql1.eof
ClassId1=rssql1("typeid")
%>
 <TR>
   <TD height="25" style="BORDER-TOP: #e6e6e6 1px solid; PADDING-BOTTOM: 3px; PADDING-TOP: 3px; BORDER-BOTTOM: #e6e6e6 1px solid">
   <A onclick="document.all.trP<%=co%>.style.display=document.all.trP<%=co%>.style.display=='none'?'':'none';ChangeImg(img<%=co%>);return false;" href="#"><IMG height=9 src="images/add.gif" width=9 border=0 name=img<%=co%>>&nbsp;<%=rssql1("FullName")%></A> </TD></TR>
  <TR id=trP<%=co%> style="DISPLAY: blink">
  <TD style="PADDING-LEFT: 9px; PADDING-BOTTOM: 3px; PADDING-TOP: 3px" vAlign=top>
   <TABLE cellSpacing=0 cellPadding=0 width="100%" id="table2">
  <TBODY>
<%
'二级分类
set rssql2=server.CreateObject("adodb.recordset")
sql5="select * from Ptype  where parid='"&ClassId1&"'order by typeid asc"
rssql2.open sql5,rssql,1,1
do while not rssql2.eof
classid2=rssql2("typeid")
%>
<TR>
  <TD height="25"
style="PADDING-LEFT: 7px; PADDING-BOTTOM: 3px; PADDING-TOP: 3px"><A
onclick="document.all.trX<%=co1%>.style.display=document.all.trX<%=co1%>.style.display=='none'?'':'none';ChangeImg(pimg<%=co1%>);return false;"
href="products_lister.asp?Id=<%=rssql2("typeid")%>"
target=_blank><IMG height=9 src="images/add.gif"
width=9 border=0 name=pimg<%=co1%>>&nbsp;<%=rssql2("FullName")%> </A>
  </TD>
</TR>

<TR id=trX<%=co1%> style="DISPLAY: none">
<%
       set rsp=server.CreateObject("adodb.recordset")
       sql="select distinct standard from ptype where (leveal>=4 and parid='" &classid2&"')"
       rsp.open sql,rssql,1,1
       %>
       <%
       set rsdp=server.CreateObject("adodb.recordset")
       sql="select * from ptype where leveal>=4 and parid='" &classid2&"'"
       rsdp.open sql,rssql,1,1
       %>
                        <TD>
        <%
         do while not rsp.eof
         classid3=rsdp("typeid")
        set rs1=server.CreateObject("adodb.recordset")
        sql="select * from ptype where parid='" &classid3&"'"
        rs1.open sql,rssql,1,1
        id=rsdp("typeid") 
        rs1.close
        set rs1=Nothing
        %>
        <%
        V= Split(rsp("standard"),"!")
        For i = 0 To UBound(V)
        %>
        &nbsp; &nbsp; &nbsp;<A
                        href="products_listers.asp?name=<%=V(i)%>&Id=<%=id%>"
                        target=_blank><%=V(i)%></A><BR>
                         
                         <%
        next
        %>
       
      <%
       rsp.movenext
       loop
       rsp.close
       set rep=Nothing
      %>
      </TD></TR>

<%
rssql2.movenext
co1=co1-1
loop
rssql2.close
Set rssql2=Nothing
'二级分类循环结束
%>
</TBODY>
</TABLE>
</TD>
</TR>
  <%
   rssql1.movenext
co=co+1
loop
rssql1.close
set rssql1=Nothing
'一级分类循环结束
  %>
   </TBODY></TABLE>