Home > Jobs

Jobs
 

 

 

 

 

 

 

 

 

 

 

 

Job opening

Ca-Long cherishes the talented people as her most valuable wealth.
The important virtues of Ca-Long抯 preferred employee:
Loyalty: loyal to the interest of the company;
Initiative: self-motivation to work;
Capability: be able to fulfill one抯 own job.

<%// Option Explicit Response.Buffer = True // 特别提醒: 为保证页面的美观,本程序在生成HTML代码的时候 加了样式 ,样式 类 为 P92 ,请一定保证样式表中有此类。 //*******************************常量定义开始 Const StrClass="2003" //* 定义当前显示新闻的类别,根据客户实际情况定 Const PerPage=15 //* 定义每页显示的新闻条数 Const MarChr=40 //* 定义新闻标题显示的最多字数 Const Dotimg="" //* 定义起头的小图标,存放路径请存放与当前目录下的 images 目录 Const BgImg="" //* 定义相临2条新闻间的分隔单元格的填充图,存放同上, 图片的标准是1*1 个像素 Const SchTitle="" //* 定义搜索,空 表示没有,值表示显示的提示文本。 Const IsClk=1 //*定义是否显示点击次数 Const IsDte=1 //*定义是否显示日期 Const CurrFile="news.jsp" //*定义套用此脚本的页面文件名,必须为jsp文件 Const ViewOpen="" //*定义弹出的窗口文件名。 Const ViewCurr="detail.jsp" //*定义非弹出时候,浏览详细的页面文件名。 Const HrefClass="" //*定义超连接样式类 Const MidTbBg="#FFFFFF" //* 定义数据区 与 翻页 表格之间 ,区域区别的表格的背景色,一定要带 # 号 Const PgTbBg="#EFEFEF" //* 定义显示页数的表格的底色 ,一定要带 # 号 //***:ViewOpen 和 不能同时非空,也必须不同时为空 //*******************************常量定义结束 //◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆ //所有控制参数的定义在上面进行,下面的脚本修改请联系技术开发人员◆◆ //◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆ Dim ObjRst,ObjCon,StrSql,StrWhere,StrOrder,StrQry Set ObjRst=Server.CreateObject("ADODB.RecordSet") Set ObjCon=Server.CreateObject("ADODB.Connection") ObjCon.Open DataBase //库连接 //=================================== StrSql="Select ID,TITLE,PUBDATE,PUBTIME,imgtitle1,imgtitle2,imgtitle3,detail FROM customNEWS" //* 定义查询语句 StrWhere=" Where dealerid="&CorpNo&" And ispublished=1 And category ='"&StrClass&"'" //定义查询条件 StrOrder=" Order by pubdate desc,id desc" //定义排序规则 StrQry="" //=================================== Dim TotalPage,TotalRecords,CurrPage,Flg,i TotalPage=0 TotalRecords=0 CurrPage=Request("page") If CurrPage="" Or Not IsNumeric(CurrPage) Then CurrPage=0 If CurrPage<1 Then CurrPage=0 CurrPage=Int(CurrPage) //=================================== If ObjRst.State=1 Then ObjRst.Close ObjRst.Open "SELECT Count(id) cc FROM customNEWS "&StrWhere,ObjCon TotalRecords=ObjRst.Fields("cc") ObjRst.Close //=================================== 信息显示 %>
 Title Desc

Amout

Pubdate

<% If TotalRecords>0 Then TotalPage=Int(TotalRecords/PerPage) If PerPage*TotalPageTotalPage Then CurrPage=TotalPage If CurrPage=0 Then CurrPage=1 If ObjRst.State=1 Then ObjRst.Close ObjRst.Open StrSql&StrWhere&StrOrder,ObjCon i=0 If CurrPage>1 Then Do While Not ObjRst.Eof And i<(CurrPage-1)*PerPage i=i+1 ObjRst.MoveNext Loop End If i=0 Do While Not ObjRst.Eof And i <% ObjRst.MoveNext Loop Else%> <%End If %>

 <% If ViewOpen<>"" Then Response.Write """ Then Response.Write " Class="""&HrefClass&"""" Response.Write ">" Response.Write maxstr(ObjRst.Fields("title"),MaxChr) Response.Write "" //If Ucase(Right(ObjRst("img1"),2))="RM" Or Ucase(Right(ObjRst("img1"),2))="VI" Or Ucase(Right(ObjRst("img1"),2))="MV" Then Response.Write "~视频!" %>

<%=Left(ObjRst.Fields("detail"),36)%>... <%=ObjRst.Fields("imgtitle2")%> <%=ObjRst.Fields("pubdate")%>
 Nothing!
<%=Perpage%> items/per page<%=TotalPage%> ,toal <%=TotalRecords%>pages First  Prev  Next  EndGo Page
<% //=================================== If ObjRst.State=1 Then ObjRst.Close If ObjCon.State=1 Then ObjCon.Close Set ObjRst=Nothing Set ObjCon=Nothing ////////////////////////////////////////// %>

 Contact us

Tel: 010-80513149
Contact Person: Ms Zhang
Add: Hengye No.2 Street, Yongle Economic Development Zone, Tongzhou District, Beijing  PC:101115
E-mail:  hr@ca-long.com

Jobs | Web map | Contact us

Copyright?2009   Ca-long Engineering Machinery Co., Ltd.   All Rights Reserved.