Asp中关于Class中如何返回一个数组的问题!

yesir_xiaoye 2003-11-29 11:48:06
'这是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)

谢谢各位帮忙!在线等待!
...全文
66 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
yesir_xiaoye 2003-11-29
  • 打赏
  • 举报
回复
正确!多谢!
Tal 2003-11-29
  • 打赏
  • 举报
回复
Dim mBanner
mBanner = BL.LoadBanner(DBConnect,StyleID) ' 在这一行出错,说类型不匹配

28,406

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧