您所在位置：主题：vbscript动态赋值问题
szsoncon
[专家分：0] 发布于 2007-11-30 09:56:00
vbscript动态赋值问题
各位大虾,类似下面的如何实现动态赋值呀(vbscript),从数据库里已读并联接成字符串,以下是代码
If Rs.Bof And Rs.Eof Then
Else
i = 1
Do While Not Rs.Eof
begindate1 =begindate1&","&Rs("begindate")
Rs.Movenext
Loop
End If
'Response.Write (begindate1)
'输出结果为:2007-08-16,2007-08-30,2007-09-13,2007-09-20,-2007-09-27,2007-10-04,2007-10-25,2007-11-01,2007-11-08
'ResPonse.End()
'本想通过startdate=split(begindate1,",") 实现类似如下的结果(动态赋值),最终失败,哪位高手帮忙解决一下
startDate = Array(DateSerial(2007, 8, 16), DateSerial(2007, 8, 30), DateSerial( _
2007, 9, 13), DateSerial(2007, 9, 20), DateSerial(2007, 9, 27), DateSerial( _
2007, 10, 4), DateSerial(2007, 10, 25), DateSerial(2007, 11, 1), DateSerial( _
2007, 11, 8))
各位大虾,类似下面的如何实现动态赋值呀(vbscript),从数据库里已读并联接成字符串,以下是代码
If Rs.Bof And Rs.Eof Then
Else
i = 1
Do While Not Rs.Eof
begindate1 =begindate1&","&Rs("begindate")
Rs.Movenext
Loop
End If
'Response.Write (begindate1)
'输出结果为:2007-08-16,2007-08-30,2007-09-13,2007-09-20,-2007-09-27,2007-10-04,2007-10-25,2007-11-01,2007-11-08
'ResPonse.End()
'本想通过startdate=split(begindate1,",") 实现类似如下的结果(动态赋值),最终失败,哪位高手帮忙解决一下
startDate = Array(DateSerial(2007, 8, 16), DateSerial(2007, 8, 30), DateSerial( _
2007, 9, 13), DateSerial(2007, 9, 20), DateSerial(2007, 9, 27), DateSerial( _
2007, 10, 4), DateSerial(2007, 10, 25), DateSerial(2007, 11, 1), DateSerial( _
2007, 11, 8))
