%
dim sql,name,sjid,rs,l,a,b,riqi,years,months,days,minutes,Seconds,dindan,yh,u,i,c
riqi=now
years=right(year(riqi),2)
months=month(riqi)
days=day(riqi)
minutes=minute(riqi)
Seconds=Second(riqi)
if len(days)=1 then
days="0"&days
end if
if len(months)=1 then
months="0"&months
end if
if len(minutes)=1 then
minutes="0"&minutes
end if
if len(seconds)=1 then
seconds="0"&seconds
end if
dindan=years&months&days&minutes&seconds
if request.cookies("dindan")="" then
response.cookies("dindan")=dindan
else
dindan=request.cookies("dindan")
response.cookies("dindan")=dindan
end if
a=1
b=1
%>
上海沪江泵阀厂
<%
sql="select id,xl from xl where xilie='阀门'"
set rs=conn.execute (sql)
i=1
if rs.eof then
rs.close : set rs=nothing
else
response.write "
阀门系列产品 "&rs(1)&""
rs.movenext
do while not rs.eof
response.write " "&rs(1)&""
rs.movenext
loop
response.write "
"
rs.close : set rs=nothing
i=i+1
end if
sql="select id,xl from xl where xilie='阀门配件'"
set rs=conn.execute (sql)
if rs.eof then
rs.close : set rs=nothing
else
response.write "
配件系列产品 "&rs(1)&""
rs.movenext
do while not rs.eof
response.write " "&rs(1)&""
rs.movenext
loop
response.write "
"
rs.close : set rs=nothing
i=i+1
end if
sql="select id,xl from xl where xilie='水泵'"
set rs=conn.execute (sql)
if rs.eof then
rs.close : set rs=nothing
else
response.write "
泵系列产品 "&rs(1)&""
rs.movenext
do while not rs.eof
response.write " "&rs(1)&""
rs.movenext
loop
response.write "