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\">"
<%sql="select * from shop_anclass order by anclassidorder"
set rs=conn.execute(sql)
while not rs.eof%>
javastr=javastr+"<option value=\"../../price/index.asp?anclassid=<%=rs("anclassid")%>\" <%if rs("anclassid")=cint(anclassid) then%>selected<%end if%>><%=rs("anclass")%></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 anclassid<>"" then
rs.open"select * from shop_anclass where anclassid="&anclassid&"",conn,1,1
else
rs.open"select * from shop_anclass order by anclassidorder",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")%>\" target=\"_top\"><%=rs("anclass")%></a></td></tr>"
javastr=javastr+"<tr><td valign=top><!--二级分类开始 -->"
<%if anclassid<>"" then
set rs1=server.createobject("adodb.recordset")
rs1.open"select * from shop_nclass where anclassid="&rs("anclassid"),conn,1,1%>
javastr=javastr+"<table width=\"100%\" border=0 cellspacing=0 cellpadding=0>"
<%while not rs1.eof%>
javastr=javastr+"<tr>"
javastr=javastr+"<td class=centersmallmenu><img src=\"../../price/images/nofollow.gif\"> <a href=\"../../price/index.asp?anclassid=<%=rs1("anclassid")%>&nclassid=<%=rs1("nclassid")%>\" class=topA><%=rs1("nclass")%></a></td>"
<%rs1.movenext%>
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+"<tr><td class=padleft><!--左侧新闻开始 -->"
<%sql="select top 15 * from news_moban where searchkey like '%今日%' order by updatetime desc"
set rs=conn.execute(sql)
if rs.eof then
else%>
javastr=javastr+"<table width=100% border=0 cellspacing=0 cellpadding=0>"
javastr=javastr+"<tr><td style=\"padding-left:2px;padding-bottom:5px;padding-top:5px\"><span class=channelspan>今日行情</span></td></tr>"
<%while not rs.eof
text=rs("title")%>
javastr=javastr+"<tr><td style=\"padding-left:5px\"><a href=../<%=rs("pathlink")%> target=_blank class=00><%=left((text),11)%></a></td></tr>"
<%rs.movenext
wend
end if%>
javastr=javastr+"</table>"
<%rs.close
set rs=nothing%>
javastr=javastr+"</td></tr></table>"

document.write(javastr)