穿越重生之农妇的春天:ASP一个值的合并写法

<%
'作者:小男
'http://www.sman.cn
'时间:2006-1-3
'功能:组合以逗号分隔的字符(去重复)
'用法:您先把N个字符串用逗号分隔连接起来再代入
'例子:
'设:A="a1,a2,a3,a4",B="a2,a3,a6",要得到的结果C="a1,a2,a3,a4,a6"
'1.先把两个字符串连接起来(一定加逗号): Str=A&","&B
'2.代入过程运算: C=Resultant(Str)
Function Resultant(Fun_A)
Dim Fun_ArrayA,I
Fun_A=""&Fun_A
Fun_ArrayA=Split(Fun_A,",")
Resultant=""
For I=0 To Ubound(Fun_ArrayA)
If InStr(","&lCase(Resultant)&",",","&lCase(Fun_ArrayA(I)&","))=0 Then Resultant=Resultant&","&Fun_ArrayA(I)
Next
If len(Resultant) Then Resultant=Mid(Resultant,2)
End Function
'--------------------------
'以下是调用过程
'--------------------------
Dim A,B
A="a1,A2,a3,a4"
B="a2,a3,a6"
Dim Str
Str=A&","&B '第一步
Response.write Resultant(Str)

%>

一定要用ASP写吗？我对ASP不很熟呢，如果楼主想要，我可以为你提供C++的代码。

用一个合并函数吧，具体我不记得了，你可以查查系统函数

'----------
'参数:a,b
'----------
function sum(a,b)
tb = split(b,",")
for i = 0 to ubound(tb)
if(instr(a,tb(i))<>-1)
a = a&","&tb(i)
next
end function