asp调用外部函数，提示类型不匹配

<%
dim a, clen
a= len(objRS("content"))
clen=cutStr(objRS("content"),a)
if len(clen)>50 then
response.write left(clen,50)&"..."
else
response.writetrim(clen)
end if
%>
cutStr是外部文件中的一个函数，实现过滤内容中的html格式的，函数如下：

<%
'--------------------------------------------------
'定义函数，主要功能是截取部分内容时去掉html格式
Function cutStr(str,strlen)
Dim re
Set re=new RegExp
re.IgnoreCase =True
re.Global=True
re.Pattern="<(.[^>]*)>"
str=re.Replace(str,"")
set re=Nothing
Dim l,t,c,i
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
cutStr=left(str,i)&"..."
Exit For
Else
cutStr=str
End If
Next
cutStr=Replace(cutStr,chr(10),"")
cutStr=Replace(cutStr,chr(13)," ")
cutStr=Replace(cutStr," ","")
End Function
%>
现在问题是在调用这个外部函数的时候提示
类型不匹配: 'cutStr'

你有没有把2个文件关联起来？
也就是说，你在
clen=cutStr(objRS("content"),a)

之前，有没有服务器端包括你那个外部文件？
在服务器上，每个文件在主观上，都是独立的文件，是互不相关的，如果你没有进行关联，是不能相互使用每个文件的变量、函数、子程等等的
比如：你在a.asp中有一个变量：
<%
a = 10
%>
而你直接在b.asp中这样调用a.asp中的变量：
<%=a%>
这样是不行的，这样什么都不会输出
如果你这样弄就可以了
<!--#include file="a.asp"-->
<% = a %>
这样，在b.asp运行的时候，就会输出10

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息