福建省科学技术厅

<% function changechr(str) changechr=replace(replace(replace(replace(str,"<","<"),">",">"),chr(13),"
")," "," ") changechr=replace(replace(replace(replace(changechr,"[sayyes]","

"),"[red]",""),"[big]","") changechr=replace(replace(replace(replace(changechr,"[/sayyes]",">"),"[/b]",""),"[/red]",""),"[/big]","") end function news_xxbh=request("news_xxbh") news_xxlb=request("news_xxlb") ttt=request("ttt") set rs=server.createobject("adodb.recordset") sql="select * from tab_type where type_lbbh="&news_xxlb rs.open sql,conn,1,1 type_lbmc=rs("type_lbmc") 'unit_cname=rs("unit_cname") 'unit_dwqx=rs("unit_dwqx") 'unit_dwjj=rs("unit_dwjj") rs.close %> <% set rs=server.createobject("adodb.recordset") sql="select * from tab_news where news_xxbh="&news_xxbh rs.open sql,conn,1,1 news_xxbt=changechr(rs("news_xxbt")) news_xxnr=changechr(rs("news_xxnr")) news_lydw=changechr(rs("news_lydw")) news_tpsm=changechr(rs("news_tpsm")) nian=cint(left(cstr(rs("news_djsj")),4)) yue=cint(mid(cstr(rs("news_djsj")),5,2)) ri=cint(mid(cstr(rs("news_djsj")),7,2)) set rs1=server.createobject("adodb.recordset") sql1="select * from tab_unit where unit_dwbh="&news_lydw rs1.open sql1,conn,1,1 unit_dwmc=rs1("unit_dwmc") rs1.close %> 福建省科学技术厅