<%
Dim cpRecordset
Dim cpRecordset_numRows
Session("Cpbuy")=Request("ProIdcheck")
cpdd_numrows=split(Session("Cpbuy"),",")

Set cpRecordset = Server.CreateObject("ADODB.Recordset")
cpRecordset.ActiveConnection = MM_conn_STRING
cpRecordset.Source = "SELECT * FROM cp"
cpRecordset.CursorType = 0
cpRecordset.CursorLocation = 2
cpRecordset.LockType = 1
cpRecordset.Open()
For i=0 to UBound(cpdd_numrows)
cpdd.addnew                      -----------------------------32行
cpdd.Fields("DDID")=Tystring
cpdd.Fields("ProId")=CInt(Trim(cpdd_numrows(i)))
cpdd.Fields("USENAME")=Session("MM_Username")
cpdd.Fields("SL")=Session(CInt(Trim(cpdd_numrows(i))))
cpdd.Fields("DDTIME")=Newnow
cpdd.update
Next
Session.Contents.Remove("Cpbuy")
Response.Redirect("CpOrder.asp?DDID="+Tystring)

cpRecordset_numRows = 0
cpRecordset.movefirst
While NOT cpRecordset.EOF
Session((cpRecordset.Fields.Item("ProId").Value))=Cint(Request.Form(Trim(cpRecordset.Fields.Item("ProId").Value)))
cpRecordset.movenext
wend

%> 请帮忙解决下

又是一堆DW生成的MM

刚开始学，有很多东西不懂

MM_conn_STRING
这个好象没有看到给它定义，是否包含在其他文件里？没有将该文件包含进来？

哪里来的cpdd啊