函数1：
<%
function cutstr(tempstr,tempwid)
if len(tempstr)>tempwid then
cutstr=left(tempstr,tempwid)&"..."
else
cutstr=tempstr
end if
end function
%>
函数2：
<%
function leftX(byval uStr,byval uLen)
dim i,j,uTestStr,theStr

leftX = ""
j = 0

for i = 1 to len(uStr)
uTestStr= mid(uStr,i,1)
theStr = theStr & uTestStr
if asc(uTestStr) < 0 then
j = j + 2
else
j = j + 1
end if
if j >= uLen then exit for
next
leftX = theStr
end function
%>
能不能把这两个函数的功能合并为一个函数啊

成功改造完毕代码如下，可是还有一个问题：
<%
function cutstr(byval uStr,byval uLen)
dim i,j,uTestStr,theStr
cutstr = ""

j = 0
for i = 1 to len(uStr)
uTestStr= mid(uStr,i,1)
theStr = trim (theStr) & uTestStr
if asc(uTestStr) < 0 then
j = j + 2
else
j = j + 1
end if
if j >= uLen then exit for
next

if len(uStr) > uLen then
cutstr=theStr&"..."
else
cutstr=theStr
end if

end function
%>
难道上面蓝处的len(uStr)和下面红处的len(uStr)返回的数值不一样吗？

你是哪来的啊,用什么繁体啊,看起来费劲,你把代码运行一下都知道有什么作用了,
函数1的是:比如tempstr值是:123456789,而tempwid的值是小于9数比如3就输出123...,反之，大于9的数比如12就输出123456789而没有省略号，一句话就是判断是否加省略号“...”啊，
函数2的作用是，如为汉字则按2个字符输出。
不知你理解成什么了