db.open "driver={microsoft access driver (*.mdb)};dbq=" &
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
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<Script language="java script">
function mysubmit(theform)
{
if(theform.big.value=="")
{
alert("请点击浏览按钮，选择您要上传的jpg或gif文件!")
theform.big
首页 上一页 10 11 12 13 14 下一页 尾页 13/14/14
ASP同学录设计asp+sql(十三)由免费论文网（www.jaoyuw.com）会员上传。
