27,582
社区成员




win=0
set rs=server.CreateObject("ADODB.RecordSet")
sql="select id, ph, un from songph where defen>0"
rs.Open sql,conn,1,1
do while not rs.eof
win=win+1
if win>rs("ph") then
conn.execute"update pk set ph="&win&", un='↓' where id="&rs("id")
else
conn.execute"update pk set ph="&win&", un='↑' where id="&rs("id")
end if
rs.movenext
loop
create proc p_test()
as
begin
declare @id int,@ph int,@un varchar(2),@i
set @i=0
declare cur_1 cursor for
select id, ph, un from songph where defen>0
open cur_1
fetch next from cur_1 into @id,@ph,@un
while @@fetch_status=0
begin
set @i=@i+1
if @i>@ph
begin
update pk set ph=@i, un='↓' where id=@id
end
else
begin
update pk set ph=@i, un='↑' where id=@id
end
fetch next from cur_1 into @id,@ph,@un
end
close cur_1
deallocate cur_1
end