
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
-->
</style>
<script language="javascript">
function popwin2(id,path)
{		window.open("openarticle.asp?id="+id+"&ppath="+path,"","height=600,width=800,resizable=yes,scrollbars=yes,status=no,toolbar=no,menubar=yes,location=no");
}
</script>
<link rel="stylesheet" href="style/001.css" type="text/css">
</head>
<body leftmargin="0" topmargin="2" vlink="#000000">
<%
dim conn2,rs2
set conn2=server.createobject("adodb.connection")
DBPath = Server.MapPath("cooljokessjk2.mdb")
conn2.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath

sql="SELECT type.typeid,type.type,learning.typeid,learning.articleid,learning.title,learning.dateandtime FROM learning,type where type.typeid=learning.typeid ORDER BY hits DESC"
set rs2=server.createobject("adodb.recordset")
rs2.open sql,conn2,1,1
 if rs2.eof and rs2.bof then 
       response.write "<p align='center'> »¹ Ã» ÓÐ ÈÎ ºÎ ³Ì Ðò</p>" 
   else 
dim i
do while not rs2.eof 
%>
¡¤<a href="javascript:popwin2(<%=rs2("articleid")%>)"><%=rs2("title")%></a><br> 
<%i=i+1 
	if i>20 then exit do 
	rs2.movenext 
	loop 
	end if 
	rs2.close 
	conn2.close 
%> 
</body>