新闻中心

零配件手册

销售网络

 

 
 您现在的位置:首页 >> 新闻中心 >> 公司新闻
<% //Option Explicit Response.Buffer = True //*******************************常量定义开始 Const StrClass="1001" //* 定义当前显示新闻的类别,根据客户实际情况定 //*******************************常量定义结束 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")%>](浏览:<%=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 "对不起,您所要找的信息不存在!" End If ObjRst.Close %>

【字体:    】【打印
<%IF ObjRst.STATE=1 THEN ObjRst.CLOSE ObjCon.CLOSE SET ObjRst=NOTHING SET ObjCon=NOTHING %>

返回上页