标题:在线 求大神解决 asp问题
取消只看楼主
qq929559446
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2016-7-4
结帖率:0
已结贴  问题点数:20 回复次数:9 
在线 求大神解决 asp问题
Microsoft VBScript 运行时错误 错误 '800a0009'

下标越界: '[number: 2]'

/admin/isee.asp,行 312
第312行代码为 tmps=tmpdate(2)-1 展开内容为 <%fdate=datetmpdate=split(fdate,"-")tmps=tmpdate(2)-1olddate= tmpdate(0) & "-" &  tmpdate(1) & "-" &tmpsysnum=conn.execute("select count(*) from "&table2&" where DateTime like '%"&fdate&"%'")(0)oldsnum=conn.execute("select count(*) from "&table2&" where DateTime like '%"&olddate&"%'")(0)response.write "<font color=#ffffff>昨日总进信量:" & oldsnum & "今日总进信量:" & ysnum & "</font>"%>如何解决 在线等 求大神解决方案
搜索更多相关主题的帖子: Microsoft ffffff admin color count 
2016-07-04 12:37
qq929559446
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2016-7-4
得分:0 
我是新手 求解决办法 我也不知道几个数据
2016-07-04 12:42
qq929559446
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2016-7-4
得分:0 
回复 2楼 外部三电铃
我不太懂啊 您需要看什么数据不
2016-07-04 12:44
qq929559446
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2016-7-4
得分:0 
回复 4楼 外部三电铃
哈哈 我只想求解决办法
2016-07-04 12:45
qq929559446
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2016-7-4
得分:0 
回复 7楼 外部三电铃
有没有解决办法啊,本地调试不错误,但是上传到虚拟主机就显示错误了 ,怎么办。
2016-07-04 12:50
qq929559446
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2016-7-4
得分:0 
回复 9楼 外部三电铃
插入了那段代码 还是和原先一样的错误啊 求解决
2016-07-04 13:03
qq929559446
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2016-7-4
得分:0 
                                                                                             

Microsoft VBScript 运行时错误 错误 '800a0009'

下标越界: '[number: 2]'

/admin/isee.asp,行 31
2016-07-04 13:09
qq929559446
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2016-7-4
得分:0 
回复 11楼 外部三电铃
                                                                                             

Microsoft VBScript 运行时错误 错误 '800a0009'

下标越界: '[number: 2]'

/admin/isee.asp,行 31
2016-07-04 13:09
qq929559446
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2016-7-4
得分:0 
第31行为 Private Sub Class_Initialize
展开内容为 :<%
class menus

Public Title, ID, Image, TitleColor, Target, Background, HeadImage, Height, Width, Bgcolor, Style
Private menuItem, menuStr

Private Sub Class_Initialize
 Title = ""
 ID = ""
 menuItem = ""
 Image=""
 TitleColor = "#FFCC33"
 Target = "_blank"
 Background = ""
 HeadImage = ""
 Height = "20"
 Width = "100%"
 Bgcolor = ""
 Style = ""
 script
End Sub

Private Sub Class_Terminate
 Title  = ""
 ID = ""
 menuItem = ""
End Sub

Public Function AddItem(Byval nItem, Byval nURL)
 menuItem = menuItem & "<tr><td style='font-size:12px;' align='left'>&nbsp;&nbsp;&nbsp;&nbsp;{$Image}<a href='" & nURL & "' target='"&Target&"' class='"& Style &"'>" & nItem & "</a></td></tr>"
End Function

Public Sub Show()
 menuStr = "<table border=0 width='"& Width &"' style='border:1px solid #999999;' bgcolor='"& Bgcolor &"'><tr><td height='"& Height &"' Onclick=menus('" & ID & "') bgcolor='"& Bgcolor &"' valign='bottom' style='" & _
 "font-size:12px;color:"&TitleColor&";cursor: hand;' background='"&Background&"' align='center'>&nbsp;&nbsp;{$HeadImage}" & Title & "</td></tr></table><div id=" & chr(34) & ID & chr(34) & " style=" &chr(34) & _
 "display:none;"& chr(34) & "><table width=100% border=0 style='border-left:1px solid #999999;border-right:1px solid #999999;border-bottom:1px solid #999999;'>" & menuItem & "</table></div>"
 
 if Image<>"" then
 menuStr = replace(menuStr, "{$Image}", Image)
 else
 menuStr = replace(menuStr, "{$Image}", "")
 end if
 
 if HeadImage<>"" then
 menuStr = replace(menuStr, "{$HeadImage}", HeadImage)
 else
 menuStr = replace(menuStr, "{$HeadImage}", "")
 end if
 
 Response.Write menuStr
End Sub

Private Function script()
 Dim JScript
 
 JScript = "<script language="&chr(34)&"JavaScript"&chr(34)&"type="&chr(34)&"text/JavaScript"&chr(34)& _
">"&vbcrlf&"<!--"&vbcrlf&"function menus(str){"&vbcrlf&"var obj;if (document.getElementById(str)){"&vbcrlf& _
"obj=document.getElementById(str);"& _
"if (obj.style.display =="&chr(34)&"none"&chr(34)&"){obj.style.display ="&chr(34)&chr(34)& _
";}else{obj.style.display ="&chr(34)&"none"&chr(34)&";}}}//--></script>"
 
 response.Write JScript
End Function

Public Sub AddNew()
 Title  = ""
 ID = ""
 menuItem = ""
 menuStr = ""
End Sub

Public Sub OpenItem(Byval ItemID)

End Sub

end class
%>
2016-07-04 13:10
qq929559446
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2016-7-4
得分:0 
回复 14楼 外部三电铃
你有QQ没 解决红包感谢
2016-07-04 13:11



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-466610-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.115485 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved