注册 登录
编程论坛 ASP技术论坛

请问如何在 一个方法中调用另一个方法

xiangenlian 发布于 2010-07-23 17:01, 489 次点击
<%
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 编辑 ]
2 回复
#2
hams2010-07-23 17:58
你这里取内容前50个字符涉及到返回值,要用函数。
#3
gupiao1752010-07-23 18: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>
1