自制狐狸头饰图片大全:ASP的问题

Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp，行242

ADODB.Stream 错误 '800a0bba'

文件无法被打开。

/accessa/forumHead.asp，行79

60行到80行的源码如下：
Function ReadSkinData(byval sPath,byval nType)
Dim oStr,sRsl,iPos
If nType<>1 Then
Dim oFso
Set oFso=Server.CreateObject("Scripting.FileSystemObject")
If oFso.FileExists(sPath) Then
set oStr=oFso.OpenTextFile(sPath,1,false)
If Not oStr.AtEndOfStream Then
sRsl=oStr.ReadAll()
End If
oStr.Close()
Set oStr=Nothing
End If
Set oFso=Nothing
Else
Set oStr=Server.CreateObject("Adodb.Stream")
oStr.Type=2
oStr.Mode=3
oStr.charset = "gb2312"
oStr.Open
oStr.LoadFromFile(sPath)
oStr.Position=0
sRsl=oStr.ReadText(oStr.Size)
oStr.Close
set oStr=nothing
End If
iPos=Instr(sRsl,"%" & ">")
If iPos>0 Then
sRsl=Mid(sRsl,iPos+2)
End If
ReadSkinData=sRsl
End Function