<!--#include file="fso.asp"-->
<%
Sub cfss_link(a)'友情链接
fjqq_link=FSOFileRead(a)
fjqq_link=Replace(fjqq_link,Chrw(13)&Chrw(10),"#")
fjqq_link_1=Split(fjqq_link,"#")
fjqq_link_2=UBound(fjqq_link_1)
If fjqq_link_2>=0 Then
For fjqq_link_i=0 To fjqq_link_2
If fjqq_link_1(fjqq_link_i)<>"" Then
fjqq_link_3=Split(fjqq_link_1(fjqq_link_i),"|")
If fjqq_link_3(3)="" Then
response.write"<a target=""_blank"" href="""&fjqq_link_3(1)&""" title="""&fjqq_link_3(2)&""">"&fjqq_link_3(0)&"</a>"
Else
response.write"<a target=""_blank"" href="""&fjqq_link_3(1)&""" title="""&fjqq_link_3(2)&"""><img src="""&fjqq_link_3(3)&""" width=""88"" height=""31"" border=""0"" /></a>"
End If
End If
Next
End If
End Sub
%>
请帮我检查这段代码错在哪里了
Microsoft VBScript runtime error '800a0005'
Invalid procedure call or argument: 'Chr'
/inc/fjqq.asp, line 20
这个是错误代码
空间是5944的
应该是英文系统