<% Set rs = Server.CreateObject("ADODB.RecordSet") sql = "select * from index_ad where id=1 " rs.Open sql,conn,1,3 if rs.eof and rs.bof then l1 = 0 else d1 = rs("Def_date") l1 = rs("Def_loop") if Datediff("d",rs("Def_date"),date()) > 7 then d1 = date() if l1 > 2 then l1 = 0 else l1=l1+1 end if rs("Def_date") = d1 rs("Def_loop") = l1 rs.Update end if end if rs.Close Set rs = Nothing t0="咨询老师38480494213693683737" t3="咨询老师4 84926281 13552462171" t1="咨询老师1 84932842 13693689909" t2="咨询老师2 84804842 13552462271" select case l1 case 0 s0 = t0 s1 = t1 s2 = t2 //s3 = t3 case 1 s0 = t1 s1 = t2 s2 = t0 //s3 = t0 case 2 s0 = t2 s1 = t0 s2 = t1 //s3 = t1 case 3 s0 = t0 s1 = t1 s2 = t2 //s3 = t2 end select rs.Close Set rs = Nothing //conn.Close //Set conn = Nothing %>