| -> 信息详细内容 |
| 信息标题 | 盛火沼气罐 |
| 有效日期 | 2008-9-1 --> 2009-9-1 |
详细介绍 |
| 本产品是一个新型环保绿色能源专家，新型太阳能沼气罐是有人畜粪便、农作物秸杆等废气物通过在沼气罐中发酵而产生沼气可用于洗浴、照明、做饭、取暖。占地面积小，成本低，一次装料可用8个月，春夏秋冬均可使用，现成招县市区及乡镇加盟，投资一万年挣100万，成本500元卖2580，火爆招商中......
|
| 联系姓名 | 8551848 |
| 联系地址 | 潍坊市潍城区胜利西街于家庄工业园 |
| 联系电话 | 0536-8551848 |
| 联系信箱 | shenghuo3@sina.com |
| 发布会员 | 盛火沼气 |
| <%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 |
|
|
网友意见反馈