公告＿div>
产品分类PRODUCTS
下一?a>
-
<%
reval = ""
sql="SELECT classid ,classname,parentid,Child,depth,rootid,orderid,parentpath from tb_protype order by rootid,orderid"
set rsc = conn.execute(sql)
if not rsc.eof then
reval = reval & "
新产哿span>NEW PRODUCTS
<%
' sql="select top 1 id,title,intro,picsmall from tb_pro where ifshow=1 order by updatetime desc"
' reval=""
' set rsp=conn.execute(sql)
' if not rsp.eof then
' pid = rsp("id")
' ptitle = rsp("title")
' picsmall = rsp("picsmall")
' pintro = rsp("intro")
' reval = reval & " " & vbCrlf
' reval = reval & " " & vbCrlf
'
' end if
' rsp.close:set rsp=nothing
'response.Write reval
%>
-
<%
sql = "select top 11 id,updatetime,title from tb_file where classid=5 and ifpass=1 order by updatetime desc"
set rsf= conn.execute(sql)
revel=""
if not rsf.eof then
ii=0
do while not rsf.eof
id= rsf("id")
title= rsf("title")
updatetime = rsf("updatetime")
updatetimearry = split(updatetime," ")
revel = revel& "
- "&title&" " & vbCrlf '["&updatetimearry(0)&"] rsf.movenext ii=ii+1 loop end if if ii<5 then revel = revel&revel&revel elseif ii<10 then revel =revel&revel end if rsf.close:set rsf=nothing response.Write revel %>
产品用逿span>USE
-
<%
reval=""
sql="select title,intro from tb_file where classid=3 and ifpass=1 order by updatetime"
set rsu = conn.execute(sql)
if not rsu.eof then
do while not rsu.eof
utitle=rsu("title")
uintro=rsu("intro")
reval = reval & "
- " & vbCrlf
reval = reval & " " & vbCrlf
reval = reval & " "&uintro&"" & vbCrlf reval = reval & " " & vbCrlf
rsu.movenext
loop
end if
rsu.close:set rsu=nothing
response.Write reval
%>
涂山国际友情链接:
火箭vs快船 火箭vs湖人季后?a> 火箭队球员名卿a> 雷霆vs火箭 nba火箭vs马刺 nba火箭直播 cctvnba直播 火箭队直撿a>
火箭vs森林狿font> 热火vs开拓耿a> 凯尔特人vs湖人 凯尔特人打架 澳门百家乿a> 百家乿a> 赌博 88娱乐?font> E世博娱乐埿font> 博彩逿a> 皇冠罿a>
百搜友情链接?/font>百樂坊娱乐城 新濠娱乐?/a> 东方夏威夷娱乐城 欧华娱乐?/a> 凯斯娱乐?/a> 菲彩娱乐?/a> 伟博娱乐?/a> 凱旋门娱乐城 易盈娱乐?/font>