mid函数问题，急。在线等。。。

[kknddxk]

有两个asp文件，一个提供字符串处理功能：strfun.asp
内有一函数为

function test(str)

test = mid(str,1,1)

end function

另一个文件使用<!--include file="strfun.asp">引用strfun.asp文件。
调用函数test
Response.Write test("abc")

报错如下：
Microsoft VBScript 运行时错误 错误 '800a000d'
类型不匹配: 'Mid'

请教该如何处理此问题

[孟子E章]

function test1(str)

test1= mid(str,1,1)

end function

另一个文件使用<!--include file="strfun.asp">引用strfun.asp文件。
调用函数test
Response.Write test1("abc")

看看

[love888love888]

<%

function test(str)

test = mid(str,1,1)

end function


%>
<%=test("sdfgdg")%>
测试可以拉

[「已注销」]

<!--include file="strfun.asp">不是
<!--#include file="strfun.asp">

[kknddxk]

Response.Write test1("abc")
会报错：变量未定义： 'test1'


在strfun.asp中直接调用都正常的
在另一个asp文件中调用就会报错：
Microsoft VBScript 运行时错误 错误 '800a000d'
类型不匹配: 'Mid'

[kknddxk]

<!--#include file="strfun.asp">

改成这个也不行