asp自定函数错误

问题描述：

<%
Function LinkStr(str,pageurl)
dim str_1,str_2,str_3,str_4
str_1 = str '"文字1,文字2,文字3,文字4,文字5" '可读取数据库
str_2 = split(str_1,",")
for each str_3 in str_2
'Response.Write(str_3&"<br/>")
if len(str_4)=0 then
str_4=str
end if
str_4=replace(str_4,str_3,"<a href="&pageurl&Server.URLEncode(str_3)&" target=""_blank"">"&str_3&"</a>")
str_4=replace(str_4,","," ")
'Response.Write(str_4&"<br/>")
next
LinkStr=str_4
End Function

Response.Write(LinkStr("手机,苹果手机,国产手机,国外手机","search.asp?wd="))
%>

上面的LinkStr自定函数在执行时出现错误。
如执行（手机,电脑,汽车）正常OK
而执行（手机,苹果手机,国产手机,国外手机）错误

请高手解决！
Function LinkStr(str,pageurl)
dim str_1,str_2,str_3,str_4
str_1 = str '"文字1,文字2,文字3,文字4,文字5" '可读取数据库
str_2 = split(str_1,",")
i=0
for each str_3 in str_2
str_4=str_4&"<a href="&pageurl&Server.URLEncode(str_2(i))&" target=""_blank"">"&str_2(i)&"</a>"&","
str_4=replace(str_4,","," ")
i=i+1
next
LinkStr=str_4
End Function

自己搞定！！！

问题解答：

替换比较容易出问题，试试这种方法
<%
Function LinkStr(str,pageurl)
dim str_1,str_2,str_3,str_4
str_1 = str '"文字1,文字2,文字3,文字4,文字5" '可读取数据库
str_2 = split(str_1,",")
for each str_3 in str_2
'Response.Write(str_3&"<br/>")
'if len(str_4)=0 then
'str_4=str
'end if
str_4=str_4&" "&"<a href="&pageurl&Server.URLEncode(str_3)&" target=""_blank"">"&str_3&"</a>"
'str_4=replace(str_4,str_3,"<a href="&pageurl&Server.URLEncode(str_3)&" target=""_blank"">"&str_3&"</a>")
'str_4=replace(str_4,","," ")
'Response.Write(str_4&"<br/>")
next
LinkStr=str_4
End Function

Response.Write(LinkStr("手机,苹果手机,国产手机,国外手机","search.asp?wd="))
%>