教育管理系统

				
				
				
				
				
				
				function popwin2(id,path)
				{		window.open("openarticle.asp?id="+id+"&ppath="+path,"","height=500,width=550,resizable=yes,scrollbars=yes,status=no,toolbar=no,menubar=no,location=no");
				}
				
				
				
								dim conn2,rs2
				set conn2=server.createobject("adodb.connection")
				DBPath = Server.MapPath("download.asp")
				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 learning.articleid DESC"
				set rs2=server.createobject("adodb.recordset")
				rs2.open sql,conn2,1,1
				 if rs2.eof and rs2.bof then 
				       response.write " 还 没 有 任 何 软 件" 
				   else 
				dim i
				do while not rs2.eof 
				%> □ [] 
				 ()
									if i>rs("sou") then exit do
					rs2.movenext
					loop
					end if
					rs2.close
					conn2.close
				%>