首页 › 1310程序专版「1310 files」 › 发几行ASP代码，修正卡团现象。

Rayman 发表于 2009-7-8 12:56:14

发几行ASP代码，修正卡团现象。

本帖最后由 Rayman 于 2009-7-8 06:14 编辑

呵呵，无聊，为朋友的服写了修卡团和团人数不对应的几行代码，发出来，很简单。
set rs=conn.execute("select idnum,members,idname from knights")
do while not rs.eof
        set cs=conn.execute("select count(*) as b from userdata where knights="&rs("idnum"))
        if cs("b")<>rs("members") then
                conn.execute("update knights set members="&cs("b")&" where idnum="&rs("idnum"))
                response.write("OK<br />")
                response.write rs("idname")&"--->"&rs("idnum")&"-->"&cs("b") &"-->"& rs("members")&"<br />"
        end if
        cs.close:set cs=nothing
rs.movenext
loop
rs.close:set rs=nothing

Rayman 发表于 2009-7-8 13:11:16

再彻底一点，完全重新统计团员列表名单：

conn.execute("truncate table KNIGHTS_USER")
set rs=conn.execute("select struserid,knights from userdata order by knights")
do while not rs.eof
        if rs("knights")>0 then
                conn.execute("insert into KNIGHTS_USER(sIDNum,struserid) Values("&rs("knights")&",'"&trim(rs("struserid"))&"')")
                response.write("insert into KNIGHTS_USER(sIDNum,struserid) Values("&rs("knights")&",'"&trim(rs("struserid"))&"')")
                response.write("<br />")
        end if
rs.movenext
loop
rs.close:set rs=nothing

ctgwglzc 发表于 2009-7-8 14:25:21

学习了~

coolsam 发表于 2009-7-28 22:54:19

学习不过记不住~~~

benjiaming77 发表于 2009-8-3 21:01:28

水1次！

查看完整版本: 发几行ASP代码，修正卡团现象。