梁伟鹏--学生成绩管理系统
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