零配件手册 |
销售网络 |
|
|
|
您现在的位置:首页
>> 新闻中心 >> 公司新闻 |
<%
//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
%>
|