怎么样记录会员总积分

我想的打码网 是导入excel自动处理数据的。

我想在数据库里加个列记录总积分。

Sql语句应该怎么写啊

这是处理excel表格的代码 记录总积分应该怎么写写在哪 求帮助

JScript code

Response.Write "开始处理数据......" & Now() & "<br>"

sql = "select * from usercodeexcel where PStatus = 0"
Set Rs = Server.CreateObject("ADODB.Recordset")
Set RsUser = Server.CreateObject("ADODB.Recordset")
Set RsTmp = Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,3
    if rs.eof and rs.bof then
        rs.close
        response.Write "没有任何资料要处理...." & Now() & "<br>"
        response.End()
    else
        response.Write "一共有" & conn.execute("select count(ID) from usercodeexcel where PStatus = 0")(0) & "笔数据要处理...." & Now() & "<br><br>"
    end if

    do while not rs.eof
        sql = ""
        sql = "select * from UsercodeList where 1 = 1  "
        sql = sql & " and issued = '" & rs("issued") & "'"
        RsUser.open sql,conn,1,3
        if RsUser.eof and RsUser.bof then
            Response.Write "issued(" & rs("issued") & ")在用户表里面找不到，跳过......" & Now() & "<br>"
        else
            sql = "select codejifen,codename from codelist where  id = " & RsUser("codeid") & ""
            RsTmp.open sql,conn,1,1
            
            if RsTmp.eof and RsTmp.bof then
                Response.Write "数据核对错误......" & Now() & "<br>"
                RsTmp.close
                RsUser.Close
        
            else

                jifen = CDbl(rs("newnum")) * CDbl(RsTmp(0))
                codename= RsTmp(1)
                RsTmp.close
                
                userid = RsUser("userid")
                Response.Write "数据检查OK，更新数据......" & Now() & "<br>"
                
                RsUser("newnum") = rs("newnum")
                RsUser("totalnum") = RsUser("totalnum") + rs("newnum")
                RsUser("totaljifen") = RsUser("totaljifen") + jifen
                RsUser("newjifen") = jifen
                RsUser("etime") = Now()
                RsUser.Update
                
                if Add_User_Jifen(Userid,jifen,0,"打码项目[" & codename & "]，" & rs("newnum") & "码奖励，工号：" &  rs("issued") ,True) then
                    Response.Write "更新Jifen成功......" & Now() & ""
                end if
                rs("Pstatus") = True '将处理的记录修改好
                rs.update 
            end if

        end if
        Response.Write "<br>"
        
        Response.Flush()
        RsUser.close
        rs.movenext
    loop
rs.close
set rs=nothing

Response.Write "数据处理完毕......" & Now() & "<br>"

%>

求解求解

增加列用alter table 表名 add column 列号 c(c,5)

加在哪啊。我对这个一窍不通。希望说的详细点