截取字符串的问题

<%
function splitstr(str,length)
dim reg,i
i=0
do while not i>=len(str) \ length
reg=reg&mid(str,i*length+1,length)&","
i=i+1
loop
splitstr=mid(reg,1,len(reg)-1)
end function

response.write splitstr("145318276149",2)
%>
测试通过

用什么语言写？每一段两个字符，是非常简单的功能。

如果用C语言，程序如下
main()
{
int i,n;
char str[100];
scanf("%s",str);
n=strlen(str);
for (i=0;i<n/2;i++)
printf("%c%c,",str[2*i],str[2*i+1]);
if (n%2) printf("%c",str[n-1]);
}

ASP我不会呀，我用JAVASCRIPT来写，ASP可能类似，你看看吧：
<script language=javascript>
s='12345678';
s+=' ';
if (r=s.match(/../g))
for (i=0;i<r.length;i++)
document.writeln(r[i],',');
</script>