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

dim action
action=request.QueryString("action")
select case action
case "forumtop1"
sql="select top 20 * from Dv_Board order by Boardid desc"
set rs=conn.execute(sql)%>
javastr=javastr+"<table align=center cellpadding=2 cellspacing=0 border=0>"
<%do while not rs.eof%>
javastr=javastr+"<tr><td nowrap><a href=\"../forum/zindex.asp?Boardid=<%=rs("Boardid")%>\" target=\"_blank\"><%=left(rs("BoardType"),4)%></a><%rs.movenext%></td>"
javastr=javastr+"<td nowrap><a href=\"../forum/zindex.asp?Boardid=<%=rs("Boardid")%>\" target=\"_blank\"><%=left(rs("BoardType"),4)%></a><%rs.movenext%></td>"
javastr=javastr+"<td nowrap><a href=\"../forum/zindex.asp?Boardid=<%=rs("Boardid")%>\" target=\"_blank\"><%=left(rs("BoardType"),4)%></a><%rs.movenext%></td>"
javastr=javastr+"<td nowrap><a href=\"../forum/zindex.asp?Boardid=<%=rs("Boardid")%>\" target=\"_blank\"><%=left(rs("BoardType"),4)%></a></td></tr>"
<%rs.movenext
loop%>
javastr=javastr+"</table>"



<%end select%>
document.write(javastr)