| -> 信息详细内容 |
| 信息标题 | 中国名牌，国家免检，雪竹内衣招区县代理 |
| 有效日期 | 2008-8-14 --> 2009-8-14 |
详细介绍 |
| 中国名牌，国家免检产品，雪竹内衣已在德州家喻户晓，林心如07年的大型活动，使销售非常火爆，现诚招禹城市代理。 |
| 联系姓名 | 何 |
| 联系地址 | 山东 |
| 联系电话 | 13061020525 |
| 联系信箱 | |
| 发布会员 | hl770110 |
| <%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 |
|
|
网友意见反馈