搜索
 找回密码
 加入

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

Rayman 2009-8-3 21:01:28 1440
本帖最后由 Rayman 于 2009-7-8 06:14 编辑

呵呵,无聊,为朋友的服写了修卡团和团人数不对应的几行代码,发出来,很简单。

  1. set rs=conn.execute("select idnum,members,idname from knights")
  2. do while not rs.eof
  3.         set cs=conn.execute("select count(*) as b from userdata where knights="&rs("idnum"))
  4.         if cs("b")<>rs("members") then
  5.                 conn.execute("update knights set members="&cs("b")&" where idnum="&rs("idnum"))
  6.                 response.write("OK<br />")
  7.                 response.write rs("idname")&"--->"&rs("idnum")&"-->"&cs("b") &"-->"& rs("members")&"<br />"
  8.         end if
  9.         cs.close:set cs=nothing
  10. rs.movenext
  11. loop
  12. rs.close:set rs=nothing
复制代码

4 回复

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次!
高级模式
游客