问题只能根据报错来一点点的改了。有些的确是权限问题。但有的问题出得莫明其妙,比如
If arr(2)<>"--" and arr(2)<>"" Then中arr(2)与<>之间加个空格就可以了,其它的也是如此。但在新建的页面写又不会有这样的问题。以前在98下用UltraEdit写的。实在困惑!
谢谢各位的回答。
散分。
Function getClass(arr)
Dim myClass
If arr(2)<>"--" and arr(2)<>"" Then
getClass=arr(2)
Exit Function
ElseIf arr(1)<>"-" and arr(2)<>"" Then
getClass=arr(1)
Exit Function
ElseIf arr(0)<>"" Then
getClass=arr(0)
Exit Function
Else
getClass=""
End If
End Function