各位大虾,请问我如果从数据库中读出的字符有好几百字,我想在文本框中只显示前20个字符,我该怎么修改文本框的属性?

请各位大虾赐教!谢谢!

用mid 或 left函数 都可以

left(rs("字段名")),20

楼上错了  left(rs("字段名"),20)

[此贴子已经被作者于2007-11-9 11:17:51编辑过]

最好写成函数，避免rs("字段")为空时，产生错误

'***************************************************************************
'' @功能说明: 截取源字符串Str的前LenNum个字符(一个中文字符为2个字节长)
'' @参数说明: - str [string]: 源字符串
'' @参数说明: - LenNum [int]: 截取的长度
'' @返回值: - [string]: 转换后的字符串
Function CutStr(Str,LenNum)
Dim P_num
Dim I,X
If StrLength(Str)<=LenNum Then
Cutstr=Str
Else
P_num=0
X=0
Do While Not P_num > LenNum-2
X=X+1
If Asc(Mid(Str,X,1))<0 Then
P_num=Int(P_num) + 2
Else
P_num=Int(P_num) + 1
End If
Cutstr=Left(Trim(Str),X)&"…"
Loop
End If
End Function

javascript的话用substr函数
比如
<script language="javascript">
var str1="abcdefg";
alert(str1);
str1=str1.substr(0,str1.length-2);
alert(str1);
</script>

也可以用CSS省略号实现文字自动截断
.test{
width:200px;
height:50px;
border:1px solid red;
padding:10px;
overflow:hidden; /*不显示超过对象宽度的内容*/
text-overflow:ellipsis; /*当对象内文本溢出时显示省略标记（...）*/
white-space:nowrap; /*限制在一行内显示所有文本*/
}

css方法看起很简单，但是没法使用啊,没有起到约束的作用，能不能测试后再发出来啊，本人是菜鸟，不懂其中那还有问题啊

请各位赐教！

谢谢啊，各位大虾，问题解决了，这样方法看起来比较简单点！