%
if request("id")<>"" then
sql="select * from news where id="&request("id")&" order by id desc"
else
response.write ""
response.end
end if
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
if rs.eof and rs.bof then
response.write ""
response.end
end if
rs("newshits")=rs("newshits")+1
rs.update
ids=rs("flag")
if ids=0 then
title=" >> 权属企业"
end if
if ids=1 then
title=" >> 公司要闻"
end if
if ids=2 then
title=" >> 投资产业"
end if
if ids=3 then
title=" >> 项目流程"
end if
if ids=4 then
title=" >> 寻求合作"
end if
ggid=11
if rs("classid")<>"" then
Set rst= Server.CreateObject("ADODB.Recordset")
rst.open "select * from class where classid="&rs("classid"),conn,1,1
if rst.EOF then
else
title=title&" >> "&rst("classname")
end if
rst.close
set rst=nothing
else
if request("key")<>"" then
title=title&" >> 搜索 >> "&request("key")
else
title=title
end if
end if
%>
<%=webname%>--商务活动支持
|
<%
Set rst= Server.CreateObject("ADODB.Recordset")
rst.open "select * from class where classmid=1 ",conn,1,1
if rst.EOF then
else
do while NOT rst.EOF
%>
|
<%
rst.MoveNext
loop
end if
rst.close
set rst=nothing
%>
|
【发布时间:<%=rs("newsadddate")%>】 【查看次数:<%=rs("newshits")%>】 【字体:大 中 小】【颜色:红 绿 蓝 黑】 |
|
<%if rs("img")<>"" then%>
<%end if%>
|
|