Asp中关于Class中如何返回一个数组的问题!
'这是BannerLogo.asp这个Class中的一个函数,它返回一个数组
'我在别的页面调用它的时候出错,我的调用方法在下边
'加载Banner
Public Function LoadBanner(DBConn,StyleID)
Dim Banner(5)
SQL = "Select TITLE,URL,FILENAME,IMGWIDTH,IMGHEIGHT From XYBANNERLOGO Where FILETAG = 2 And StyleID = " & StyleID
DBConn.ExecuteQuery(SQL)
If DBConn.rstObj.Eof Then
Banner(0) = "办公OA"
Banner(1) = "./index.asp"
Banner(2) = "banner_0.gif"
Banner(3) = "468"
Banner(4) = "85"
Else
Banner(0) = Trim(DBConn.rstObj("TITLE"))
Banner(1) = Trim(DBConn.rstObj("URL"))
Banner(2) = Trim(DBConn.rstObj("FILENAME"))
Banner(3) = Trim(DBConn.rstObj("IMGWIDTH"))
Banner(4) = Trim(DBConn.rstObj("IMGHEIGHT"))
End If
DBConn.CloseRS()
LoadBanner = Banner
End Function
'加载Banner
Dim mBanner(5)
mBanner = BL.LoadBanner(DBConnect,StyleID) ' 在这一行出错,说类型不匹配
Response.Write mBanner(0)
Response.Write mBanner(1)
Response.Write mBanner(2)
Response.Write mBanner(3)
Response.Write mBanner(4)
谢谢各位帮忙!在线等待!