|
零配件手冊 |
|
銷售網(wǎng)絡 |
|
|
 |
您現(xiàn)在的位置：首頁
>> 新聞中心 >> 公司新聞 |
<%
//Option Explicit
Response.Buffer = True
//*******************************常量定義開始
Const StrClass="1001" //* 定義當前顯示新聞的類別，根據(jù)客戶實際情況定
//*******************************常量定義結(jié)束
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
%>
|
