<%
Function CheckID(ByVal str1)
If IsNumeric(str1) Then
CheckID = Fix(CDbl(str1))
Else
CheckID = 0
End If
End Function
Set rs = conn.execute("update Bookcar set BookNumber = '"& BookNumber &"' where BookId = “&BookId)
實在不能更新,就用:
Set rs = Server.create(”adodb.Recordset")
rs.open "select * from bookcar where bookid="&BookId &",conn,1,3
rs("BookNumber") = BookNumber
rs.update()
成功率比上面的高