<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% dim rs,rs1,totalnum,num,flag 'flag为是否关闭广告按纽 set rs=server.CreateObject("adodb.recordset") set rs1=server.CreateObject("adodb.recordset") rs.open "select * from pet_ad_link where isopen=1 and style=1",conn,1,1 totalnum=rs.recordcount Randomize num=Fix(Rnd*totalnum) rs.move num rs1.open "select * from pet_ad_user where userid="&rs("userid"),conn %> " rel="nofollow" target="_blank" title="<%=rs1("sitename")%>">" border="0" vspace="4"> <% rs1.close rs1.open "select * from pet_ad_link where id="&rs(0),conn,1,3 userid=rs1("userid") rs1("pv")=rs1("pv")+1 rs1.update rs1.close rs1.open "select * from pet_ad_user where userid="&userid,conn,1,3 rs1("shownum")=rs1("shownum")+1 rs1.update if rs1("shownum")+1>rs1("givenum") then flag=0 else flag=1 end if rs1.close if flag=0 then rs1.open "select * from pet_ad_user where userid="&userid,conn,1,3 rs1("flag")=0 rs1.update rs1.close rs1.open "select * from pet_ad_link where userid="&userid,conn,1,3 while not rs1.eof rs1("isopen")=0 rs1.update rs1.movenext wend rs1.close end if rs.close set rs1=nothing set rs=nothing conn.close set conn=nothing %>