 |
|
<%'********调用展会信息%>
<% Set RS=Server.CreateObject("ADODB.RecordSet")
dim SQLQuery79
SQLQuery79 = "Select top 8 newsid,caption,newsType,newspath,addtime,pic,userid FROM enews where enewsstop=1 and zhuanti<>1 and newstype=8880 ORDER BY newsid DESC"
RS.Open SQLQuery79, Conn,1,1
IF RS.BOF and RS.EOF then %>
数据整理中
<%
else
k_zhanh=6
%>
<% for i_zhanh=1 to k_zhanh
if rs.eof or rs.bof then exit for
newsid8=rs("newsid")
caption8_b=server.htmlencode(rs("caption"))
caption8=replace(caption8_b," ","")
caption8=left(caption8,15)
newstype8=rs("newstype")
newspath8=rs("newspath")
pic8=rs("pic")
userid8=trim(rs("userid"))
addtime8=datevalue(rs("addtime"))
if newstype8="8880" then
newstype_8="企业公告"
elseif newstype8="9990" then
newstype_8="招商引资"
elseif newstype8="7770" then
newstype_8="展会信息"
else
newstype_8="行业资讯"
end if
%>
<%=caption8%> (<%=addtime8%>) |
<% rs.movenext
next
rs.close
set rs=nothing
end if
%>
| 查看更多... |
|
 |
|
<%'********调用展会信息%>
<% Set RS=Server.CreateObject("ADODB.RecordSet")
dim SQLQuery8
SQLQuery8 = "Select top 6 newsid,caption,newsType,newspath,addtime,pic,userid FROM enews where enewsstop=1 and zhuanti<>1 and newstype=7770 ORDER BY newsid DESC"
RS.Open SQLQuery8, Conn,1,1
IF RS.BOF and RS.EOF then %>
数据整理中
<%
else
dim k_zhanh,i_zhanh
dim newsid8,caption8,newsType8,newspath8,addtime8,newstype_8,pic8,userid8,caption8_b
k_zhanh=6
%>
<% for i_zhanh=1 to k_zhanh
if rs.eof or rs.bof then exit for
newsid8=rs("newsid")
caption8_b=server.htmlencode(rs("caption"))
caption8=replace(caption8_b," ","")
caption8=left(caption8,15)
newstype8=rs("newstype")
newspath8=rs("newspath")
pic8=rs("pic")
userid8=trim(rs("userid"))
addtime8=datevalue(rs("addtime"))
if newstype8="8880" then
newstype_8="企业公告"
elseif newstype8="9990" then
newstype_8="招商引资"
elseif newstype8="7770" then
newstype_8="展会信息"
else
newstype_8="行业资讯"
end if
%>
<%=caption8%> (<%=addtime8%>) |
<% rs.movenext
next
rs.close
set rs=nothing
end if
%>
| 查看更多... |
|
|