急

[xuehoo688]

我用的是动网6.0不知道为什么，我运行的时候老实出现这个问题

Microsoft VBScript 运行时错误 错误 '800a0009'
下标越界: '[number: 2]'
/index.asp，行90

代码为
<%
sql="select top 1 TopicNum,BbsNum,TodayNum,UserNum,lastUser,yesterdaynum,maxpostnum,maxpostdate,LastPost from config where active=1"
set rs=conn.execute(sql)
LastPostInfo=split(rs("LastPost"),"$")
if not isdate(LastPostInfo(2)) then LastPostInfo(2)=Now()
LastPostTime=LastPostInfo(2)//---------是第九十行
if datediff("d",LastPostTime,Now())>0 and ubound(LastPostInfo)=7 then
conn.execute("update config set yesterdaynum=todaynum,LastPost='"&checkStr(LastPostInfo(0))&"$"&checkStr(LastPostInfo(1))&"$"&Now()&"$"&checkStr(LastPostInfo(3))&"$"&checkStr(LastPostInfo(4))&"$"&checkStr(LastPostInfo(5))&"$"&checkStr(LastPostInfo(6))&"$"&checkStr(LastPostInfo(7))&"'")
conn.execute("update config set todaynum=0")
end if
if rs(2)>rs(6) then conn.execute("update config set maxpostnum=todaynum,maxpostdate=Now()")
%>

[matildafu]

LastPostInfo=split(rs("LastPost"),"$") 字符串分割，返回基于 0 的一维数组，判断数组的长度。
dim Flag
Flag=false
for i=0 to UBound(LastPostInfo)
if(i=2) then
Flag = true
end if
next
if(Flag) then
if not isdate(LastPostInfo(2)) then LastPostInfo(2)=Now()
LastPostTime=LastPostInfo(2)//---------是第九十行
end if

[xuehoo688]

不可以的呀！！我招你的试了一下！！谢谢