<%set gg= conn.execute("select tp,url,lx from tp where lbid=9 and zt=0 and wz=0 order by id desc")
if not gg.eof then
if gg("lx")<>0 then
Response.Write("")
else
Response.Write("")
end if
end if
gg.close
set gg=nothing%>
<%set classad = Server.CreateObject("shuziren_com.huiyuan")
classad.classad dh_l, x_top, z_top
set classad=nothing
'系统自动定时更新内容
If Application("classaddel_sj") <> "" Then
If DateDiff("h", CDate(Application("classaddel_sj")), Now()) > 12 Then
'更新24小时的分类广告顶置信息
conn.Execute ("Update gqxx set ding=0 where ding<>0 and ding<100 and datediff(d,sj3,getdate())>1")
'更新48小时的分类广告标红信息
conn.Execute ("Update gqxx set tui=0 where tui<>0 and datediff(d,sj3,getdate())>2")
'删除已过期的分类广告信息
Set rs = conn.Execute("select id from gqxx where datediff(d,sj,getdate())>sj2 order by id")
If Not rs.EOF Then
Do While Not rs.EOF
del_wj_myfso "/html/classad/" & rs(0) & ".htm"
rs.MoveNext
Loop
End If
rs.Close: Set rs = Nothing
conn.Execute ("Delete gqxx where datediff(d,sj,getdate())>sj2")
Application("classaddel_sj") = Now()
End If
Else
Application("classaddel_sj") = DateAdd("h", -13, Now())
End If
conn.Close
Set conn = Nothing%>