神华康城:ASP自定义函数money(a,b,c)用法

来源:百度文库 编辑:高考问答 时间:2024/04/28 04:08:52
那里出错了?

函数
Function fud(id,k)
Dim rs,command
Set rs=Server.CreateObject("ADODB.Recordset")
command="select money from society where id=" & id
rs.Open command,conn,1,3
rs("money")=rs("money")+k
rs.Update
rs.Close
Set rs=nothing
End Function

调用函数
Dim id
id=Request.Cookies("id")
fud(id,100)

CONN这个变量 没有升级成ADO数据库连接.
set conn=server.createObject("ADODB.connection")

把command给换掉,你用的系统变量