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 border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"100%\">"
javastr=javastr+"<tr>" 
javastr=javastr+"<td>" 
<%sql="select * from indexlink where anclassidorder<30 and anclassidorder>10 order by anclassidorder"
set rs=conn.execute(sql)
do while not rs.eof%>
javastr=javastr+"<a href=\"<%=rs("fudongjia")%>\" target=_blank><%=rs("anclass")%></a> | "
<%rs.movenext
loop%>
javastr=javastr+"</td>" 
javastr=javastr+"<td align=\"right\"><a href=\"http://it532.cn\" target=\"_blank\">首页</a> | <a href=\"javascript:window.external.addFavorite('http://it532.cn','it532.cn');\">收藏</a>" 
javastr=javastr+"</td>" 
javastr=javastr+"</tr>" 
javastr=javastr+"</table>" 
document.write(javastr)