君龍
 離線
會員性別: 
文章: 4
 Microsoft Windows XP Pro SP2
 Intel Pentium 4 3.0GB
 HiNet ADSL 2M/512K
 Microsoft Office Pro 2003
絕版情人
|
請問各位ASP達人大大們~小弟看了某篇文章所說明的讓購物車自己扣庫存的教學~
但是因所使用的購物系統不同，所以想請教一下小弟該如何修改呢？
某位大大提供的程式：
rsdetail.Update
if productNum > 0 then
strSQL = " Update product Set productNum = productNum - " & buyNum &_
" Where id = '" & id & "'"
Conn.Execute(strSQL)
end if
rs.MoveNext
Wend
若小弟一樣要將自動扣庫存的程式放入網頁中該放在何處呢？
為何我放入後卻出現了↓的訊息呢？
錯誤類型：
Microsoft VBScript 編譯階段錯誤 (0x800A0400)
必須提供陳述式
請問有沒有解決的方法呢？
以下為小弟的網頁內容： (這是完成出貨設定的內容)
<%
' response.write modifyPassword
' response.End
Set cmdTemp = Server.CreateObject("ADODB.Command")
Set InsertCursor = Server.CreateObject("ADODB.Recordset")
cmdTemp.CommandText = "SELECT * FROM orders WHERE id="&Request("id")
cmdTemp.CommandType = 1
Set cmdTemp.ActiveConnection = conn
InsertCursor.Open cmdTemp, , 1, 3
InsertCursor("state") =1
InsertCursor("treatedDate") =now()
InsertCursor("treatedRemark") =Request("treatedRemark")
InsertCursor.Update
InsertCursor.close
conn.close
set InsertCursor=nothing
set conn=nothing
%>
麻煩高手大大幫忙了~
|
作者
已記錄
