<
%function
countlength(str)
dimoutput,thischar,i
output =0
fori =1
tolen
(str)
thischar
=mid
(str,i,1)
ifasc
(thischar)
<
0then
output
=output +2
else
output
=output +1
endif
next
countlength
=output
end function
function
maxlengthstr(byval str, byval maxlength)
dimoutput,i
ifisnull
(str)
then
str =""
output =""
iflenb(str)
<=
maxlength
then
output
=str
else
fori =1
tolen
(str)
output
=output
&mid
(str,i,1)
ifcountlength(output)+3
=maxlength
then
output
=output &"
..."
exit
forelseif
countlength(output)+3
>
maxlength
then
output
=left
(output,
len(output)-1
) &"...
"exit
forend
ifnext
endif
maxlengthstr
=output
end function
response.write maxlengthstr(
"osdne wor21421阿瑟大ld one dream,北京",
40)response.write ""
response.write maxlengthstr(
"北京2008,onsf234eworld one dream,北京2008",
41)function
strlength(str)
temp_str
=len
(str)
fori=1
totemp_str
test_str=(
mid(str,i,1))
ifasc
(test_str)
>
0then
strlength
=strlength+1
else
strlength
=strlength+2
endif
next
end function
function
strleft(str,l)
temp_str
=len
(str)
fori=1
totemp_str
test_str=(
mid(str,i,1))
strleft
=strleft
&test_str
ifasc
(test_str)
>
0then
lens
=lens+1
else
lens
=lens+2
endif
iflens
>=
l then
exit
fornext
end function
response.write strleft(
"北008",
3)%>
完美字串
約翰認為字串的完美度等於它裡面所有字母的完美度之和。每個字母的完美度可以由你來分配，不同字母的完美度不同，分別對應乙個1 26之間的整數。約翰不在乎字母大小寫。也就是說字母f和f 的完美度相同。給定乙個字串，輸出它的最大可能的完美度。例如 dad，你可以將26分配給d，25分配給a，這樣整個字串完美...
完美字串
約翰認為字串的完美度等於它裡面所有字母的完美度之和。每個字母的完美度可以由你來分配，不同字母的完美度不同，分別對應乙個1 26之間的整數。約翰不在乎字母大小寫 也就是說字母a和a的完美度相同 給定乙個字串，輸出它的最大可能的完美度。例如 dad，你可以將26分配給d，25分配給a，這樣整個字串完美度...
完美字串
完美字串 約翰認為字串的完美度等於它裡面所有字母的完美度之和。每個字母的完美度可以由你來分配，不同字母的完美度不同，分別對應乙個1 26之間的整數。約翰不在乎字母大小寫 也就是說字母a和a的完美度相同 給定乙個字串，輸出它的最大可能的完美度。例如 dad，你可以將26分配給d，25分配給a，這樣整個...