<%Title=Trim(request("Title"))
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select Content from Aboutus where Title='"&Title&"'"
rs.open sql,conn,1,3
%>
<%
function cutstr(tempstr,tempwid)
if len(tempstr)>tempwid then
cutstr=left(tempstr,tempwid)&"..."
else
cutstr=tempstr
end if
end function%>
<%
if Title="zhongxin" then
response.write("金属表面处理_合金催化液_环保电镀工艺_关于中科")
elseif Title="leader" then
response.write("领导致辞")
elseif Title="jijin" then
response.write("用户集锦")
elseif Title="jszixun" then
response.write("金属表面处理技术_合金催化液技术咨询")
elseif Title="hhlc" then
response.write("辉煌历程")
elseif Title="cxjd" then
response.write("创新基地")
elseif Title="falv" then
response.write("法律顾问")
elseif Title="cxjz" then
response.write("创新机制")
elseif Title="marketing" then
response.write("销售网络")
elseif Title="rongyuzizhi" then
response.write("合金催化液_荣誉资质")
elseif Title="jishu" then
response.write("合金催化液_替代电镀_环保电镀_技术概论")
elseif Title="kehuwenda" then
response.write("合金催化液技术_环保电镀工艺_替代电镀_客户百问")
elseif Title="cuihua" then
response.write("电镀设备_合金催化设备")
elseif Title="hezuofanshi" then
response.write("合作方式")
end if
%>
-北京中科创新科技发展中心
<%
set rs_news=server.createobject("adodb.recordset")
sqltext4="select top 5 * from news where BigClassName='qiyefengcai' order by id desc"
rs_news.open sqltext4,conn,1,1
%>
