求ASP高手看看。

错误类型：
Microsoft VBScript 运行时错误 (0x800A0009)
下标越界: '[number: 1]'
/hao后台/AppCode/fun/function.asp, 第 440 行



Private Sub InitUserDengjiSelectOption(dj)
SiteUserDengji = Application(SiteID & "_Ok3w_SiteUserDengji")
DJ_Tmp = Split(SiteUserDengji,"|")

dj_Name = Split(DJ_Tmp(1),",")

For dj_item = 1 To Ubound(dj_Name)
'  While dj_item<Ubound(dj_Name)
'If dj_Name(dj_item)="" Then Exit Sub
If IsArray(dj_Name) And UBound(dj_Name)>0 Then
Response.Write("<option value=""" & dj_item + 1 & """")
If Cint(dj) = dj_item + 1 Then Response.Write(" selected=""selected""")
Response.Write(">" & dj_Name(dj_item) & "</option>")
    ' wend
End If

Next


End Sub

--------------------编程问答-------------------- 数据库是ACCESS 是可以通过的，如果是SQL 2000 就通不过了。出现以上的错误。 --------------------编程问答-------------------- 说明下标越界

DJ_Tmp = Split(SiteUserDengji,"|")

dj_Name = Split(DJ_Tmp(1),",")
============》
dj_Name = Split(DJ_Tmp(0),",") --------------------编程问答-------------------- 谢谢呀！这个我也试过了。还是一样的。

补充：.NET技术 ,  ASP.NET