ASP原创信息管理系统_毕业论文范文网-论文范文

搜索高级搜索

原创毕业论文

ASP原创信息管理系统(三)

作者: 浏览:929次

免费专业论文
政治工作论文
计算机论文
营销专业论文
工程管理论文范文
医药医学论文范文
法律论文范文
生物专业论文
物理教学论文范文
人力资源论文范文
化学教学论文范文
电子专业论文范文
历史专业论文
电气工程论文
社会学专业论文
英语专业论文
行政管理论文范文
语文专业论文
电子商务论文范文
焊工钳工技师论文
社科文学论文
教育论文范文
数学论文范文
物流论文范文
建筑专业论文
食品专业论文
财务管理论文范文
工商管理论文范文
会计专业论文范文
专业论文格式
化工材料专业论文
英语教学专业论文
电子通信论文范文
旅游管理论文范文
环境科学专业论文
经济论文
人力资源论文范文
营销专业论文范文
财务管理论文范文
物流论文范文
财务会计论文范文
数学教育论文范文
数学与应用数学论文
电子商务论文范文
法律专业论文范文
工商管理论文范文
汉语言文学论文
计算机专业论文
教育管理论文范文
现代教育技术论文
小学教育论文范文
机械模具专业论文
报告,总结,申请书
心理学论文范文
学前教育论文范文

收费计算机专业论文范文

收费计算机专业论文
Delphi
ASP
VB
JSP
ASP.NET
VB.NET
java
VC
pb
VS
dreamweaver
c#.net
vf
VC++
计算机论文

毕业论文范文题目：ASP原创信息管理系统(三)，论文范文关键词：ASP原创信息管理系统(三)
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"

首页上一页 1 2 3 4 5 下一页尾页 3/5/5

以上为本篇毕业论文范文ASP原创信息管理系统(三)的介绍部分。

本论文在计算机论文栏目，由论文网(www.zjwd.net)整理,更多论文,请点论文范文查找