正则问题（替换字符）

[伟大de虫子]

str ="1233||天权电子$$1235||港口和兴制品$$1236||新力量包装$$1260||普森堡机械$$"

有上面一样的字符串,现在我需要将全部||与$$之间的内容（包括||和$$）替换成“,”号
请问要怎么写这个正则表达式？？

[micher_yan]

Function ReplaceTest(patrn,replStr,SourceStr)
Dim regEx, str1
Set regEx = New RegExp
regEx.Pattern = patrn
regEx.IgnoreCase = True
ReplaceTest = regEx.Replace(SourceStr, replStr)
End Function
str=ReplaceTest("\|\|[^(\|*\$*)*]\$\$",",",str)

[micher_yan]

sorry,有点问题，以下调试通过
str="1233||天权电子$$1235||港口和兴制品$$1236||新力量包装$$1260||普森堡机械$$"
Function ReplaceTest(patrn,replStr,SourceStr)
Dim regEx, str1
Set regEx = New RegExp
regEx.Pattern = patrn
regEx.IgnoreCase = True
regEx.Global = True
ReplaceTest = regEx.Replace(SourceStr, replStr)
End Function
response.write str&"<br>"
str=ReplaceTest("\|\|([^\|])*\$\$",",",str)
response.write str