新闻中心

零配件手册

销售网络

　

 　
　您现在的位置：首页 >> 新闻中心 >> 公司新闻
<% // Option Explicit Response.Buffer = True // 特别提醒： 为保证页面的美观，本程序在生成HTML代码的时候 加了样式 ，样式 类 为 P92 ，请一定保证样式表中有此类。 //*******************************常量定义开始 Const StrClass="1001" //* 定义当前显示新闻的类别，根据客户实际情况定 Const PerPage=15 //* 定义每页显示的新闻条数 Const MarChr=40 //* 定义新闻标题显示的最多字数 Const Dotimg="" //* 定义起头的小图标，存放路径请存放与当前目录下的 images 目录 Const BgImg="" //* 定义相临2条新闻间的分隔单元格的填充图，存放同上， 图片的标准是1*1 个像素 Const SchTitle="" //* 定义搜索，空 表示没有，值表示显示的提示文本。 Const IsClk=1 //*定义是否显示点击次数 Const IsDte=1 //*定义是否显示日期 Const ViewOpen="" //*定义弹出的窗口文件名。 Const ViewCurr="detail.asp" //*定义非弹出时候，浏览详细的页面文件名。 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,img1,img2,img3,img4,img5,img6,color,flg,clicked FROM customNEWS" //* 定义查询语句 StrWhere=" Where dealerid="&CorpNo&" And ispublished=1 And category ='"&StrClass&"'" //定义查询条件 StrOrder=" Order by color desc,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 //=================================== 信息显示 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 Addcolor(maxstr(ObjRst.Fields("title"),MaxChr),ObjRst.Fields("color")) Response.Write Addnew(ObjRst.Fields("color"),"New","FF0000") 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 "~视频!" %> <%=ObjRst.Fields("clicked")%> <%=ObjRst.Fields("pubdate")%>

　暂无记录!
每页<%=Perpage%> 条,  共 <%=TotalPage%> 页,   <%=TotalRecords%>条.  首页  上页  下页  末页  转页
<% //=================================== If ObjRst.State=1 Then ObjRst.Close If ObjCon.State=1 Then ObjCon.Close Set ObjRst=Nothing Set ObjCon=Nothing ////////////////////////////////////////// %>