<% 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 %>
<%=rst("classname")%>
<%=rs("newsname")%>
【发布时间:<%=rs("newsadddate")%>】 【查看次数:<%=rs("newshits")%>】 【字体:  】【颜色: 绿
+
<%if rs("img")<>"" then%>
" target="_blank" title="查看全圖"> " border=0 onload="if(this.width>600)this.width=600">
<%end if%>
<%=rs("newscot")%>