上面语法作一点修改,由于看贴后匆匆忙忙写,所有有很多错误
<%tx="你的内容"
if len(tx)>您所要的长度 then
totalwidth=len(tx)
redim width(totalwidth) ''设数组width为您最后要打出来的内容
redim widthadd(totalwidth) ''设数组widthadd为您每次递增的字符量
for i=1 to len(tx)
if len(width(i)+您所要的长度)>len(tx) then
next for
end if
if i=1 then
width(i)=trim(left(tx,i*您所要的长度))
widthadd(i)=len(width(i))
else
width(i)=trim(mid(tx,widthadd(i-1),i*您所要的长度))
widthadd(i)=len(width(i))
end if
response.write windthadd(i)
next
<%tx="你的内容"
if len(tx)>您所要的长度 then
totalwidth=len(tx)
redim width(totalwidth) ''设数组width为您最后要打出来的内容
redim widthadd(totalwidth) ''设数组widthadd为您每次递增的字符量
for i=1 to len(tx) step 您所要的长度
if i=1 then
width(i)=trim(left(tx,i*您所要的长度))
widthadd(i)=len(width(i))
else
width(i)=trim(mid(tx,widthadd(i),i*您所要的长度))
widthadd(i)=len(width(i))
end if
next