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

sql="select * from price where bookid="&request("id")&""
set rs=conn.execute(sql)
anclassid=rs("anclassid")
nclassid=rs("nclassid")
ppid=rs("ppid")
rs.close%>

javastr=javastr+"<table width=100% border=0 cellspacing=0 cellpadding=0>"
javastr=javastr+"<tr><td>"
<!--整行开始 -->
javastr=javastr+"<table width=99% border=0 cellspacing=2 cellpadding=0>"
javastr=javastr+"<tr><td align=center><!--跳转菜单开始 -->"
javastr=javastr+"<select name=select onchange=\"var jmpurl=this.options[this.selectedIndex].value ; if(jmpurl!='') {window.location=jmpURL;} else {this.selectedindex=0 ;}\" class=selectleft>"
<%set rs=server.createobject("adodb.recordset")
rs.open"select * from shop_nclass order by nclassidorder",conn,1,1
while not rs.eof%>
javastr=javastr+"<option value=\"../../price/index.asp?anclassid=<%=rs("anclassid")%>&nclassid=<%=rs("nclassid")%>\" <%if rs("nclassid")=cint(request("nclassid")) then%>selected<%end if%>><%=rs("nclass")%></option>"
<%rs.movenext
wend
rs.close%>
javastr=javastr+"</select><!--跳转菜单结束 -->"
javastr=javastr+"</td></tr>"
javastr=javastr+"<tr><td height=5></td></tr>"
<%set rs=server.createobject("adodb.recordset")
if nclassid<>"" then
rs.open"select * from shop_nclass where nclassid="&nclassid&"",conn,1,1
else
rs.open"select * from shop_nclass where anclassid=80 order by nclassidorder",conn,1,1
end if
while not rs.eof%>
javastr=javastr+"<tr>"
javastr=javastr+"<td class=centermenu><a class=center href=\"../../price/index.asp?anclassid=<%=rs("anclassid")%>&nclassid=<%=rs("nclassid")%>\" target=\"_top\"><%=rs("nclass")%></a></td></tr>"
javastr=javastr+"<tr><td valign=top><!--三级分类开始 -->"
<%if nclassid<>"" then
set rs1=server.createobject("adodb.recordset")
rs1.open"select * from pinpai where nclassid="&rs("nclassid"),conn,1,1%>
javastr=javastr+"<table width=100% border=0 cellspacing=0 cellpadding=0>"
<%while not rs1.eof%>
javastr=javastr+"<tr>"
<%if not rs1.eof then%>
javastr=javastr+"<td class=centersmallmenu><a href=\"../../price/index.asp?nclassid=<%=rs1("nclassid")%>&ppid=<%=rs1("ppid")%>\" class=topA><%=rs1("pingpainame")%></a></td>"
<%rs1.movenext
end if
if not rs1.eof then%>
javastr=javastr+"<td class=centersmallmenu><a href=\"../../price/index.asp?nclassid=<%=rs1("nclassid")%>&ppid=<%=rs1("ppid")%>\" class=topA><%=rs1("pingpainame")%></a></td>"
<%rs1.movenext
end if%>
javastr=javastr+"</tr>"
<%wend%>
javastr=javastr+"</table>"
<%rs1.close
end if%><!--三级分类结束 -->
javastr=javastr+"</td></tr>"
<%rs.movenext
wend
rs.close%>
javastr=javastr+"</table>"
<!--整行结束 -->
javastr=javastr+"</td></tr>"
javastr=javastr+"</table>"

document.write(javastr)