<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% response.charset="utf-8" %> <% if request.QueryString("ID")="" then SeoTitle="关于我们" elseif not IsNumeric(request.QueryString("ID")) then SeoTitle="参数错误" elseif conn.execute("select * from Ameav_wh Where ViewFlag and ID="&request.QueryString("ID")).eof then SeoTitle="参数错误" else set rs = server.createobject("adodb.recordset") sql="select * from Ameav_wh where ViewFlag and ID="&request.QueryString("ID") rs.open sql,conn,1,1 SeoTitle=rs("AboutName") rs.close set rs=nothing end if %> <%=SiteTitle %>-企业文化-<% =SeoTitle %> <%menu="wh"%>
<% =WebMenu() %>
 
顺朝愿景:
提供一流钢铁服务
顺朝使命:
创造价值最大化
员工富裕发展
企业持续成长
顺朝精神:
学习创新 全力以赴
团队至上 和谐共赢
行为准则:
以诚待人
以信立业
经营方针:
做专 做精 做透 做强
经营理念:
终端客户为上,渠道为先
资源配置最优,现金为王
战略合作为核,服务为重
制度第一,总经理第二
顺朝机制:
企业搭台 培育经营者
顺朝格言:
知止
少即是多
创新、速度、全球化
耐得住寂寞 抵得住诱惑
钱不要赚到最后一个铜板
输不起的事不做 控制不住的事不做
稳健当中不忘发展 发展当中不忘稳健
天助自助者
不是不可能
态度决定一切
没有任何借口
不学习则淘汰
每天进步一点点
 
现在的位置:首页 / 企业文化 / <% =WebLocation %>
 
     
  <%=WebContent()%>  
 
<% function WebMenu() dim rs,sql,i set rs = server.createobject("adodb.recordset") sql="select ID,AboutName from Ameav_wh where ViewFlag and not ChildFlag order by Sequence asc" rs.open sql,conn,1,1 response.write"" if rs.bof and rs.eof then response.write "" else do response.write "" response.write "" rs.movenext loop until rs.eof end if response.write"
暂无相关信息
"&rs("AboutName")&"
" rs.close set rs=nothing end function function WebLocation() dim ID ID=request.QueryString("ID") dim rs,sql set rs = server.createobject("adodb.recordset") if request.QueryString("ID")="" then sql="select top 1 ID,AboutName,Content,GroupID,Exclusive,ClickNumber from Ameav_wh where ViewFlag and not ChildFlag order by Sequence asc" else sql="select ID,AboutName,Content,GroupID,Exclusive,ClickNumber from Ameav_wh where ViewFlag and not ChildFlag and ID="&ID end if rs.open sql,conn,1,1 if rs.bof and rs.eof then WebLocation="错误" else WebLocation=" "&rs("AboutName") end if rs.close set rs=nothing end function function WebContent() dim ID ID=request.QueryString("ID") dim rs,sql set rs = server.createobject("adodb.recordset") if request.QueryString("ID")="" then sql="select top 1 ID,AboutName,Source,Content,GroupID,Exclusive,ClickNumber,AddTime from Ameav_wh where ViewFlag and not ChildFlag order by Sequence asc" else sql="select ID,AboutName,Source,Content,GroupID,Exclusive,ClickNumber,AddTime from Ameav_wh where ViewFlag and not ChildFlag and ID="&ID end if rs.open sql,conn,1,3 if not rs.eof then numbers=len(rs("content")) '总字节数 pagenum=3000 '每页显示的数量 maxpage=1'总页数 requestpage=clng(request("p"))'接收页码 if requestpage="" or requestpage=0 then'获取默认页码 requestpage=1 end if if requestpage>maxpage then '当前页的页码大于最大页码时,使当前页码等于最大页码 requestpage=maxpage end if if not requestpage=1 then '当前页码不等于1时,向下移动相应的字节数 content=mid(rs("content"),(requestpage-1)*pagenum+1,Sitenum) else content=left(rs("content"),Sitenum) '当页码等于1时,截取相应文本 end if if isempty(requestpage) then thispage=1 else thispage=cint(requestpage) end if if ViewNoRight(rs("GroupID"),rs("Exclusive")) then %> <%=content%> <% rs("ClickNumber")=rs("ClickNumber")+1 else WebContent="
" end if response.write "" for i=1 to maxpage if thispage=i then response.write "" else response.write ""&i&" " end if next response.write " " rs.update rs.close else response.write "
暂无相关信息
" end if response.write "

" response.write "
【刷新页面】【加入收藏】【打印此文】 【关闭窗口】
" set rs=nothing end function %>