首 页 发电集团 发电动态 数据中心 电厂快递 项目信息 专题推荐 会员信息 信息化 政策法规 BBS
  会员信息>>
 
会员注册 检索词
 
<% varSearchword=trim(request("searchword")) sql="SELECT ID,CORPORATION_NAME,ESTABLISH_DATE FROM MEM_INFO order by id desc" if not(isempty(varSearchword) or isnull(varSearchword) or varSearchword="") then sql="select ID,CORPORATION_NAME,ESTABLISH_DATE FROM MEM_INFO where CORPORATION_NAME like '%"& varSearchword & "%' order by ESTABLISH_DATE desc " end if otherP = "&searchword;=" & server.URLEncode(varSearchword) 'response.write sql set oRs = Server.CreateObject("ADODB.Recordset") oRS.open sql,conn,1 oRS.pagesize=15 if Not IsEmpty(Request("Page")) then ToPage = CInt(Request("Page")) if ToPage > oRS.PageCount then oRS.AbsolutePage = oRS.PageCount elseif ToPage <= 0 then oRS.AbsolutePage = 1 else oRS.AbsolutePage = ToPage end if End if intCurPage = oRS.AbsolutePage if intCurPage < 0 then intCurPage=0 end if For i = 1 to oRS.PageSize if oRS.eOF then Exit For end if %> > <%=oRS(1)%>
<% oRS.MoveNext next %>
<% if intCurPage > 1 then %> <% else %> <% end if if intCurPage < oRS.pagecount then %> <% else %> <% end if oRS.close set oRS = Nothing %>  
 
 
关于我们 | 本站导航 | 广告服务 | 联系我们
 
中国发电企业信息网 版权所有 (c)2002
联系电话:010-63415463 传真:010-63414295