Question

asp正则表达式函数

function ubbbq(s_string)

end function

请写一个正则表达式函数，此函数实现：
替换"/尴尬"为"[img]http://www.abc.net/img/001.gif[/img]"
要替换
<img src="http://www.abc.net/img/001.gif">
<img src="http://www.abc.net/img/002.gif">
<img src="http://www.abc.net/img/003.gif">
呢？

Answer 1

function ubbbq(s_string)
dim arr, i
arr = split("微笑,尴尬,开心", ",")
for i = 0 to ubound(arr)
ubbbq = replace(s_string, "/" & arr(i), "[img]http://www.abc.net/img/00" & i & ".gif[/img]")
next
end function