<%
Dim str,arrstr,ArticleKeyword
str="药物人流,微管人流,无痛人流"
Response.Write str&"<br><br>"
arrstr=Split(str,",")
For i=0 To UBound(arrstr)
 ArticleKeyword = ArticleKeyword + "<h2><a href=/Search.asp?ModuleName=Article&Field=Keywords&keyword="&arrstr(i)&" title="&arrstr(i)&">"&arrstr(i)& "</a></h2>"

Next
Response.Write ArticleKeyword

%> 