Home > Hot News

Products
 

 

Hot News

<% //Option Explicit Response.Buffer = True //*******************************常量定义开始 Const StrClass="2001" //* 定义当前显示新闻的类别,根据客户实际情况定 //*******************************常量定义结束 Dim ObjRst,ObjCon,StrSql,Strtitle,i,strdetail Set ObjCon = Server.CreateObject("ADODB.Connection") Set ObjRst = Server.CreateObject("ADODB.Recordset") ObjCon.open Database Dim LngId LngId=Request("findid") If LngId="" Or Not IsNumeric(LngId) Then LngId=0 ObjRst.Open "select * from customnews where id="&LngId&" and ispublished=1 and category ='"&StrClass&"' and dealerid="&CorpNo,ObjCon If Not ObjRst.Eof Then Strtitle=ObjRst.Fields("title") If Not ObjRst.Eof Then ObjCon.ExeCute "Update customnews set clicked=clicked+1 where id="&LngId %>
<%=ObjRst.Fields("title")%>
<%If ObjRst.Fields("stitle")<>"" Then Response.Write "["&ObjRst.Fields("stitle")&"]"%>

[<%=ObjRst.Fields("pubdate")%>][View:<%=ObjRst.Fields("clicked")%>]

 

<% Fext=Ucase(Right( ObjRst.Fields("img1"),2)) If Fext<>"" Then %>

">

<%=ObjRst.Fields("imgtitle1")%>
<% End If %>

  <%Response.Write Replace(ObjRst.Fields("detail"),vbcrlf,"
    ")&"

" For i=2 to 6 If Trim(ObjRst.Fields("img"&i)) <> "" Then%>

">

<%=ObjRst.Fields("imgtitle"&i)%>
<%End If Next Else Response.Write "Nothing!" End If ObjRst.Close %>

[Font size:Big  Medium  Small][Print]

<%IF ObjRst.STATE=1 THEN ObjRst.CLOSE ObjCon.CLOSE SET ObjRst=NOTHING SET ObjCon=NOTHING %>

-- [Back]--

Jobs | Web map | Contact us

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