| -> 信息详细内容 |
| 信息标题 | 销售安利产品 |
| 有效日期 | 2008-8-12 --> 2009-8-12 |
详细介绍 |
| 销售所有安利产品，有需要的请联系 |
| 联系姓名 | 宿先生 |
| 联系地址 | |
| 联系电话 | 13953488652 |
| 联系信箱 | shf0630@63.com |
| 发布会员 | shf0630 |
| <%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%> |
|
Copyright © 2007-2009 禹城信息港™
All rights reserved .
本平台基于禹城网联信息科技研发的UcCms V1.0管理平台构建
|
中国网通集团禹城分公司提供带宽
联系地址：山东省禹城市商城管委会一楼 网联信息科 | 商务合作电话：0534-7223222
15092726997 |
|
|
网友意见反馈