<% catename=request("catename") if catename="" then catename="业务动态" myyear=request("myyear") mymonth=request("mymonth") if myyear="" then myyear=year(now()) if mymonth="" then mymonth=month(now()) if trim(request("page"))="" then intpage=1 else intpage=cint(request("page")) if intpage<1 then intpage=1 end if set conn=server.CreateObject("adodb.connection") conn.Open application("connstr") set rs=server.CreateObject("adodb.recordset") if request("mode")="" then sql="select id,title,pic,wdate from news where cateid in(select id from newscate where catename='" & catename & "') ORDER BY wdate DESC" else if request("mode")="key" then sql="select id,title,pic,wdate from news where cateid in(select id from newscate where catename='" & catename & "') and title like '%" & request("keyword") & "%' ORDER BY wdate DESC" else sql="select id,title,pic,wdate from news where cateid in(select id from newscate where catename='" & catename & "') and (wdate between '" & request("myyear") & "-" & request("mymonth") & "-1" & "' and '" & request("myyear") & "-" & request("mymonth")+1 & "-1" & "') ORDER BY wdate DESC" end if end if rs.PageSize=20 rs.Open sql,conn,3 if not rs.eof then intpagecnt=rs.PageCount rs.AbsolutePage=intpage if intpagecnt

投稿信箱|观看设置|网站地图| 今天是<%=year(now())%>年<%=month(now())%>月<%=day(now())%>日 <%=weekdayname(weekday(now()))%>

经济发展总公司 工业公司 长圳村 合水口村 茨田埔村 东坑村 根竹园村 红星村 李松朗村 下村 楼村 甲子塘村 将石村 田寮村 西田村 玉律村 塘家村 马山头村 上村 食品公司 水电综合 长兴工业 粮食公司 物业公司 居委会 供销社 宝塘公司 中航   - - 关于我们 | 联系我们 - - 友情联接：| 天络科技 | 深圳之窗 | 中国游戏中心 | 新浪网 | 搜狐 | 网易 版权所有 ©2001 公明招商信息网

<% set rs=nothing set conn=nothing %>