asp ÅúÁ¿update ÎÊÌ⣡

----´íÎóÌáʾ--------------

Microsoft OLE DB Provider for ODBC Drivers ´íÎó '80004005'

»ùÓÚ²éѯµÄ¸üÐÂʧ°Ü£¬ÒòΪû·¢ÏÖÒª¸üеÄÐС£

/admin/inboundSQL.asp£¬ÐÐ 406

-----´úÂë------------------------

If Not PLFHRS.EOF Then
  While Not PLFHRS.EOF 
      PLFHRS("FHSL") = Trim(PLFHRS("SL"))&"="&Trim(PLFHRS("YSCMFB"))
      PLFHRS("FHSJ") = Now()         
      PLFHRS("FHR") = request.Cookies("loginname")
      PLFHRS.update 
      PLFHRS.movenext
  Wend
End If


while 4 ´Îºó¾Í»á³ö´í£¡
ÄÄλÄÜ°ï°ï棬¸Ðл

---

ûÈËÄܻشð´ËÎÊÌ⣿

---

ÉÏÏÂÎÄÌùһϿ´¿´£¬ÕâЩ´úÂëËƺõû´í

---

Set PLFHRS = server.CreateObject("ADODB.recordset")
PLFHRS.open "select FHSL,FHR,FHSJ,SL,YSCMFB from BM_ProcurementSystem where (FHSL='' or FHSL is null) and (FHSJ='' or FHSJ is null) and (YSCMFB <>'' or YSCMFB is not null) and  FLAG <>1 and (RQ between '"&starttime&"' and '"&endtime&"')",conn,1,3
If Not PLFHRS.EOF Then
While Not PLFHRS.EOF
  PLFHRS("FHSL")