|
|
 |
<%
Response.Buffer = True
Dim ObjRst,ObjCon,StrSql,StrWhere,StrOrder,StrQry,i
Set ObjRst=Server.CreateObject("ADODB.RecordSet")
Set ObjCon=Server.CreateObject("ADODB.Connection")
ObjCon.Open DataBase //庫連接
%>
<%
StrCate="1001"
//ObjRst.MaxRecords=6
ObjRst.Open "Select id,title,pubdate from customnews where dealerid="&CorpNo&" and ispublished=1 and category='"&StrCate&"' Order by pubdate desc,id desc fetch first 4 rows only ",ObjCon
i=1
Do While Not ObjRst.Eof %>
">
<%=maxstr(ObjRst.Fields("title"),30)%> |
<%=Objrst("pubdate")%> |
<%ObjRst.MoveNext
i=i+1
Loop
ObjRst.Close
// ObjRst.MaxRecords=0
If ObjRst.State=1 Then ObjRst.Close
If ObjCon.State=1 Then ObjCon.Close
Set ObjRst=Nothing
Set ObjCon=Nothing
%>
|
|
|
|
企業(yè)簡介 |
|
零配件手冊 |
|
銷售網(wǎng)絡(luò) |
|
