Microsoft VBScript 运行时错误 错误 '800a0009' 下标越界: '1' NewsNewsinfo.asp，行 135

pii超过了ttp这个数组的最大索引值，就会提示“下标越界”。至于为什么会超过，仅从你这些代码是看不出的。你应该先判断pii是否超出数组上限再来做下一步动作：

比如把第135行改为如下：

<td width="160" rowspan="9" align="center" ><%if pii<=ubound(ttp) then response.write ttp(pii)%></td>

你没有定义过程或者函数HtmEnd ,请将这段源代码补上

sub HtmEnd(Msg)

set upload=nothing

response.Write "<br>"&Msg&"[<a href=""javascript:history.back()"">返回</a>]"

response.End

end sub

---