📄 infodel2.asp
字号:
<!--#include file="CheckLogin.asp"-->
<!--#include file="Connections/StudentConn.asp" -->
<%
Sub DelRecord(StudentNum) '删除记录
MM_editConnection = MM_StudentConn_STRING
MM_editQuery = "delete from StudentInfo where StudentNum = '" & cstr(StudentNum) & "'"
Set MM_editCmd = Server.CreateObject("ADODB.Command")
MM_editCmd.ActiveConnection = MM_editConnection
MM_editCmd.CommandText = MM_editQuery
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close
if err.Number<>0 then
err.clear
response.write "删除 " & cstr(StudentNum) & " 失败！<br>"
else
response.write "删除 " & cstr(StudentNum) & " 成功！<br>"
end if
End sub
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE>删除学生信息</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META content="MSHTML 6.00.2600.0" Name=GENERATOR>
<link href="home.css" rel="stylesheet" type="text/css">
</HEAD>
<BODY text=#000000 bgColor=#ffffff leftMargin=0 topMargin=0>
<!--#include file="InfoManage_Top.asp"-->
<TABLE width="760" border=0 align="center" cellPadding=0 cellSpacing=0>
<TBODY>
<TR>
<TD width=1 background="images/dotLine_h.gif"><IMG src="images/shim(1).gif" width=1></TD>
<TD Width="100" align="center" bgcolor="#EEEEEE"> </TD>
<td width="10" bgcolor="#F2FBF2"></td>
<TD align="center" bgcolor="#F2FBF2"><p align="left"><img src="images/InfoModifyDel_Title.gif" width="500" height="60"></p>
<br>
<b>
<%
If not isempty(Request("chkNum")) Then
strTemp = Request("chkNum")
if instr(strTemp,",")>0 then
dim ArrStudentNum
ArrStudentNum = split(strTemp,",")
dim id
For i = LBound(ArrStudentNum) To UBound(ArrStudentNum)
id=clng(ArrStudentNum(i))
call DelRecord(id)
next
else
call DelRecord(clng(strTemp))
end if
else
response.write "没有选中任何记录！"
End If
%>
<br>
<br>
<br>
<a href="<% =("InfoQuery2.asp?" & Session("strQureyString")) %>">【返回查询结果页面】</a><br>
<br>
<br>
<br>
或者继续查询需修改或删除的学生记录：</b><br>
<table width="300" border="0" cellspacing="0" cellpadding="5">
<form Name="form1" onSubmit="return check1()" action="InfoQuery2.asp" method="post">
<tr>
<td>按学号查询：</td>
<td> <input name="StudentNum" type="text" size="18" maxlength="8"></td>
<td> <input name="Submit1" type="submit" value="查询"></td>
</tr>
</form>
<form Name="form2" onSubmit="return check2()" action="InfoQuery2.asp" method="post">
<tr>
<td>按姓名查询：</td>
<td> <input name="Name" type="text" size="18" maxlength="8"></td>
<td> <input name="Submit2" type="submit" value="查询"></td>
</tr>
</form>
<form Name="form3" action="InfoQuery2.asp" method="post">
<tr>
<td>按班级查询：</td>
<td> <select name="Grade" id="Grade">
<option value="0" selected>高一级</option>
<option value="1">高二级</option>
<option value="2">高三级</option>
</select> <select name="ClassSelect" id="ClassSelect">
<option value="01">1班</option>
<option value="02">2班</option>
<option value="03">3班</option>
<option value="04">4班</option>
<option value="05">5班</option>
<option value="06">6班</option>
<option value="07">7班</option>
<option value="08">8班</option>
<option value="09">9班</option>
<option value="10">10班</option>
<option value="11">11班</option>
<option value="12">12班</option>
<option value="All" selected>全级</option>
</select></td>
<td> <input name="Submit3" type="submit" value="查询"></td>
</tr>
</form>
</table>
<br>
</td>
<TD width=1 background="images/dotLine_h.gif"><IMG src="images/shim(1).gif" width=1></TD>
</TR>
<tr>
<TD height="1" colspan="7" background="images/dotLine_w.gif"><IMG height=1 src="images/shim(1).gif" width=100></TD>
</tr>
</TBODY>
</TABLE>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td>
<Iframe src="http://cqzx.sdedu.net/sdms/CopyRight.asp" width="760" height="200" marginheight="0" marginwidth="0" scrolling="NO" frameborder="0" name="CopyRight"></iframe>
</td>
</tr>
</table></BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -