现在有三个文件，都是显示排行榜的，但是它们显示的太长了，把我的网页撑变形了，所以我想麻烦各位一下，改一改，改成如果字附大于十就只显示前十个，如果不大于就正常显示。
第一个：
    
    
    
    
    
    
        
    
    <%            
    dim sql
    dim rs
    dim flag
    dim ostr
        
    recordnum=request.querystring("recordnum")
    if recordnum="" then
        recordnum=10
    end if    
    
    browsetype=request.querystring("browsetype")
    if browsetype="" then
        browsetype=1'说明开新窗口浏览
    end if                
    
    timeview=request.querystring("timeview")
    if timeview="" then
        timeview=1
    end if        
    
    if browsetype=1 then
        flag="target='_blank'"
    elseif browsetype=0 then
        flag="target='_top'"
    end if        
    
    ntypeid=request.querystring("ntypeid")
    if ntypeid="" then
        ntypeid=0
    end if
    
    if ntypeid=0 then
        sql="select top " & recordnum & " * from article order by lastposttime desc"
    else
        sql="select top " & recordnum & " * from article where ntypeid=" & ntypeid & " order by lastposttime desc"
    end if                
    %>



"
    else
        do while not rs.eof
            if timeview=1 then
                response.write ""
            elseif timeview=0 then
                response.write ""
            end if
        rs.movenext
        loop
    end if
    rs.close            
    set conn=nothing
    %> 

<%     set rs=conn.execute(sql)     if rs.eof and rs.bof then         response.write "

该讨论区还暂时没有文章

>> " & rs("title") & "  " & rs("lastposttime") & "

>> " & rs("title") & "

    

第二个：



<%
dim page
if not isempty(request("page")) then
page=cint(request("page"))
else
page=1
end if
dim rs10
set rs10=server.createobject("ADODB.recordset")
rs10.open"select * from zzfl",con,1,1
dim rs8
set rs8=server.createobject("ADODB.recordset")
sql="select * from down order by id desc"
rs8.open sql,con,1,1
dim rs7
set rs7=server.createobject("ADODB.recordset")
%>
<%
rs7.open "select top 10 id,name,dianji from down order by dianji desc",con,1,1
%>


<%if rs7.eof and rs7.bof then
response.write "»¹Ã»ÓÐÏÂÔØ×ÜTOP"
else
dim i
i=0
do while not rs7.eof%>



<%i=i+1
if i>9 then exit do
rs7.movenext
loop
end if
rs7.close
%>

>> ')""><%=rs7("name")%>

第三个：
<%@LANGUAGE="VBSCRIPT" CODEPAGE="CP_ACP"%>

<% dim tuicool,strSQL2 strSQL2 ="SELECT * FROM learning WHERE best = true ORDER BY articleid DESC" Set tuicool = Server.CreateObject("ADODB.Recordset") tuicool.open strSQL2,Conn,3,1 cool=1 if tuicool.eof then response.write "Ä¿Ç°»¹Ã»Óо«Æ·ÍƼö" else do while not tuicool.eof if not tuicool.eof then %> >> &typeid=<%=tuicool("typeid")%>&zhuid=<%=tuicool("zhuid")%> target="_blank"><%=tuicool("title")%> <%tuicool.movenext end if cool=cool+1 if tuicool.eof or cool>rs1("tuishu") then exit do end if loop tuicool.close set tuicool=nothing end if%>

谢谢了，很急的。

哎，你光跟我说这点有什么用呀。

我试过呀，改坏了呀。

再问一个问题。

我下载过好多的ASP源程序，用DW MX一打开，看到的全是乱的，可是浏览时表格，图片都正常，奇怪！

不知是不是因为我的开发者机器的不能，所以在他那里的和我这里的不一样？

还是我们使用的软件不一样？

我只知道用DW做的,用FP打开效果就变了。

我下载过一个叫紫心随想的留言本，我用DW打开后有百分之九都没有变形，还可以看到开发者当初设计的表格等。我个人是喜欢这样的，因为便于修改。
不知怎么才能做到这点?是不是用这段代码：wrod-break:break-all？应该放在哪呢？

多谢。