asp对数据库的编程,asp+ado
vb例子:
dim conn as adodb.connection
conn.open
Dim rs_paymentorder As New ADODB.Recordset
Set rs_paymentorder = conn.Execute("SELECT ISNULL(MAX(fintOrder), 0) AS fintOrder FROM Voucher where datepart(year,fdtmdate)=datepart(year,'" & sDate & "') and datepart(month,fdtmdate) = datepart(month,'" & sDate & "')")
intMaxPaymentOrder = rs_paymentorder("fintOrder") + 1
Set rs_paymentorder = Nothing