|
|
|
|
 专家咨询信箱 |
|
|
| 您在土工合成材料应用有什么问题或疑难，欢迎您向我们的技术专家咨询。 |
 我要咨询 |
留言簿 |
|
|
|
|
|
|
|
 |
|
 山东泰峰塑料土工材料有限公司始建于1971年，坐落于五岳之首的泰山脚下，是国内知名的生产土工合成材料的大型综合性企业和自营进出口企业。主要生产“泰峰”牌系列土工合成材料。泰峰公司现有固定资产4000万元，建筑总面积1.7万m2。是国内目前唯一生产土工膜、复合土工膜，土工布、土工格栅、土工网、土工片材、土工格室，建筑复合膜等系列土工合成材料的综合性生产企业。九五年公司从德国、意大利引进防水板材、复合土工膜等产品的关键生产设备。产品经水利部、交通部、南京水科院．国家经贸委、国家质量技术监督局测试，各项指标均高于国内同类产品，经国家信息中心检索查询，产品属国内领先水平。>>详细资料 |
|
|
 |
|
|
|
|
|
|
|
|
|
|
<%
set conInfo = Server.CreateObject ("ADODB.connection")
conInfo.Open Application("ConnectionString")
set rstInfo = Server.CreateObject ("ADODB.Recordset")
Sql = "SELECT supply_id,supply_dire,supply_title FROM supplies ORDER BY supply_id DESC"
rstInfo.Open Sql, conInfo, 1, 3
i = 1
do while (not rstInfo.EOF) and (i <= 9)
if rstInfo.Fields("supply_dire")=1 then
Response.Write "" & "【供】" & ""
else
Response.Write "" & "【求】" & ""
end if
if len(rstInfo.Fields("supply_title")) > 17 then
chrsupplytitle = left(trim(rstInfo.Fields("supply_title")),17)
Response.Write "" & chrsupplytitle & "...
"
else
Response.Write "" & rstInfo.Fields("supply_title") & "
"
end if
rstInfo.MoveNext
i = i + 1
Loop
rstInfo.Close
%>
|
|
|
|
|
|
|
|
|
|
|
|
|
<%
Sql = "SELECT idnews,newstitle,newspath FROM news ORDER BY idnews DESC"
rstInfo.Open Sql, conInfo, 1, 3
i = 1
do while (not rstInfo.EOF) and (i <= 5)
Response.Write "◇"
if len(rstInfo.Fields("newstitle")) > 17 then
chrnewstitle = left(trim(rstInfo.Fields("newstitle")),17)
Response.Write "" & chrnewstitle & "...
"
else
Response.Write "" & rstInfo.fields("newstitle") & "
"
end if
rstInfo.MoveNext
i = i + 1
Loop
rstInfo.Close
%>
|
|
|
|
|
|
|
|
|
|
|
|
|
|
<%
Sql = "SELECT idcriterion,criteriontitle,criterionpath FROM criterion ORDER BY idcriterion DESC"
rstInfo.Open Sql, conInfo, 1, 3
i = 1
do while (not rstInfo.EOF) and (i <= 4)
Response.Write "◇"
if len(rstInfo.Fields("criteriontitle")) > 22 then
chrcriteriontitle = left(trim(rstInfo.Fields("criteriontitle")),22)
Response.Write "" & chrcriteriontitle & "...
"
else
Response.Write "" & rstInfo.fields("criteriontitle") & "
"
end if
rstInfo.MoveNext
i = i + 1
Loop
rstInfo.Close
%> |
|
|
|
|
|
|
|
|
|
|
|
<%Sql = "SELECT idapplication,applicationtitle,applicationpath FROM application ORDER BY idapplication DESC"
rstInfo.Open Sql, conInfo, 1, 3
i = 1
do while (not rstInfo.EOF) and (i <= 4)
Response.Write "◇"
if len(rstInfo.Fields("applicationtitle")) > 19 then
chrapplicationtitle = left(trim(rstInfo.Fields("applicationtitle")),19)
Response.Write "" & chrapplicationtitle & "...
"
else
Response.Write "" & rstInfo.fields("applicationtitle") & "
"
end if
rstInfo.MoveNext
i = i + 1
Loop
rstInfo.Close
set rstInfo = nothing
set conInfo = nothing
%>
|
|
|
|
|
|
|
|
|
|
