<%@ Language=VBScript%> 中原石油勘探局钻井一公司
<% dim typeid dim typename dim typecontent dim addr addr = left(Request.ServerVariables("REMOTE_ADDR"),5) if addr = "10.75" then addr = "10.75.232.9" else addr = "222.136.71.26" end if set rs=server.CreateObject("ADODB.RecordSet") rs.Source="select * from type order by typeorder" rs.Open rs.Source,conn,1,1 i=1 Dim ArraytypeID(10000),ArraytypeName(10000) rs.close set rs=nothing set rs=server.CreateObject("ADODB.RecordSet") rs.Source="select * from type order by typeorder" rs.Open rs.Source,conn,1,1 i=1 Dim ArraytyID(10000),ArraytyName(10000),Arraytyview(10000) if not rs.EOF then rseof=1 while not rs.EOF RecordCount=rs.RecordCount tyID=rs("typeID") tyName=trim(rs("typeName")) tycontent=rs("typecontent") tyview=trim(rs("typeview")) ArraytyID(i)=tyID ArraytyName(i)=tyName Arraytyview(i)=tyview i=i+1 rs.MoveNext wend rs.close else Response.Write "
暂无新闻大类
" end if %>
“一三四四二”的工作思路:坚持一个中心、实施三个战略、推进四项改革、搞好四项建设、实现两个确保。
  公司新闻::
  政工园地::
  1楷模风范::
  热点新闻::
   石化要闻::
 钻井科技::
　　登陆ERP
<%if showclub=1 then%> <%if Request.cookies("username")="" then%> <%else%> <%end if%> <%end if%>
欢迎您:<%=Request.cookies("fullname")%>
<% if Request.cookies("key")<>"selfreg" then %> 文章管理   <% end if%> 修改资料  退出
　　本站公告
<% set rs=server.CreateObject("ADODB.RecordSet") rs.Source="select * from board where inuse=1" rs.Open rs.Source,conn,1,1 if not rs.EOF then %> <%else rs.close set rs=nothing end if%> <%if showvote="1" then%>

<%if len(rs("title"))>20 then%> <%=left(rs("title"),20)%>... <%else%> <%=trim(rs("title"))%> <%end if%> <%=rs("content")%> 以前公告

　　　视频新闻
<%if showsearch=1 then%> <%end if if showdata=1 then%> <%end if if showuser=1 then%> <%end if%>

　　　文章搜索

<%if search="1" then%> <%else%> <%end if%>

<% set rs3=server.CreateObject("ADODB.RecordSet") if uselevel=1 then if Request.cookies("key")="super" or Request.cookies("key")="typemaster" or Request.cookies("key")="bigmaster" or Request.cookies("key")="smallmaster" or Request.cookies("key")="check" then rs3.Source ="select top " & top_img & " * from News where picnews=1 and checkked=1 and picname<>null order by NewsID DESC" end if if Request.cookies("key")="" then rs3.Source ="select top " & top_img & " * from News where picnews=1 and checkked=1 and newslevel=0 and picname<>null order by NewsID DESC" end if if Request.cookies("key")="selfreg" then if Request.cookies("reglevel")=3 then rs3.Source ="select top " & top_img & " * from News where picnews=1 and checkked=1 and newslevel<=3 and picname<>null order by NewsID DESC" end if if Request.cookies("reglevel")=2 then rs3.Source ="select top " & top_img & " * from News where picnews=1 and checkked=1 and newslevel<=2 and picname<>null order by NewsID DESC" end if if Request.cookies("reglevel")=1 then rs3.Source ="select top " & top_img & " * from News where picnews=1 and checkked=1 and newslevel<=1 and picname<>null order by NewsID DESC" end if end if else rs3.Source ="select top " & top_img & " * from News where picnews=1 and checkked=1 and picname<>null order by NewsID DESC" end if rs3.Open rs3.Source,conn,1,1 if not rs3.EOF then //--------add this line 导读图片不重复 rs3.MoveNext //-------------- while not rs3.EOF fileExt=lcase(getFileExtName(rs3("picname"))) Content=rs3("Content") content=replace(content,"[[","<") content=replace(content,"]]",">") %> <% rs3.MoveNext wend else Response.Write "
暂无
" end if rs3.close set rs3=nothing %> <%end if%>


钻井一公司信访接待室
地点：招待所一楼101室
联系电话：0393-4800211
  钻机设备::
  友情链接::
<%if t_bg<>"0" then%> <%end if%>
  石油站点