Microsoft VBScript 運行時錯誤 錯誤 '800a000d'類型不匹配: 'Ubound'/Company_View.asp,行 259<TABLE class=fontblack cellSpacing=2 cellPadding=0 width="100%" border=0><TBODY><%For i = 0 To Ubound(arrRs , 2)%><TR><TD colSpan=2 height=4></TD></TR><TR><TD align=middle width="12%" height=22><IMG height=8 src="images/jt1.gif" width=10></TD><TD width="88%"> <%If arrRs(7 , i) < TodayDate ThenResponse.Write(arrRs(4 , i) & " (已過期)")ElseIf arrRs(21 , i) = "1" ThenResponse.Write(arrRs(4 , i) & " (停止招聘)")ElseResponse.Write("<a href=""Company_Job.asp?JobId="& arrRs(0 , i) &""" class=""admin_b"">"& arrRs(4 , i) &"</a>")End If%></TD></TR><%Next%></TBODY></TABLE>
2 回答

呼啦一陣風
TA貢獻1802條經驗 獲得超6個贊
應該是UBound的參數不正確,UBound的作用對象應該是一個數組,用法如下:
該示例使用 UBound 函數,確定數組的指定維的最大可用下標。
Dim Upper
Dim MyArray(1 To 10, 5 To 15, 10 To 20) '聲明數組變量。
Dim AnyArray(10)
Upper = UBound(MyArray, 1) '返回 10
Upper = UBound(MyArray, 3) '返回 20
Upper = UBound(AnyArray) '返回 10

達令說
TA貢獻1821條經驗 獲得超6個贊
ubound函數的參數只能是數組,顯然,你的變量id并不是一個數組.
你可以試試將
id=request("id")
改為
id=split(request("id"),
",")
添加回答
舉報
0/150
提交
取消