<%
sub substr(Text，num)
if len(Text)>num then //如果文章内容字数大于 传入值 num 的话
Text = Text.substring(0, num) + "..."//取内容前50个字符
respone.write Text    //返回Text?
end if
我也知道这个方法不对，请达人帮改一下纠正一下啊谢谢啊 ASP 新手

%>

<%
sub tuijiannews()%>
<table width="96%" border="0" cellpadding="0" cellspacing="0">
    <%

set rs0=server.CreateObject("adodb.recordset")
sql0="select * from news where id =805"

rs0.Open sql0,conn,1,1
if not rs0.EOF then

    %>

    <tr>
        <td height="70">
        <span class="STYLE136">
            <%call substr(rs0("content",50)) %>
请问我这里要调用上面一个方法要如果调用，ASP 新手，刚自学1个星期请达人教我下
        </span>
        </td>
    </tr>
......

[ 本帖最后由 xiangenlian 于 2010-7-23 17:08 编辑 ]

你这里取内容前50个字符涉及到返回值，要用函数。

<%
sub sdd(str,lennum,s) 
If Not IsNull(str) Then 
Dim p_num,x 
Dim i 
If len(str)<=lennum Then 
Strsub=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 
Strsub=Left(Trim(str),x)&s '截取后定义超出部分内容的显示方式 
Loop 
End If 
Else 
Strsub="Null" 
End If 
response.write Strsub
End sub 

'dim str1="最高法承诺不判赖昌星死刑没有超越法律程序最高法承诺不判赖昌星死刑没有超越法律程序最"
%>
<table>
<tr>
        <td height="70">
        <span>
            <%sdd "最高法承诺不判赖昌星死刑没有超越法律程序最高法承诺不判赖昌星死刑没有超越法律程序最",20,"..."%>  
        </span>
        </td>
    </tr>
</table>