高考问答红日牌油烟机:asp显示数据库内容？
来源：百度文库 编辑：高考问答 时间：2024/04/20 09:57:21
例：我要显示这样的一个字符串：
"中华人民共和国"
用left函数显示前6位，为什么显示为:"中华人"
和我想的一样。
"123456789012345"
用left函数显示前6位，我想显示:"123456789012"
却显示为：123456
用什么函数能解决
"中华人民共和国"
用left函数显示前6位，为什么显示为:"中华人"
和我想的一样。
"123456789012345"
用left函数显示前6位，我想显示:"123456789012"
却显示为：123456
用什么函数能解决
<%
'------------------------------------
'截取字符,方便排版
'------------------------------------
Function CutStr(str,length)
dim length2,i,y,TmpStr
str=Trim(""&str)
if str="" Then CutStr="" :Exit Function
if Trim(""&length)="" Then CutStr=str :Exit Function
length2=length*2
y=0
TmpStr=""
if len(str)<length Then CutStr=str :Exit Function
For i=1 to len(str)
if asc(mid(str,i)) < 0 or asc(mid(str,i)) >255 then
y=y+2
Else
y=y+1
End If
If Y>length2 Then
CutStr=left(TmpStr,i-1)&".."
exit Function
End If
TmpStr=TmpStr & mid(str,i,1)
Next
CutStr=TmpStr
End Function
Response.Write CutStr("中华人民共和国",6)&"<br>"
Response.Write CutStr("123456789012345",6)
%>