<%
'显示调查
Sub ShowInquiry()
response.Write ""
End Sub
Sub ShowImageNews()
sql="select top 1 * from "&infosheet&" where n_image is not null order by flag,id desc"
rs.open sql,conn,1,1
if not rs.eof then
strtitle=trim(rs.fields("title"))
strcontent=trim(replace(rs.fields("content")," "," "))
if len(strtitle)>16 then
strtitle=left(strtitle,16) & "..."
end if
if len(strcontent)>80 then
strcontent=left(strcontent,80)& "..."
end if
response.Write "
"
end if
rs.close
End Sub
Sub ShowGG()
sql="select top 1 * from "&infosheet&" where s_type='集团公告' order by flag,id desc"
rs.open sql,conn,1,1
if not rs.eof then
strtitle=trim(rs.fields("title"))
strcontent=trim(replace(rs.fields("content")," "," "))
if len(strtitle)>16 then
strtitle=left(strtitle,16) & "..."
end if
if len(strcontent)>90 then
strcontent=left(strcontent,90)& "..."
end if
response.write ""
end if
rs.close
End Sub
%>
安徽森源电器有限公司
