javastr=""
<%dim conn   
dim connstr
on error resume next
connstr="DBQ="+server.mappath("pastmdb/#past.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("adodb.connection")
conn.open connstr

sql="select * from price order by updatetime desc"
set rs=conn.execute(sql)
if rs.eof then
else%>
javastr=javastr+"<table cellpadding=\"0\" cellspacing=\"0\" border=\"0\" width=\"100%\">"
javastr=javastr+"<tr><td align=\"center\" height=\"25\"><a href=\"http://it532.cn/bigqd/reg_shang.asp\" target=\"_top\">免费注册经销商</a></td></tr>"
javastr=javastr+"<tr><td height=\"30\" align=\"center\" class=\"table-shangxia\" bgcolor=\"#f5f5f5\">最新报价</td></tr>"
javastr=javastr+"<tr><td height=\"10\"></td></tr>"

<%i=0
do while not rs.eof
money=split(rs("money"),"|")%>
javastr=javastr+"<tr><td align=\"center\"><a href=\"http://it532.cn/bigqd/mo/<%=rs("booklink")%>\" target=\"_top\"><img src=\"http://it532.cn/bigqd/<%=rs("pic1")%>\" width=\"120\" height=\"80\" border=\"1\" style=\"border-color:#333333\"></a></td></tr>"
javastr=javastr+"<tr><td align=\"center\"><%=left(rs("bookname"),12)%></td></tr>"
javastr=javastr+"<tr><td align=\"center\">报价：<a href=\"http://it532.cn/bigqd/mo/<%=rs("booklink")%>\" target=\"_top\"><font color=\"red\"><%=money(1)%>元</font></a></td></tr>"
<%rs.movenext
i=i+1
if i>=15 then exit do
loop
end if%>

javastr=javastr+"</table>"

document.write(javastr)