	function KeyWords(a)
			Dim i,TagsChar,strarr
			strarr=split(a,",")
			for i=0 to ubound(strarr)

			TagsChar=TagsChar&"<a   target=""_blank"" href="""&fycms.actsys&"plus/search/?"&server.URLEncode(strarr(i))&""">"&strarr(i)&"</a>  "
			Next 
			actcool=TagsChar
		End   function 