ASP原创信息管理系统(三)
irect"guanli.asp" ‘成功进入管理界面
else
response.Redirect "index.htm" ‘不成功进入主界面
end if
end if
if trim(request("yhm"))="" or trim(request("mm"))="" then
response.Redirect "chucuo.asp"
end if ‘接收信息为空出现错误信息提示
%>
学生登陆界面代码：
if trim(request("yhm1"))<>"" and trim(request("mm1"))<>"" then
‘接收的数据不为空，执行以下
dim rs,strsql
strsql = "select * from xxzcb where yhm='"&request("yhm1")& "' and mm='"& request("mm1")& "'" ‘与数据库中信息校验
set rs =conn.execute(strsql)
if not rs.bof and not rs.eof then
session("gly_id")=rs("gly_id")
response.Redirect"xueshengxinxi.html" ‘成功到学生信息主界面
else
response.Redirect "xxye.asp" ‘不成功到学生登陆主界面
end if
end if
if trim(request("yhm"))="" or trim(request("mm"))="" then
response.Redirect "chucuo.asp"
end if ‘接收信息为空出现错误信息提示
%>
3.数据添加代码：
学生信息添加代码
<% option explicit %> ‘声名
<%
if request.Form("kh")<>""and request.Form("xm")<>"" and request.Form("xb")<>"" and request.Form("rxcj")<>"" and request.Form("jtdz")<>""and request.Form("lxdh")<>""and request.Form("yxxm")<>""and request.Form("szxm")<>""and request.Form("sxzy")<>""then 接收数据不为空执行以下
dim db,strcon
strcon="driver={Microsoft access driver (*.mdb)};dbq="&server.MapPath("data.mdb")
set db=server.CreateObject("ADODB.Connection")
db.open strcon 连接数据库
dim strsql,varkh,varxm,varxb,varrxcj,varjtdz,varlxdh,varyxxm,varszxm,varsxzy,varbz
varkh=request.Form("kh")
varxm=request.Form("xm")
varxb=request.Form("xb")
varrxcj=request.Form("rxcj")
varjtdz=request.Form("jtdz")
varlxdh=request.Form("lxdh")
varyxxm=request.Form("yxxm")
varszxm=request.Form("szxm")
varsxzy=request.Form("sxzy")
varbz=request.Form("bz")
接收的数据赋于自定义变量
strsql="insert into xsxx(kh,xm,xb,rxcj,jtdz,lxdh,yxxm,szxm,sxzy,bz) values('" &clng(varkh)&"','" &varxm&"','" &varxb&"','" &varrxcj&"','" &varjtdz&"','" &varlxdh&"','" &varyxxm&"','" &varszxm&"','" &varsxzy&"','" &varbz&"')"
db.execute(strsql) 添加数据到数据库
response.Write"恭喜你,注册成功!"
response.Write"<a href='guanli.asp'>返回管理页</a>"
‘添加链接
else
response.Write"请将信息填写完整,带*必填,"
response.Write"<a href='guanliyuan.asp'>重新添加</a>"
end if
%>
课程信息添加代码
<% option explicit %>
<%
if request.Form("kcm")<>""and request.Form("rkls")<>"" and request.Form("kksj")<>"" and request.Form("lszz")<>"" and request.Form("lxdh")<>""and request.Form("rkxm")<>""and request.Form("rkbm")<>""then
‘接收数据不为空，执行以下代码
dim db,strcon
strcon="driver={microsoft access driver (*.mdb)};dbq="&server.MapPath("data.mdb")
set db=server.CreateObject("ADODB.Connection")
db.open strcon 连接数据库
dim strsql,varkcm,varrkls,varkksj,varlszz,varlxdh,varrkxm,varrkbm,varbeizhu
varkcm=request.Form("kcm")
varrkls=request.Form("rkls")
varkksj=request.Form("kksj")
varlszz=request.Form("lszz")
varlxdh=request.Form("lxdh")
varrkxm=request.Form("rkxm")
varrkbm=request.Form("rkbm")
varbeizhu=request.Form("beizhu")
为自定义变量赋值
strsql="insert into kcxx(kcm,rkls,kksj,lszz,lxdh,rkxm,rkbm,beizhu) values('" &varkcm&"','" &varrkls&"','" &cdate(varkksj)&"','" &varlszz&"','" &varlxdh&"','" &varrkxm&"','" &varrkbm&"','" &varbeizhu&"')"
db.execute(strsql) ‘将课程信息添加到数据库
response.Write"恭喜你,注册成功!"
response.Write"<a href='guanli.asp'>返回管理页</a>"
else
response.Write"请将信息填写完整,带*必填,"
response.Write"<a href='guanliyuan2.asp'>重新添加</a>"
end if
%>
成绩信息添加代码
<% option explicit %>
<%
if request.Form("xh")<>""and request.Form("xm")<>"" and request.Form("xb")<>"" and request.Form("szxm")<>"" and request.Form("szbj")<>""and request.Form("kcm")<>""and request.Form("cj")<>""then
dim db,strcon
strcon="driver={microsoft access driver (*.mdb)};dbq="&server.MapPath("data.mdb")
set db=server.CreateObject("ADODB.Connection")
db.open strcon 连接数据库
dim strsql,varxh,varxm,varxb,varszxm,varszbj,varkcm,varcj,varkcm1,varcj1,varbz
varxh=request.Form("xh")
varxm=request.Form("xm")
varxb=request.Form("xb")
varszxm=request.Form("szxm")
varszbj=request.Form("szbj")
varkcm=request.Form("kcm")
varcj=request.Form("cj")
varkcm1=request.Form("kcm1")
varcj1=request.Form("cj1")
varbz=request.Form("bz")
strsql="insert into cjxx(xh,xm,xb,szxm,szbj,kcm,cj,kcm1,cj1,bz) values('" &clng(varxh)&"','" &varxm&"','" &varxb&"','" &varszxm&"','" &varszbj&"','" &varkcm&"','" &varcj&"','" &varkcm1&"','" &varcj1&"','" &varbz&"')"
‘添加成绩信息到数据库
db.execute(strsql)
response.Write"恭喜你,注册成功!"
response.Write"<a href='guanli.asp'>返回管理页</a>"
else
response.Write"请将信息填写完整,带*必填,"
response.Write"<a href='guanliyuan3.asp'>重新添加</a>"
end if
%>
数据的浏览、修改、删除模块代码：
1.学生信息浏览设计与代码
<body>
<%
dim strsql,rs
strsql="select * from xsxx order by xsxx_id desc"
set rs=db.execute(strsql)
%> 从数据库中调出学生信息
<table border="1" align="center"> 用表格将信息显示出来
<tr>
<td colspan="8"><div align="center" class="style1">学生信息在线</div></td>
<td><a href="glyqx.asp">返回上级</a></td>
<td><a href="index.htm">首页</a></td></tr>
<tr>
<td><div align="center">考号</div></td>
<td><div align="center">姓名</div></td>
<td><div align="center">性别</div></td>
<td><div align="center">入学成绩</div></td>
<td><div align="center">家庭地址</div></td>
<td><div align="center">联系电话</div></td>
<td><div align="center">原学校名</div></td>
<td><div align="center">所在系名</div></td>
<td><div align="center">所学专业</div></td>
<td><div align="center">备注</div></td></tr><tr>
<%
do while not rs.eof
%> ‘显示的不是信息尾
<td><%=rs("kh")%></td>
<td><%=rs("xm")%></td>
<td><%=rs("xb")%></td>
<td><%=rs("rxcj")%></td>
<td><%=rs("jtdz")%></td>
<td><%=rs("lxdh")%></td>
<td><%=rs("yxxm")%></td>
<td><%=rs("szxm")%></td>
<td><%=rs("sxzy")%></td>
<td><%=rs("bz")%></td>
</tr>
<%
rs.movenext
loop
%> ‘继续向下移动
</table>
</body>
课程信息浏览设计与代码:
<body>
<%
dim strsql,rs
strsql="select * from kcxx order by kcxx_id desc"
set rs=db.execute(strsql)
%>
<table border="1" align="center">
<tr>
<td colspan="6"><div align="center" class="style1">课程信息在线</div></td>
<td><a href="glyqx.asp">返回上级</a></td>
<td><a href="index.htm">首页</a></td>
</tr>
<tr>
<td>课程名</td>
<td>任课老师</td>
<td>开课时间</td>
<td>老师住址</td>
<td>联系电话</td>
<td>任课系名</td>
<td>任课班名</td>
<td>备注</td>
</tr>
<tr>
<%
do while not rs.eof
%>
<td><%=rs("kcm")%></td>
<td><%=rs("rkls")%></td>
<td><%=rs("kksj")%></td>
<td><%=rs("lszz")%></td>
<td><%=rs("lxdh")%></td>
<td><%=rs("rkxm")%></td>
<td><%=rs("rkbm")%></td>
<td><%=rs("beizhu")%></td>
</tr>
<%
rs.movenext
loop
%>
</table>
</body>
成绩信息浏览设计与代码:
<body>
<%
dim strsql,rs
strsql="select * from cjxx order by cjxx_id desc"
set rs=db.execute(strsql)
%>
<table border="1" align="center" cellspacing="1">
<tr>
<td colspan="4"><div align="right">欢迎管理员的光临！</div></td>
<td colspan="5"><div align="center" class="style1">成绩信息在线</div> <div align="center"></div></td>
<td><a href="glyqx.asp">返回上一级</a></td>
<td><a href="index.htm">首页</a></td>
</tr>
<tr>
<td><div align="center">学号</div></td>
<td><div align="center">姓名</div></td>
<td><div align="center">性别</div></td>
<td><div align="center">所在系名</div></td>
<td><div align="center">所在班级</div></td>
<td><div align="center">课程名</div></td>
<td><div align="center">成绩</div></td>
<td><div align="center">若有补考科目可填下表</div></td>
<td>课程名</td>
<td><div align="center">成绩</div></td>
<td><div align="center">备注</div></td>
</tr>
<tr>
<%
do while not rs.eof
%>
<td><%=rs("xh")%></td>
<td><%=rs("xm")%></td>
<td><%=rs("xb")%></td>
<td><%=rs("szxm")%></td>
<td><%=rs("szbj")%></td>
<td><%=rs("kcm")%></td>
<td><%=rs("cj")%></td>
<td colspan="2"> <%=rs("kcm1")%></td>
<td><%=rs("cj1")%></td>
<td><%=rs("bz")%></td>
</tr>
<%
rs.movenext
loop
%>
</table>
</body>
2.信息修改代码
学生信息修改设计与代码
学生信息修改先接收数据库信息再修改
接收数据库信息设计与代码如下：
<body >
<%
Dim varid
varid=Request.QueryString("xsxx_id")
Session("xsxx_id")=varid ‘用接收的ID进行传值
Dim db
Set db=Server.CreateObject("ADODB.Connection")
db.open"driver={microsoft access driver (*.mdb)};dbq="&server.MapPath("data.mdb") 连接数据库
Dim strSql,rs
strSql="Select * From xsxx Where xsxx_id=" &Session("xsxx_id")
Set rs=db.Execute(strSql) ‘从数据库中调用表的ID号
%>
<div align="center"><strong><font color="#FF0000" size="6">修改记录</font></strong><hr> ‘以下用表单进行数据的传递
<form action="update.asp" method="post" name="form"id="form">
‘以下用表格将数据显示出来
<table width="50%" height="506" border="0"><tr>
<td width="29%" height="40"> <div align="right">考号:</div></td>
<td width="71%" height="40"><input name="kh" type="text" id="kh" value="<%=rs("kh")%>"></td> </tr><tr>
<td height="40"><div align="right">姓名:</div></td>
<td height="40"><input name="xm" type="text" id="xm" value="<%=rs("xm")%>"></td></tr><tr>
<td height="40"> <div align="right">性别:</div></td>
<td height="40"><input name="xb" type="text" id="xb" value="<%=rs("xb")%>"></td></tr><tr>
<td height="40"> <div align="right">入学成绩:</div></td>
<td height="40"><input name="rxcj" type="text" id="rxcj" value="<%=rs("rxcj")%>"></td></tr><tr>
<td height="40"> <div align="right">家庭地址:</div></td><td height="40"><input name="jtdz" type="text" id="jtdz" value="<%=rs("jtdz")%>"></td></tr><tr>
<td height="40"><div align="right">联系电话:</div></td>
<td height="40"><input name="lxdh" type="text" id="lxdh" value="<%=rs("lxdh")%>"></td></tr><tr>
<td height="40"> <div align="right">原学校名:</div></td>
<td height="40"><input name="yxxm" type="text" id="yxxm" value="<%=rs("yxxm")%>"></td></tr><tr>
<td height="40"><div align="right">所在系名:</div></td>
<td height="40"><input name="szxm" type="text" id="szxm" value="<%=rs("szxm")%>"></td></tr><tr>
<td height="40"><div align="right">所学专业:</div></td>
<td height="40"><input name="sxzy" type="text" id="sxzy" value="<%=rs("sxzy")%>"></td></tr><tr>
<td height="40"><div align="right">备注:</div></td><td height="40"><input name="bz" type="text" id="bz" value="<%=rs("bz")%>"></td></tr><tr>
<td height="40" colspan="2">
<div align="center">
<input type="submit" name="Submit" value="确定"></div></td></tr> </table></form></div></body>
以下代码对数据进行修改
<%
dim varid
varid=session("xsxx_id") ‘取得修改的信息
if request.Form("kh")<>""and request.form("xm")<>""and request.Form("xb")<>""and request.Form("rxcj")<>""and request.Form("jtdz")<>""and request.Form("lxdh")<>"" and request.Form("yxxm")<>"" and request.Form("szxm")<>""and request.Form("sxzy")<>""then ‘接收的信息不为空，然后执行
dim db
set db=server.CreateObject("ADODB.connection")
db.Open "driver={microsoft Access driver (*.mdb)};dbq=" &server.MapPath("data.mdb") ‘数据库的连接
Dim varkh,varxm,varxb,varrxcj,varjtdz,varlxdh,varyxxm,varszxm,varsxzy,varbz,strsql
varkh=request.Form("kh")
varxm=request.Form("xm")
varxb=request.Form("xb")
varrxcj=request.Form("rxcj")
varjtdz=request.Form("jtdz")
varlxdh=request.Form("lxdh")
varyxxm=request.Form("yxxm")
varszxm=request.Form("szxm")
varsxzy=request.Form("sxzy")
varbz=request.Form("bz")
strsql="update xsxx set kh='"& varkh & "', xm='"& varxm & "',xb='"& varxb & "',rxcj='"& varrxcj & "',jtdz='" & varjtdz & "',lxdh='" & varlxdh & "',yxxm='" & varyxxm & "',szxm='" & varszxm & "',sxzy='" & varsxzy & "',bz='" & varbz & "' Where xsxx_id=" & varid
db.Execute(strsql) ‘修改学生信息
response.Redirect"browsxx.asp"
else
response.write"请将带*信息填写完整！"
response.write"<a href='deletexsxx.asp'>重新修改</a>"
end if
%>
课程信息信息的修改设计与代码：
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>修改记录</title>
</head>
<body background="images/bg.gif">
<%
Dim varid
varid=Request.QueryString("kcxx_id")
Session("kcxx_id")=varid
Dim db
Set db=Server.CreateObject("ADODB.Connection")
db.open"driver={microsoft access driver (*.mdb)};dbq="&server.MapPath("data.mdb")
Dim strSql,rs
strSql="Select * From kcxx Where kcxx_id=" &Session("kcxx_id")
Set rs=db.Execute(strSql)
%>
<div align="center"><strong><font color="#FF0000" size="6">修改记录</font></strong>
<hr>
<form action="update1.asp" method="post" name="form" id="form">
<table width="50%" height="422" border="0">
<tr>
<td height="40"> </td>
<td width="52%" height="40"><strong><font size="4"> 课程信息修改在线</font></strong></td>
<td width="23%"><a href="deletekcxx.asp">返回上级</a></td>
</tr>
<tr>
<td width="25%" height="40"> <div align="right">课程名:</div></td>
<td height="40" colspan="2"><input name="kcm" type="text" id="kcm" value="<%=rs("kcm")%>"></td>
</tr>
<tr>
<td height="40"><div align="right">任课老师名:</div></td>
<td height="40" colspan="2"><input name="rkls" type="text" id="rkls" value="<%=rs("rkls")%>"></td>
</tr>
<tr>
<td height="40"> <div align="right">开课时间:</div></td>
<td height="40" colspan="2"><input name="kksj" type="text" id="kksj" value="<%=rs("kksj")%>"></td>
</tr>
<tr>
<td height="40"> <div align="right">老师住址:</div></td>
<td height="40" colspan="2"><input name="lszz" type="text" id="lszz" value="<%=rs("lszz")%>"></td>
</tr>
<tr>
<td height="40"> <div align="right">联系电话:</div></td>
<td height="40" colspan="2"><input name="lxdh" type="text" id="lxdh" value="<%=rs("lxdh")%>"></td>
</tr>
<tr>
<td height="40"><div align="right">任课系名:</div></td>
<td height="40" colspan="2"><input name="rkxm" type="text" id="rkxm" value="<%=rs("rkxm")%>"></td>
</tr>
<tr>
<td height="40"> <div align="right"
ASP原创信息管理系统(三)由免费论文网（www.jaoyuw.com）会员上传。
