代码如下：
Dim Seq
Seq = 1
For Index = LBound(PriorArray) To UBound(PriorArray)
For Data_Index = LBound(Data) To UBound(Data)
If Data(Data_Index).Prior = PriorArray(Index) Then
set Info = Data(Data_Index)  
Sup_ID = Info.Supplier_ID
sql1 = "update supInfor set scheduesequence ='"&Seq&"' where sup_ID="&Sup_ID,conn,1,1

提示：
错误类型：
Microsoft VBScript 编译器错误 (0x800A0401)
语句未结束
/w/httytest.asp, line 200, column 76
sql1 = "update supInfor set scheduesequence ='"&Seq&"' where sup_ID="&Sup_ID,conn,1,3

自己解决了！！