% Set conn=Server.CreateObject("ADODB.Connection") param = "driver={Microsoft Access Driver (*.mdb)}" conn.Open param & ";dbq=" & Server.MapPath("./ban/Adrotator.mdb") Set rs=Server.CreateObject("ADODB.Recordset") sqlstr="select * from adrotator where " sqlstr=sqlstr & "Imgdisplay < MaxImgDisplay " sqlstr=sqlstr & "and Clicks < MaxClicks " sqlstr=sqlstr & "and EndDate > #" & Date & "#" rs.open sqlstr,conn,3,2 rs.CacheSize = 50 TotalRecord=rs.RecordCount RANDOMIZE ID=Int((TotalRecord*RND)+0) rs.Move(ID) ID=rs("ID") Adurl=rs("Adurl") rs("Imgdisplay")=rs("Imgdisplay")+1 rs.Update Imgdisplay=rs("Imgdisplay") Clicks=rs("Clicks") ADName=rs("ADName") ImgURL=rs("ImgURL") rs.close conn.close Set rs=Nothing Set conn=Nothing %>
| |||||||||||||||||||||||||||||||||||||||||||||||||
| |||||||||||||||||||||||||||||||||||||||||||||||||
|