<% 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 %>