<%
sub formatTXT(str)

CONTENT=""

strLEN=len(str)/10
if strLEN<>INT(strLEN) then
strLEN=INT(strLEN)+1
END IF

FOR I=1 TO strLEN
CONTENT=CONTENT&MID(str,(i-1)*10+1,10)&"<br>"
NEXT

response.write content
end sub



strTXT="尊敬的客户：您好!   感谢您对网络时代一直以来的支持和关注，为了更好的为您提供更优质的服务，您在使用网络时代的服务中遇到问题时，请配合我们依照以下服务流程，选择适合您的方式，尽快解决您的问题。感谢您的支持！"


call formatTXT(strtxt) %>