conn.execute("update pcook_Article set PassWord = '"&pd&"' where ID In(" & ID & ")")
改更新方式
Set rsPD=Server.CreateObject("ADODB.RecordSet")
rsPD.Open "select * from pcook_Article where ID In(" & ID & ")",conn,1,3
Do Until rsPD.EOF
rsPD("Password")=Pd
rsPD.MoveNext
Loop
rsPD.Update
rsPD.Close
Set rsPD=Nothing