求一个正则表达式!急!!!

[dongdongmo]

Dim regEx,str1 ' 建立变量。
Function ReplaceTest(patrn, replStr)
str1 = "@jz_1_1_1_0_0_0_0@@df_1_1_1_0_0_0_0@@hz_1_1_1_0_0_0_0@"
Set regEx = New RegExp ' 建立正则表达式。
regEx.Pattern = patrn ' 设置模式。
regEx.IgnoreCase = True ' 设置是否区分大小写。
ReplaceTest = regEx.Replace(str1, replStr) ' 作替换。
End Function
Response.write ReplaceTest("@jz+(\.[\w-]+)*(@)+$", "cat")--不对

谁给我写个patrn 我想把@rs("classid") 比如rs("classid") 的数值是jz就把
@jz_1_1_1_0_0_0_0@这个给替换掉 该怎么写?

[baiyunfei]

说的不够详细啊。不知道这样可以不
Response.write ReplaceTest("@jz+[^@]+@", "cat")

[tigerwen01]

楼上的正解
<%
Dim regEx,str1 ' 建立变量。
Function ReplaceTest(patrn, replStr)
str1 = "@jz_1_1_1_0_0_0_0@@df_1_1_1_jz0_0_0_0@@hz_1_1_1_0_0_0_0@"
Set regEx = New RegExp ' 建立正则表达式。
regEx.Pattern = patrn ' 设置模式。
regEx.IgnoreCase = True ' 设置是否区分大小写。
ReplaceTest = regEx.Replace(str1, replStr) ' 作替换。
End Function
Response.write ReplaceTest("@jz+[^@]+@", "cat")
%>