ASP学生成绩管理系统毕业论文样稿(5)

梁伟鹏--学生成绩管理系统

else

response.Write\用户名或密码错误，请重新登陆！');history.go(-1);\response.End end if

elseif request.Form(\request.Form(\request.Form(\学生登陆\MM_valUsername=trim(Request.Form(\

Set rs = Server.CreateObject(\创建记录集对象 sql=\namen,bianhao from xuesheng where namen='\& MM_valUsername &\AND bianhao='\& trim(request.Form(\

rs.open sql,MM_xueshengshujuku_STRING,1,3 If Not rs.EOF Or Not rs.BOF Then

Session(\

response.Redirect\else

response.Write\用户名或密码错误，请重新登陆！');history.go(-1);\response.End end if end if

rs.Close()

Set rs = Nothing %> <%

liebiao.Close() Set liebiao = Nothing %>

5.4数据添加方法

数据添加的方法，本系统就用添加学生xueshengtianjia.asp页来演示，图0.9。 代码如下所示：

图0.9 添加老师laoshitianjia.asp

21

梁伟鹏--学生成绩管理系统

<%'添加新学生资料

If trim(request.Form(\Set tianjia= Server.CreateObject(\创建记录集对象 tianjia_numRows=\

bianhao,namen,sex,nianyue,jiguan,zhengjian,youxiang,dizhi,xueli,jdianhua,xibie,bdianhua,class,sushe,zhengzhi,youbian,jiankang,ruriqi,beizhu FROM xuesheng\tianjia.open tianjia_numRows,MM_xueshengshujuku_STRING,2,2 tianjia.addnew

tianjia(\tianjia(\tianjia(\if trim(request(\tianjia(\end if

tianjia(\tianjia(\tianjia(\tianjia(\tianjia(\tianjia(\tianjia(\tianjia(\tianjia(\tianjia(\tianjia(\tianjia(\tianjia(\if trim(request(\tianjia(\end if

tianjia(\tianjia.update tianjia.close set tianjia= Nothing

response.Write\添加成功！');\

22

梁伟鹏--学生成绩管理系统

end if %>

5.5数据修改方法

数据修改的方法，本系统就用修改学生资料xziliao.asp页来演示，图1.0。 代码如下所示：

图1.0 学生资料修改laoshiziliao.asp

<%'修改新学生资料

If (CStr(Request(\ff=trim(Request(\

Set tianjia= Server.CreateObject(\创建记录集对象 tianjia_numRows=\

bianhao,namen,sex,nianyue,jiguan,zhengjian,youxiang,dizhi,xueli,jdianhua,xibie,bdianhua,class,sushe,zhengzhi,youbian,jiankang,ruriqi,beizhu,ID FROM xuesheng where ID =\

23

梁伟鹏--学生成绩管理系统

tianjia.open tianjia_numRows,MM_xueshengshujuku_STRING,3,3 tianjia(\tianjia(\tianjia(\if trim(request(\tianjia(\end if

tianjia(\tianjia(\tianjia(\tianjia(\tianjia(\tianjia(\tianjia(\tianjia(\tianjia(\tianjia(\tianjia(\tianjia(\tianjia(\if trim(request(\tianjia(\end if

tianjia(\tianjia.update tianjia.close set tianjia= Nothing

response.Write\修改成功！');\

response.Redirect\end if%>

5.6数据删除方法

该删除功能代码放在独立页面，页面使用网页表单提交复选框值给shanchu.asp来处理，进行单一删除或批量删除。

代码如下所示：

if request.Form(\and request(\then '删除学生资料

24

梁伟鹏--学生成绩管理系统

Set Recordset2 = Server.CreateObject(\

Recordset2_numRows = \Recordset2.Open Recordset2_numRows,MM_xueshengshujuku_STRING,3,2 response.Redirect(\

5.7数据查询方法

数据查询的方法，本系统就用查询学生资料xueshengchaxun.asp页来演示，图1.1。 代码如下所示：

图1.1 查询学生资料laoshichaxun.asp

<%

Dim xueshengziliao__MMColParam xueshengziliao__MMColParam = \

If (Request.Form(\

xueshengziliao__MMColParam = trim(Request.Form(\

elseif request.Form(\查询分页条件

xueshengziliao__MMColParam = trim(request.QueryString(\End If %> <%

Dim xueshengziliao

Dim xueshengziliao_numRows

Set xueshengziliao = Server.CreateObject(\

xueshengziliao_numRows = \* FROM xuesheng WHERE bianhao like '%\+ Replace(xueshengziliao__MMColParam, \\+ \or namen like '%\+ Replace(xueshengziliao__MMColParam, \\+ \or sex like '%\+ Replace(xueshengziliao__MMColParam, \\+ \or class like '%\+ Replace(xueshengziliao__MMColParam, \\+ \or xueli like '%\+ Replace(xueshengziliao__MMColParam, \\+ \or jiguan like '%\+ Replace(xueshengziliao__MMColParam, \xueshengziliao.open xueshengziliao_numRows,MM_xueshengshujuku_STRING,1,3

25