一个简单问题,请高手帮忙看看

[jtnwl]

我现在想控制 每行字数,多余字数自动换行

<%=rs("内容")%> 

控制内容字段输出是每行显示10个字,超过10个自动换行

我不想使用 宽度 来控制每行的字数 例如

style="width:100px;overflow: hidden; l"  或 TD DIV 的 width  

请问有没有别的方法 JS 或者 CSS 都可以,

控制每行10个汉字,超过10个自动换行,直到全部输出,

网上找了很多都是用……号来省去多余的,我需要多余用不要用……号,超过10个字自动换行

[一把编程的菜刀]

<%
str="啊打打双打的阿飞的动感巅峰思维242assdfsfsdfsfsfsfsfdgdfhfgjhfgjghjghjghjghjgjghjghjghjghjgj海关监管和加工环节个人特容易让用户放号风格"
if len(str) mod 10 =0 then
x=int(len(str)/10)
else
x=int(len(str)/10)+1
end if
for i=1 to x
j=i-1
response.write mid(str,j*10,10) & "<br>"
next
%> 

改下啊

[lovebaby]

给你个函数试试.
'**************************************************
'函数名：gotTopic
'作 用：截字符串，汉字一个算两个字符，英文算一个字符
'参 数：str ----原字符串
' strlen ----截取长度
'返回值：截取后的字符串
'**************************************************
function gotTopic(str,strlen)
if str="" then
gotTopic=""
exit function
end if
strlen = Cint(strlen)
dim l,t,c, i
str=replace(replace(replace(replace(str," "," "),""",chr(34)),">",">"),"<","<")
l=len(str)
t=0
for i=1 to l
c=Abs(Asc(Mid(str,i,1)))
if c>255 then
t=t+2
else
t=t+1
end if
if t>=strlen then
gotTopic=left(str,i)&"…"
exit for
else
gotTopic=str
end if
next
gotTopic=replace(replace(replace(replace(gotTopic," "," "),chr(34),"""),">",">"),"<","<")
end function

[yaoshanghuan]

偶尔看到的，关于换行与不换行的属性介绍
希望能帮到你
http://www.cftea.com/c/2010/02/NV2ECKUJL2ZOXZK7.asp

[ahbkj]

<%
for i=1 to int(len(rs("内容"))/10)+1
response.write mid(rs("内容"),(i-1)*10+1,10) & "<br>"
next
%>

[jtnwl]

谢谢楼上两位,可是我的问题还是没有解决

<%
for i=1 to int(len(rs("内容"))/10)+1
response.write mid(rs("内容"),(i-1)*10+1,10) & "<br>"
next
%>

输出后全部是 空白阿 <br>

还有什么其他方法吗?

[一把编程的菜刀]

<%
str="啊打打双打的阿飞的动感巅峰思维242assdfsfsdfsfsfsfsfdgdfhfgjhfgjghjghjghjghjgjghjghjghjghjgj海关监管和加工环节个人特容易让用户放号风格"
if len(str) mod 10 =0 then
x=int(len(str)/10)
else
x=int(len(str)/10)+1
end if
for i=1 to x
response.write mid(str,(i-1)*10,10) & "<br>"
next
%> 

[jtnwl]

谢谢版主,哈

可是提示错误,

Microsoft VBScript 编译器错误 错误 '800a0414'

调用子程序时不能使用括号

/index.asp，行 9

[Dogfish]

10个10个地截取显示。

[alenk]

好多答案啊，呵呵，可以批作业了。来学习的，O(∩_∩)O~

[超维电脑科技]

高手出招了我就观摩了