<%
function hk(str,n)
  if str="" then
     str=n
     strSplit = ","
     For i = 1 To Len(str)
     strRet = strRet & Mid(str, i, 2) & strSplit
     Next
     str= Left(strRet, Len(strRet)-1)
  else
     str=str
  end if
     hk=str
end function
应用例子：当获得key为空时候。自动分割title的前6个字
rs("key")=hk(rf("key"),left(rf("title"),6))
%>