<%=ntitle%>
发布日期 : <%=oRs("z_Time")%>
<%response.Write(ncontent)%>
<%
oRs.close()
dim titlekey,condition,n
n=0
titlekey=array("领导","莅临","视察","参观","考察","上街","工业园")
sSql="select * from CoolSiteData where C_Recycle=False order by C_ID Desc"
oRs.open sSql,oConn,1,1
%>
") else %>
<%end if%>
新闻视频
<% if oRs.bof and oRs.eof then response.Write("暂无专题视频！") %> <%else%> <% dim sitepics while not oRs.eof and n<3 condition=false sitepics=oRs("C_SitePicS") stitle=oRs("C_SiteName") for i=1 to Ubound(titlekey) pos=instr(1,stitle,titlekey(i),1) if pos>0 then condition=true exit for end if next if condition then n=n+1 if left(sitepics,3)="../" then sitepics="/ver3.0/"&mid(sitepics,4) end if %>
/<%=oRs("C_ID")%>.html" target="_blank">
<%="
"&left(oRs("C_SiteName"),10)%>
<%end if%>
<%
oRs.movenext
wend
oRs.close()
%>
<%end if%>
"&left(oRs("C_SiteName"),10)%>
相关新闻
<% n=0 titlekey=array("领导","莅临","视察","参观","考察","上街","工业园") sSql="Select * From NewsData Where d_classid =2 and D_Recycle=False Order By D_ID Desc" oRs.open sSql,oConn,1,1 if oRs.eof and oRs.bof then response.Write("暂时无专题新闻！请及时添加！") else %>
-
<%while n<=10 and not oRs.eof%>
<%
condition=false
stitle=oRs("D_Title")
for i=1 to Ubound(titlekey)
pos=instr(1,stitle,titlekey(i),1)
if pos>0 then
condition=true
exit for
end if
next
%>
<% if condition then%>
<%ndate=split("'"&oRs("D_Time")&"'"," ")%>
- /<%=oRs("d_id")%>.html"><%=left(oRs("D_Title"),25)%><%=mid(ndate(0),2)%> <%n=n+1%> <%end if%> <% oRs.movenext wend oRs.close() %>
相关图片
<%
dim rs
set rs=server.CreateObject("adodb.recordset")
Sql1="select top 1 * from PictureData where P_PictureClassID=9 and P_Recycle=False order by P_ID Desc"
sql2="select top 1 * from PictureData where P_PictureClassID=6 and P_Recycle=False order by P_ID Desc"
sql3="select top 1 * from PictureData where P_PictureClassID=4 and P_Recycle=False order by P_ID Desc"
sql4="select top 1 * from PictureData where P_PictureClassID=5 and P_Recycle=False order by P_ID Desc"
sql5="select top 1 * from PictureData where P_PictureClassID=2 and P_Recycle=False order by P_ID Desc"
sql6="select top 1 * from PictureData where P_PictureClassID=1 and P_Recycle=False order by P_ID Desc"
tuku_link1="http://picture.lmlq.com/zhuanti/"
tuku_link2="http://picture.lmlq.com/about/"
tuku_link3="http://picture.lmlq.com/chanpin/"
tuku_link4="http://picture.lmlq.com/hezuo/"
tuku_link5="http://picture.lmlq.com/huodong/"
tuku_link6="http://picture.lmlq.com/rongyu/"
%>
<%
rs.open Sql1,oConn,1,1
if Rs.bof and Rs.eof then
response.Write("暂无专题图片,请及时添加！
") %> <%else%> <% while not Rs.eof sitepics=Rs("P_PictureUrlS") if left(sitepics,3)="../" then sitepics="/ver3.0/"&mid(sitepics,4) end if %> <% Rs.movenext() wend rs.close() %> <%end if%> <% rs.open Sql2,oConn,1,1 if Rs.bof and Rs.eof then response.Write("暂无专题图片,请及时添加！
") %> <%else%> <% while not Rs.eof sitepics=Rs("P_PictureUrlS") if left(sitepics,3)="../" then sitepics="/ver3.0/"&mid(sitepics,4) end if %> <% Rs.movenext() wend rs.close() %> <%end if%> <% rs.open Sql3,oConn,1,1 if Rs.bof and Rs.eof then response.Write("暂无专题图片,请及时添加！
") %> <%else%> <% while not Rs.eof sitepics=Rs("P_PictureUrlS") if left(sitepics,3)="../" then sitepics="/ver3.0/"&mid(sitepics,4) end if %> <% Rs.movenext() wend rs.close() %> <%end if%> <% rs.open Sql4,oConn,1,1 if Rs.bof and Rs.eof then response.Write("暂无专题图片,请及时添加！
") %> <%else%> <% while not Rs.eof sitepics=Rs("P_PictureUrlS") if left(sitepics,3)="../" then sitepics="/ver3.0/"&mid(sitepics,4) end if %> <% Rs.movenext() wend rs.close() %> <%end if%> <% rs.open Sql5,oConn,1,1 if Rs.bof and Rs.eof then response.Write("暂无专题图片,请及时添加！
") %> <%else%> <% while not Rs.eof sitepics=Rs("P_PictureUrlS") if left(sitepics,3)="../" then sitepics="/ver3.0/"&mid(sitepics,4) end if %> <% Rs.movenext() wend rs.close() %> <%end if%> <% rs.open Sql6,oConn,1,1 if Rs.bof and Rs.eof then response.Write("暂无专题图片,请及时添加！
") %> <%else%> <% while not Rs.eof sitepics=Rs("P_PictureUrlS") if left(sitepics,3)="../" then sitepics="/ver3.0/"&mid(sitepics,4) end if %> <% Rs.movenext() wend rs.close() set rs=nothing set oRs=nothing %> <%end if%>
") %> <%else%> <% while not Rs.eof sitepics=Rs("P_PictureUrlS") if left(sitepics,3)="../" then sitepics="/ver3.0/"&mid(sitepics,4) end if %> <% Rs.movenext() wend rs.close() %> <%end if%> <% rs.open Sql2,oConn,1,1 if Rs.bof and Rs.eof then response.Write("暂无专题图片,请及时添加！
") %> <%else%> <% while not Rs.eof sitepics=Rs("P_PictureUrlS") if left(sitepics,3)="../" then sitepics="/ver3.0/"&mid(sitepics,4) end if %> <% Rs.movenext() wend rs.close() %> <%end if%> <% rs.open Sql3,oConn,1,1 if Rs.bof and Rs.eof then response.Write("暂无专题图片,请及时添加！
") %> <%else%> <% while not Rs.eof sitepics=Rs("P_PictureUrlS") if left(sitepics,3)="../" then sitepics="/ver3.0/"&mid(sitepics,4) end if %> <% Rs.movenext() wend rs.close() %> <%end if%> <% rs.open Sql4,oConn,1,1 if Rs.bof and Rs.eof then response.Write("暂无专题图片,请及时添加！
") %> <%else%> <% while not Rs.eof sitepics=Rs("P_PictureUrlS") if left(sitepics,3)="../" then sitepics="/ver3.0/"&mid(sitepics,4) end if %> <% Rs.movenext() wend rs.close() %> <%end if%> <% rs.open Sql5,oConn,1,1 if Rs.bof and Rs.eof then response.Write("暂无专题图片,请及时添加！
") %> <%else%> <% while not Rs.eof sitepics=Rs("P_PictureUrlS") if left(sitepics,3)="../" then sitepics="/ver3.0/"&mid(sitepics,4) end if %> <% Rs.movenext() wend rs.close() %> <%end if%> <% rs.open Sql6,oConn,1,1 if Rs.bof and Rs.eof then response.Write("暂无专题图片,请及时添加！
") %> <%else%> <% while not Rs.eof sitepics=Rs("P_PictureUrlS") if left(sitepics,3)="../" then sitepics="/ver3.0/"&mid(sitepics,4) end if %> <% Rs.movenext() wend rs.close() set rs=nothing set oRs=nothing %> <%end if%>