server.MapPath("../data/yhzc.mdb")
dim strsql,rs
strsql="select * from dab order by dab_id"
set rs=db.execute(strsql)
%>
各系页面（页面最上面的导航这里以计算机系的页面为主讲解）
可以能过链接看同学录中的同学分别是哪个系的方便同学们相互查找
代码分析：
查找计算机系：
<%
dim db
set db=server.createobject("adodb.connection")
db.open "driver={microsoft access driver (*.mdb)};dbq=" &
server.MapPath(".../data/yhzc.mdb")
dim strsql,rs
strsql="select * from dab where xx='jsj'"
set rs=db.execute(strsql)
%>
查找管理系
<%
dim db
set db=server.createobject("adodb.connection")
db.open "driver={microsoft access driver (*.mdb)};dbq=" & server.MapPath(".../data/yhzc.mdb")
dim strsql,rs
strsql="select * from dab where xx='gl'"
set rs=db.execute(strsql)
%>
查找经贸系
<%
dim db
set db=server.createobject("adodb.connection")
db.open "driver={microsoft access driver (*.mdb)};dbq=" & server.MapPath(".../data/yhzc.mdb")
dim strsql,rs
strsql="select * from dab where xx='jm'"
set rs=db.execute(strsql)
%>
查找文化传媒系
<%
dim db
set db=server.createobject("adodb.connection")
db.open "driver={microsoft access driver (*.mdb)};dbq=" & server.MapPath(".../data/yhzc.mdb")
dim strsql,rs
strsql="select * from dab where xx='whcm'"
set rs=db.execute(strsql)
%>
查找艺术系
<%
dim db
set db=server.createobject("adodb.connection")
db.open "driver={microsoft access driver (*.mdb)};dbq=" & server.MapPath(".../data/yhzc.mdb")
dim strsql,rs
strsql="select * from dab where xx='ys'"
set rs=db.execute(strsql)
%>
照片上传
页面示图
页面代码
<%
dim db
set db=server.createobject("adodb.connection")
db.open "driver={microsoft access driver (*.mdb)};dbq=" & server.MapPath(".../data/yhzc.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from dab where yhmc_id="& session("yhmc_id")
rs.open sql,db
%>
<%
dim dba
set dba=server.createobject("adodb.connection")
dba.open "driver={microsoft access driver (*.mdb)};dbq=" & server.MapPath(".../data/picture.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from picture where yhmc_id=" & session("yhmc_id")
rs.open sql,dba
