在线求大神解决 asp问题

#2

外部三电铃2016-07-04 12:39

下标越界，十有八九是数组问题，是不是tmpdate(2)越界了？tmpdate数组有几个元素？

#3

qq9295594462016-07-04 12:42

我是新手求解决办法我也不知道几个数据

#4

外部三电铃2016-07-04 12:44

你自己都不知道程序里面的变量是干什么的？

#5

qq9295594462016-07-04 12:44

回复 2楼外部三电铃

我不太懂啊您需要看什么数据不

#6

qq9295594462016-07-04 12:45

回复 4楼外部三电铃

哈哈我只想求解决办法

#7

外部三电铃2016-07-04 12:48

你不是负责技术的吧，那真没有办法

#8

qq9295594462016-07-04 12:50

回复 7楼外部三电铃

有没有解决办法啊，本地调试不错误，但是上传到虚拟主机就显示错误了，怎么办。

#9

外部三电铃2016-07-04 12:53

你在这312行上面再插入一行试试：
response.write tmpdate(2)
看看本地和服务器会不会出现错误，如果出现，就说明是这个问题

#10

qq9295594462016-07-04 13:03

回复 9楼外部三电铃

插入了那段代码还是和原先一样的错误啊求解决

#11

外部三电铃2016-07-04 13:04

这次错误是多少行？错误代码贴出来

#12

qq9295594462016-07-04 13:09

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

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

/admin/isee.asp，行 31

#13

qq9295594462016-07-04 13:09

回复 11楼外部三电铃

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

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

/admin/isee.asp，行 31

#14

外部三电铃2016-07-04 13:10

这又是另一个地方了，行31

，找个懂的到现场给看看吧，买包烟啥的

#15

qq9295594462016-07-04 13:10

第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'>    {$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'>  {$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&"</script>"

response.Write JScript
End Function

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

Public Sub OpenItem(Byval ItemID)

End Sub

end class
%>

#16

qq9295594462016-07-04 13:11

回复 14楼外部三电铃

你有QQ没解决红包感谢

#17

hu9jj2016-07-04 16:03

楼主的代码是从哪里来的？是不是漏复制了定义数组的代码？

在线 求大神解决 asp问题