asp显示数据库内容?
例:我要显示这样的一个字符串:"中华人民共和国"用left函数显示前6位,为什么显示为:"中华人"和我想的一样。"123456789012345"用left函数显示前6位...
例:我要显示这样的一个字符串:
"中华人民共和国"
用left函数显示前6位,为什么显示为:"中华人"
和我想的一样。
"123456789012345"
用left函数显示前6位,我想显示:"123456789012"
却显示为:123456
用什么函数能解决 展开
"中华人民共和国"
用left函数显示前6位,为什么显示为:"中华人"
和我想的一样。
"123456789012345"
用left函数显示前6位,我想显示:"123456789012"
却显示为:123456
用什么函数能解决 展开
1个回答
展开全部
<%
'------------------------------------
'截取字符,方便排版
'------------------------------------
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)
%>
'------------------------------------
'截取字符,方便排版
'------------------------------------
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)
%>
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询