使用aspjpeg添加文字水印时，如果文字太多的话，如何实现自动换行？

[此贴子已经被作者于2007-1-3 22:27:16编辑过]

是不是加个换行符？VBCRLF或Chr(13)&Chr(10)？

不是，是让一行固定显示几个字，用数组来实现
不过因为中英文混合的缘故，每行都参差不齐，很郁闷
不知道还有什么好的方法没有？

function getStrLength(strTemp)'用於求中英文字符串的长度
strTemp=replace(strTemp,""","""")
dim DBCS
DBCS = (len("中文")=2) '双字节字符集(DBCS)
if DBCS then
strlen=len(strTemp)
trueLen=strlen
dim i
for i=1 to strlen
c=asc(mid(strTemp,i,1))
if c<0 or c>255 then
trueLen=trueLen+1
end if
next
getStrLength=Cint(trueLen/2)
else
getStrLength=len(strTemp)
end if
end function

function convert_to_fit_lenght(titleTemp,lenTemp)
dim l
l=1.0
dim ch
returnlength=1
do while Abs(Int(-l))<lenTemp and returnlength<=len(titleTemp)
ch=mid(titleTemp,returnlength,1)
if asc(ch) < 0 or asc(ch) > 255 then
l=l+1
else
l=l+0.5
end if
returnlength=returnlength+1
loop
convert_to_fit_lenght = returnlength
end function

function myLeft(titleTemp,lenTemp)
myLeft = Left(titleTemp,convert_to_fit_lenght(titleTemp,lenTemp))
end function


不知道你看不看得懂。。。

非常感谢版主 很抱歉现在才来谢谢你 嘿嘿