安徽森源电器有限公司

<% '显示调查 Sub ShowInquiry() response.Write "

" sql="select top 1 * from inquiry where i_flag=1 " rs.open sql,conn,1 if rs.eof and rs.bof then else response.write rs.fields("i_content") response.write "
" response.write "" if not isnull(rs.fields("i_choose_1")) and len(rs.fields("i_choose_1"))>0 then response.write "   " & rs.fields("i_choose_1") & "
" end if if not isnull(rs.fields("i_choose_2")) and len(rs.fields("i_choose_2"))>0 then response.write "   " & rs.fields("i_choose_2") & "
" end if if not isnull(rs.fields("i_choose_3")) and len(rs.fields("i_choose_3"))>0 then response.write "   " & rs.fields("i_choose_3") & "
" end if if not isnull(rs.fields("i_choose_4")) and len(rs.fields("i_choose_4"))>0 then response.write "   " & rs.fields("i_choose_4") & "
" end if if not isnull(rs.fields("i_choose_5")) and len(rs.fields("i_choose_5"))>0 then response.write "   " & rs.fields("i_choose_5") & "
" end if end if rs.close 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 ""&_ ""&_ ""&_ ""&_ ""&_ "

"&_ ""&_ ""&_ ""&_ ""&_ ""&_ ""&_ "

"&strtitle&"

"&strcontent&" [图片新闻]

" 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 "" response.Write ""&_ ""&_ ""&_ ""&_ "

"&_ ""&_ ""&_ ""&_ ""&_ ""&_ ""&_ "

"&strtitle&"

"&strcontent&"

" end if rs.close End Sub %> 安徽森源电器有限公司