嘉峪关市科学技术局

科技局介绍政策法规规划计划成果奖励党建与廉政科技经费科技项目科技合作民营科技

科技咨询市情介绍新闻动态专题专栏科研基地技术服务旅游科技开发相关下载雄关科技论坛

您现在的位置：首页 >> 科技咨询>> 首页

<% If request("PageNo")="" then PageNo=1 Else PageNo=int(request("PageNo")) End If if request("search")<>"" then select case request("select") case "title" sql="SELECT * from body where title like '%"&request("keyword")&"%' order by top,lasttime desc" case "writer" sql="SELECT * from body where writer like '%"&request("keyword")&"%' order by top,lasttime desc" end select else sql="SELECT * from body order by top,lasttime desc" end if set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,3 if not(rs.eof and rs.bof) then rs.Pagesize=20 rs.absolutepage=PageNo x = 0 For x = 1 to rs.Pagesize if x mod 2 then tr_color="#EBEBEB" else tr_color="#ffffff" end if If rs.eof then Exit For Else%> <% rs.MoveNext End If Next %> <% end if rs.close set rs=nothing %>


状态	主题	作者	回复	时间
<% if rs("top")= true then response.write "" else today=date lasttime=rs("lasttime") if lasttime <= today then response.write "" elseif( lasttime > today ) then if cint(rs("recount"))=0 then response.write "" else response.write "" end if end if end if %>	" title="<%="内容："&server.htmlencode(left(rs("body"),100))%><%if len(rs("body"))>100 then response.write "……"%>"><%=server.htmlencode(rs("title"))%>	<%=server.HTMLEncode(rs("writer"))%>	<%=rs("recount")%>	<%=rs("lasttime")%>
分页：