28,391
社区成员
发帖
与我相关
我的任务
分享求一含数
我想每三个字符加一<br>让其输出，怎么写呢
例如
<% a="qwertyuiop" 'a 的长度不定
response.write(a)
%>
变后
<% a="qwe<br>rty<br>uio<br>p"
response.write(a)
%>
例如
<% a="qwertyuiop" 'a 的长度不定
response.write(a)
%>
变后
<% a="qwe<br>rty<br>uio<br>p"
response.write(a)
%>
...全文
请发表友善的回复…
发表回复
lianxiangpanjin 2006-03-31
- 打赏
- 举报
ok
hebhd 2006-03-31
- 打赏
- 举报
function forstr(strtemp)
forstr=""
strtemp=strtemp&""
dim i
lenstr=len(strtemp)
do while lenstr>0
if lenstr>=3 then
forstr=forstr&left(strtemp,3)
strtemp=right(strtemp,lenstr-3)
else
forstr=forstr&strtemp
strtemp=""
end if
lenstr=len(strtemp)
loop
end function
未测试。只有思路。。你自已测一下。在线写的
forstr=""
strtemp=strtemp&""
dim i
lenstr=len(strtemp)
do while lenstr>0
if lenstr>=3 then
forstr=forstr&left(strtemp,3)
strtemp=right(strtemp,lenstr-3)
else
forstr=forstr&strtemp
strtemp=""
end if
lenstr=len(strtemp)
loop
end function
未测试。只有思路。。你自已测一下。在线写的
