<%@ LANGUAGE="VBSCRIPT" %> <% DbPath = SERVER.MapPath("../database/topboy-2002.mdb") Set conn = Server.CreateObject("ADODB.Connection") conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DbPath %>

<% set rs=server.createobject("adodb.recordset") set rs2=server.createobject("adodb.recordset") sqltext="select top 8 * from topboy_message where mtype = 'yinxiang' and show = 'y' order by id desc" sqltext2="select top 8 * from topboy_message where mtype = mtype and show = 'y' order by id desc" rs.open sqltext,conn,adOpenkeyset,adlockoptimistic,adcmdtext rs2.open sqltext2,conn,adOpenkeyset,adlockoptimistic,adcmdtext if RS.eof and RS.bof then response.write"

" Response.write " 您好，目前暂时没有相关信息！" else do While Not rs.EOF %> <% RS.Movenext loop end if %>

" target="_blank"> <% =rs("title") %> <% if rs("id")+8 >= rs2("id") then response.write "

" end if %>

更多音箱资料>>>

推荐配置

<% set rs=server.createobject("adodb.recordset") sqltext="select top 10 * from topboy_message where mtype = 'tuijianpeizhi' and show = 'y' order by id desc" rs.open sqltext,conn,adOpenkeyset,adlockoptimistic,adcmdtext set rs2=server.createobject("adodb.recordset") sqltext2="select top 8 * from topboy_message where mtype = mtype and show = 'y' order by id desc" rs2.open sqltext2,conn,adOpenkeyset,adlockoptimistic,adcmdtext if RS.eof and RS.bof then response.write"

" Response.write " 您好，目前暂时没有相关信息！" else do While Not rs.EOF %> <% RS.Movenext loop end if %>

" target="_blank"> <% =rs("title") %> <% if rs("id")+8 >= rs2("id") then response.write"

" end if %>

更多内容>>>

家庭影院

<% set rs=server.createobject("adodb.recordset") sqltext="select top 10 * from topboy_message where mtype = 'hometheater' and show = 'y' order by id desc" rs.open sqltext,conn,adOpenkeyset,adlockoptimistic,adcmdtext set rs2=server.createobject("adodb.recordset") sqltext2="select top 8 * from topboy_message where mtype = mtype and show = 'y' order by id desc" rs2.open sqltext2,conn,adOpenkeyset,adlockoptimistic,adcmdtext if RS.eof and RS.bof then response.write"

" Response.write " 您好，目前暂时没有相关信息！" else do While Not rs.EOF %> <% RS.Movenext loop end if %>

" target="_blank"> <% =rs("title") %> <% if rs("id")+8 >= rs2("id") then response.write"

" end if %>

更多影院>>>

超值商品

<% set rs=server.createobject("adodb.recordset") sqltext="select top 10 * from topboy_message where mtype = 'product' and show = 'y' order by id desc" rs.open sqltext,conn,adOpenkeyset,adlockoptimistic,adcmdtext set rs2=server.createobject("adodb.recordset") sqltext2="select top 8 * from topboy_message where mtype = mtype and show = 'y' order by id desc" rs2.open sqltext2,conn,adOpenkeyset,adlockoptimistic,adcmdtext if RS.eof and RS.bof then response.write"

" Response.write " 您好，目前暂时没有相关信息！" else do While Not rs.EOF %> <% RS.Movenext loop end if %>

" target="_blank"> <% =rs("title") %> <% if rs("id")+8 >= rs2("id") then response.write "

" end if %>

更多特价商品>>>

关于三越

<% set rs=server.createobject("adodb.recordset") sqltext="select top 10 * from topboy_message where mtype = 'about' and show = 'y' order by id desc" rs.open sqltext,conn,adOpenkeyset,adlockoptimistic,adcmdtext set rs2=server.createobject("adodb.recordset") sqltext2="select top 8 * from topboy_message where mtype = mtype and show = 'y' order by id desc" rs2.open sqltext2,conn,adOpenkeyset,adlockoptimistic,adcmdtext if RS.eof and RS.bof then response.write"

" Response.write " 您好，目前暂时没有相关信息！" else do While Not rs.EOF %> <% RS.Movenext loop end if %>

" target="_blank"> <% =rs("title") %> <% if rs("id")+8 >= rs2("id") then response.write "

" end if %>

我要了解更多>>>

<% set rs=server.createobject("adodb.recordset") set rs2=server.createobject("adodb.recordset") sqltext="select top 6 * from topboy_message where mtype = 'GongFang' and show = 'y' order by id desc" rs.open sqltext,conn,adOpenkeyset,adlockoptimistic,adcmdtext sqltext2="select top 8 * from topboy_message where mtype = mtype and show = 'y' order by id desc" rs2.open sqltext2,conn,adOpenkeyset,adlockoptimistic,adcmdtext if RS.eof and RS.bof then response.write"

" Response.write " 您好，目前暂时没有相关信息！" else do While Not rs.EOF %> <% RS.Movenext loop end if %>

" target="_blank"> <% =rs("title") %> <% if rs("id")+8 >= rs2("id") then response.write"

" end if %>

更多功放资料>>>

<% set rs=server.createobject("adodb.recordset") sqltext="select top 6 * from topboy_message where mtype = 'xinhaoyuan' and show = 'y' order by id desc" rs.open sqltext,conn,adOpenkeyset,adlockoptimistic,adcmdtext set rs2=server.createobject("adodb.recordset") sqltext2="select top 8 * from topboy_message where mtype = mtype and show = 'y' order by id desc" rs2.open sqltext2,conn,adOpenkeyset,adlockoptimistic,adcmdtext if RS.eof and RS.bof then response.write"

" Response.write " 您好，目前暂时没有相关信息！" else do While Not rs.EOF %> <% RS.Movenext loop end if %>

" target="_blank"> <% =rs("title") %> <% if rs("id")+8 >= rs2("id") then response.write"

" end if %>

更多信号源>>>

<% set rs=server.createobject("adodb.recordset") sqltext="select top 6 * from topboy_message where mtype = 'Zhoubianqicai' and show = 'y' order by id desc" rs.open sqltext,conn,adOpenkeyset,adlockoptimistic,adcmdtext set rs2=server.createobject("adodb.recordset") sqltext2="select top 8 * from topboy_message where mtype = mtype and show = 'y' order by id desc" rs2.open sqltext2,conn,adOpenkeyset,adlockoptimistic,adcmdtext if RS.eof and RS.bof then response.write"

" Response.write " 您好，目前暂时没有相关信息！" else do While Not rs.EOF %> <% RS.Movenext loop end if %>

" target="_blank"> <% =rs("title") %> <% if rs("id")+8 >= rs2("id") then response.write"

" end if %>

更多周边器材>>>

<% set rs=server.createobject("adodb.recordset") sqltext="select top 6 * from topboy_message where mtype = 'fashaodiy' and show = 'y' order by id desc" rs.open sqltext,conn,adOpenkeyset,adlockoptimistic,adcmdtext set rs2=server.createobject("adodb.recordset") sqltext2="select top 8 * from topboy_message where mtype = mtype and show = 'y' order by id desc" rs2.open sqltext2,conn,adOpenkeyset,adlockoptimistic,adcmdtext if RS.eof and RS.bof then response.write"

" Response.write " 您好，目前暂时没有相关信息！" else do While Not rs.EOF %> <% RS.Movenext loop end if %>

" target="_blank"> <% =rs("title") %> <% if rs("id")+8 >= rs2("id") then response.write"

" end if %>

更多发烧DIY>>>

<% set rs=server.createobject("adodb.recordset") sqltext="select top 6 * from topboy_message where mtype = 'disc' and show = 'y' order by id desc" rs.open sqltext,conn,adOpenkeyset,adlockoptimistic,adcmdtext set rs2=server.createobject("adodb.recordset") sqltext2="select top 8 * from topboy_message where mtype = mtype and show = 'y' order by id desc" rs2.open sqltext2,conn,adOpenkeyset,adlockoptimistic,adcmdtext if RS.eof and RS.bof then response.write"

" Response.write " 您好，目前暂时没有相关信息！" else do While Not rs.EOF %> <% RS.Movenext loop end if %>

" target="_blank"> <% =rs("title") %> <% if rs("id")+8 >= rs2("id") then response.write"

" end if %>

更多发烧碟片>>>

－论坛精华－

－三越新闻－

－论坛最新话题－

<% set rs=server.createobject("adodb.recordset") sqltext="select top 6 * from topboy_message where mtype = 'yeneidongtai' and show = 'y' order by id desc" rs.open sqltext,conn,adOpenkeyset,adlockoptimistic,adcmdtext set rs2=server.createobject("adodb.recordset") sqltext2="select top 8 * from topboy_message where mtype = mtype and show = 'y' order by id desc" rs2.open sqltext2,conn,adOpenkeyset,adlockoptimistic,adcmdtext if RS.eof and RS.bof then response.write"

" Response.write " 您好，目前暂时没有相关信息！" else do While Not rs.EOF %> <% RS.Movenext loop end if %>

&mtype = 'yeneidongtai'" target="_blank"> <% =rs("title") %> <% if rs("id")+8 >= rs2("id") then response.write"

" end if %>

进入精华区>>>

更多信息>>>

进入论坛>>>

站内信息搜索:

请输入最简短的关键字，以下是常用关键字，点击就可以直接搜索到相关资料

`斯巴克`	`Melody`	`A88T`	`CDT15A`	`TA30`	`EI管`	`EH管`	`JJ管`	Svetlana	`SOVTEK`
`思奔达`	`S3/5`	`AE`	`夜莺`	`音乐之旅`	`美丽安`	`朗泉`	`EPOS`	`宝龙`	卡达斯
`三越版`	`帐号`	`安装`	`君子脚架`	`Bona线材`	`贵族音响架`	`钟神`	`艺术家`	`何氏`	`AAD`