📄 scoredel2.asp

📁 工资管理系统功能齐全包括工人工资信息查询.
💻 ASP
字号:
<!--#include file="CheckLogin.asp"-->
<!--#include file="StudentConn.asp" -->
<%
strSheetName=Request("SheetName")

Sub DelRecord(StudentNum)     '删除记录'
  if strSheetName<>"" then
	MM_editConnection = MM_StudentConn_STRING
	MM_editQuery = "delete from " & strSheetName & " 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
  else
    response.write "操作过时！<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=#f7f7ff leftMargin=0 topMargin=0>
<!--#include file="ScoreManage_Top.asp"-->
<TABLE cellSpacing=0 cellPadding=0 width=750 align=center border=0>
  <TBODY> 
  <TR> 
    <TD vAlign=top width=46 background=images/p_left_2.gif></TD>
    <TD height="200" width="25" align="center">&nbsp;</TD>
      <TD height="200" width="679" valign="top" align="center"> <br>
            <b><font size="5">修改/删除员工工资</font></b><br>
            <br>
            <br>
            <br>
            <%
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>
            <% if strSheetName<>"" then %>
			<a href="<% =("ScoreQuery2.asp?" & Session("strQureyString")) %>">【返回查询结果页面】</a>
			<% end if %>
            <br><br>
    </TD>
  </TR>
  </TBODY> 
</TABLE>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td>
		<Iframe src="CopyRight.asp" width="760" height="100" 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 + -