%@Language=VBScript%>
<%
set conn = server.CreateObject("adodb.connection")
conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" + server.mappath("Datas.mdb")
set rs = server.createobject("adodb.recordset")
%>
<%
sql="select * from Common"
rs.open sql, conn, 3, 2
AcademyAddNewIcon = rs("AcademyAddNewIcon")
AcademyPictureNews = rs("AcademyPictureNews")
AcademyNewsCount = rs("AcademyNewsCount")
ScienceAddNewIcon = rs("ScienceAddNewIcon")
SciencePictureNews = rs("SciencePictureNews")
ScienceNewsCount = rs("ScienceNewsCount")
rs.close
%>
<%
PageNo=1
if request.querystring("page")<>"" then
PageNo = CInt(request.querystring("page"))
end if
PageSize=10
%>
多媒体课件
<%
conn.close
%>