javastr="" 
<%'打开数据库打开数据表
dim conn   
dim connstr
on error resume next
connstr="DBQ="+server.mappath("../riwoniang/moludemei.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("adodb.connection")
conn.open connstr%>

javastr=javastr+"<table width=\"100%\" border=\"0\" cellspacing=\"0\" cellpadding=\"2\">"
javastr=javastr+"<tr><td style=\"filter:progid:DXImageTransform.Microsoft.Shadow(Color=bbbbbb,Direction=100,strength=1)\">"
javastr=javastr+"<table border=\"0\" cellspacing=\"0\" cellpadding=\"0\">"
javastr=javastr+"<tr><td>"
javastr=javastr+"<a href=\"../../price/index.asp?anclassid=81\"><font color=red>办公</font></a>&nbsp;"
<%sql="select top 7 * from shop_nclass where anclassid=81 and dot=yes order by nclassidorder"
set rs=conn.execute(sql)
do while not rs.eof
nclass=replace(rs("nclass"),"显示器","")
nclass=replace(nclass,"相机","")
nclass=replace(nclass,"摄像机","")
nclass=replace(nclass,"播放器","")
nclass=replace(nclass,"硬盘","")
nclass=replace(nclass,"打印机","")
nclass=replace(nclass,"多功能","")%>
javastr=javastr+"<a href=\"../../price/index.asp?anclassid=<%=rs("anclassid")%>&nclassid=<%=rs("nclassid")%>\"><%=nclass%></a>&nbsp;"
<%rs.movenext
loop%>
javastr=javastr+"</td><td>"
javastr=javastr+"<a href=\"../../price/index.asp?anclassid=78\"><font color=red>数码</font></a>&nbsp;"
<%sql="select top 6 * from shop_nclass where anclassid=78 and dot=yes order by nclassidorder"
set rs=conn.execute(sql)
do while not rs.eof
nclass=replace(rs("nclass"),"播放器","")
nclass=replace(nclass,"数码","")
nclass=replace(nclass,"移动","")%>
javastr=javastr+"<a href=\"../..index.asp?anclassid=<%=rs("anclassid")%>&nclassid=<%=rs("nclassid")%>\"><%=nclass%></a>&nbsp;"
<%rs.movenext
loop%>
javastr=javastr+"</td><td>"
javastr=javastr+"<a href=\"../..index.asp?anclassid=76\"><font color=red>配件</font></a>&nbsp;"
<%sql="select top 7 * from shop_nclass where anclassid=76 and dot=yes order by nclassidorder"
set rs=conn.execute(sql)
do while not rs.eof%>
javastr=javastr+"<a href=\"../../price/index.asp?anclassid=<%=rs("anclassid")%>&nclassid=<%=rs("nclassid")%>\"><%=rs("nclass")%></a>&nbsp;"
<%rs.movenext
loop%>
javastr=javastr+"</td><td>"
javastr=javastr+"<a href=\"../../price/index.asp?anclassid=82\"><font color=red>网络</font></a>&nbsp;"
<%sql="select top 2 * from shop_nclass where anclassid=82 and dot=yes order by nclassidorder"
set rs=conn.execute(sql)
do while not rs.eof%>
javastr=javastr+"<a href=\"../../price/index.asp?anclassid=<%=rs("anclassid")%>&nclassid=<%=rs("nclassid")%>\"><%=rs("nclass")%></a>&nbsp;"
<%rs.movenext
loop%>
javastr=javastr+"</td></tr></table></td></tr>"
javastr=javastr+"<tr><td style=\"filter:progid:DXImageTransform.Microsoft.Shadow(Color=bbbbbb,Direction=100,strength=1)\">"
javastr=javastr+"<table border=0 cellspacing=0 cellpadding=0>"
javastr=javastr+"<tr><td>"
javastr=javastr+"<a href=\"../../price/index.asp?anclassid=80&nclassid=1133\"><font color=red>笔记本</font></a>&nbsp;"
<%sql="select * from pinpai where nclassid=1133 order by pingpaiorder"
set rs=conn.execute(sql)
i=0
do while not rs.eof%>
javastr=javastr+"<a href=\"../../price/index.asp?nclassid=<%=rs("nclassid")%>&ppid=<%=rs("ppid")%>\"><%=rs("pingpainame")%></a>&nbsp;"
<%rs.movenext
i=i+1
if i>=12 then exit do
loop%>
javastr=javastr+"</td><td>"
javastr=javastr+"<a href=\"../../price/index.asp?anclassid=80&nclassid=1134\"><font color=red>台机</font></a>&nbsp;"
<%sql="select * from pinpai where nclassid=1134 order by pingpaiorder"
set rs=conn.execute(sql)
i=0
do while not rs.eof%>
javastr=javastr+"<a href=\"../../price/index.asp?nclassid=<%=rs("nclassid")%>&ppid=<%=rs("ppid")%>\"><%=rs("pingpainame")%></a>&nbsp;"
<%rs.movenext
i=i+1
if i>=13 then exit do
loop%>
javastr=javastr+"</td></tr></table></td></tr>"
javastr=javastr+"<tr><td style=\"filter:progid:DXImageTransform.Microsoft.Shadow(Color=bbbbbb,Direction=100,strength=1)\">"
javastr=javastr+"<table border=0 cellspacing=0 cellpadding=0><tr><td>"
javastr=javastr+"<a href=\"../../price/index.asp?anclassid=85&nclassid=1195\"><font color=red>手机</font></a>&nbsp;"
<%sql="select * from pinpai where nclassid=1195 order by pingpaiorder"
set rs=conn.execute(sql)
i=0
do while not rs.eof%>
javastr=javastr+"<a href=\"../../price/index.asp?nclassid=<%=rs("nclassid")%>&ppid=<%=rs("ppid")%>\"><%=rs("pingpainame")%></a>&nbsp;"
<%rs.movenext
i=i+1
if i>=14 then exit do
loop%>
javastr=javastr+"</td><td>"
javastr=javastr+"<a href=\"../../price/index.asp?anclassid=88\"><font color=red>显示</font></a>&nbsp;"
<%sql="select * from pinpai where nclassid=1160 order by pingpaiorder"
set rs=conn.execute(sql)
i=0
do while not rs.eof%>
javastr=javastr+"<a href=\"../../price/index.asp?nclassid=<%=rs("nclassid")%>&ppid=<%=rs("ppid")%>\"><%=rs("pingpainame")%></a>&nbsp;"
<%rs.movenext
i=i+1
if i>=7 then exit do
loop%>
javastr=javastr+"</td></tr></table></td></tr>"
javastr=javastr+"<tr><td style=\"filter:progid:DXImageTransform.Microsoft.Shadow(Color=bbbbbb,Direction=100,strength=1)\">"
javastr=javastr+"<table border=0 cellspacing=0 cellpadding=0><tr><td>"
javastr=javastr+"<a href=\"../../price/index.asp?anclassid=76&nclassid=1130\"><font color=red>主板</font></a>&nbsp;"
<%sql="select * from pinpai where nclassid=1130 order by pingpaiorder"
set rs=conn.execute(sql)
i=0
do while not rs.eof%>
javastr=javastr+"<a href=\"../../price/index.asp?nclassid=<%=rs("nclassid")%>&ppid=<%=rs("ppid")%>\"><%=rs("pingpainame")%></a>&nbsp;"
<%rs.movenext
i=i+1
if i>=7 then exit do
loop%>
javastr=javastr+"</td><td>"
javastr=javastr+"<a href=\"../../price/index.asp?anclassid=76&nclassid=1129\"><font color=red>内存</font></a>&nbsp;"
<%sql="select * from pinpai where nclassid=1129 order by pingpaiorder"
set rs=conn.execute(sql)
i=0
do while not rs.eof%>
javastr=javastr+"<a href=\"../../price/index.asp?nclassid=<%=rs("nclassid")%>&ppid=<%=rs("ppid")%>\"><%=rs("pingpainame")%></a>&nbsp;"
<%rs.movenext
i=i+1
if i>=6 then exit do
loop%>
javastr=javastr+"</td><td>"
javastr=javastr+"<a href=\"../../price/index.asp?anclassid=76&nclassid=1128\"><font color=red>硬盘</font></a>&nbsp;"
<%sql="select * from pinpai where nclassid=1128 order by pingpaiorder"
set rs=conn.execute(sql)
i=0
do while not rs.eof%>
javastr=javastr+"<a href=\"../../price/index.asp?nclassid=<%=rs("nclassid")%>&ppid=<%=rs("ppid")%>\"><%=rs("pingpainame")%></a>&nbsp;"
<%rs.movenext
i=i+1
if i>=7 then exit do
loop%>
javastr=javastr+"</td><td>"
javastr=javastr+"<a href=\"../../price/index.asp?anclassid=76&nclassid=1127\"><font color=red>CPU</font></a>&nbsp;"
<%sql="select * from pinpai where nclassid=1127 order by pingpaiorder"
set rs=conn.execute(sql)
i=0
do while not rs.eof%>
javastr=javastr+"<a href=\"../../price/index.asp?nclassid=<%=rs("nclassid")%>&ppid=<%=rs("ppid")%>\"><%=rs("pingpainame")%></a>&nbsp;"
<%rs.movenext
i=i+1
if i>=2 then exit do
loop%>
javastr=javastr+"</td></tr></table></td></tr></table>"
document.write(javastr)