Question

Microsoft VBScript 运行时错误 错误 '800a0009' 下标越界: '[number: 1]'

if rs("WS_born")<>"" then WS_born=rs("WS_born") else WS_born="---" end if
WS_bornarr=split(WS_born,"-"):response.write WS_bornarr(0)&" 年"&WS_bornarr(1)&" 月"&WS_bornarr(2)&" 日</td></tr><tr class=titletdbg><td width='81'> 籍 贯</td><td width='103'>"&rs("WS_native")&"</td><td width='56'>政治面貌</td><td width='91'>"&rs("WS_polity")&"</td><td width='65'>婚姻状况</td><td>"&rs("WS_marry")&"</td></tr><tr class=titletdbg><td width='81'> 文化程度</td><td width='103'>"&rs("WS_diploma")&"</td><td width='56'>职 称</td><td width='91'>"&rs("WS_job")&"</td><td width='65'>电 话</td><td>"&rs("WS_phone")&"</td></tr><tr class=titletdbg><td width='81'> 毕业院校</td><td width='103'>"&rs("WS_college")&"</td><td width='56'>毕业时间</td><td width='91'>"&rs("WS_graduate_time")&"</td><td width='65'>专 业</td><td>"&rs("WS_major")&"</td></tr><tr class=titletdbg><td width='81'> 现住址</td><td colspan='2'>"&rs("WS_address")&"</td><td width='91'>身份证号</td><td colspan='2'>"&rs("WS_indentity")&"</td></tr><tr class=titletdbg><td width='81' height='28'> 户口所在</td><td height='28' colspan='2'>"&rs("WS_register")&"</td><td width='91' height='28'>所在部门</td><td height='28' colspan='3'>"
此程序在原来win XP 系统iis6下一切正常，在新的win7下的iis7下，出现一些问题，其中一个就是以上这个问题。......HXManpowerResource/userinfolook.asp，行 15 。哪位大侠帮帮忙吧，万分感谢。

• 你的回答被采纳后将获得：
• 系统奖励15（财富值+成长值）+难题奖励10（财富值+成长值）+提问者悬赏50（财富值+成长值）

Answer 1

WS_bornarr=split(WS_born,"-")

改为
WS_bornarr=split(WS_born,"-"):Redim Preserve WS_bornarr(2)

追问

真的谢谢大侠，再弱弱地问问。就改这一个地方？其它不用是吧？谢谢了。不知道是否方便加您QQ，还有关于asp代码的问题求教。谢谢。