aspニュースタイトルが長すぎてどう処理しますか?

3146 ワード

手順1、コードの挿入
<%

function cLeft(str,n)

dim str1,str2,alln,Islefted

str2 = ""

alln = 0

str1 = str

Islefted = false

if isnull(str) then

cleft = ""

exit function

end if

for i = 1 to len(str1)

nowstr = mid(str1,i,1)

if asc(nowstr)<0 then

alln = alln + 2

else

alln = alln + 1

end if

if (alln<=n) then

str2 = str2 & nowstr

else

Islefted = true

exit for

end if

next

if Islefted then

str2 = str2 & ".."

end if

cleft = str2

end function

%>

ステップ2、
<%=cLeft((xyhd.Fields.Item("hd_bt").Value),10)%>