Limit Title Character..._成都软件开发公司

Limit Title Character...

<%Function neatTrim( strToTrim, desiredLength )strToTrim = trim( strToTrim )

if len( strToTrim ) < desiredLength then

neatTrim = strToTrim

exit function

else

if inStrRev( strToTrim, " ", desiredLength ) = 0 then

strToTrim = left( strToTrim, desiredLength - 1 ) & ""

else

strToTrim = left( strToTrim, inStrRev( strToTrim, " ", desiredLength + 1 ) -1 ) & "" 'no carriage return here

end if

neatTrim = trim( strToTrim )

End Function

strLong = " This string is too long! "

strTrimmed = NeatTrim( strLong, 13 )

response.write( strTrimmed )%>