📄 wagedel2.asp

📁 设计广州农信管理系统,具有一般的存取款功能等客户服务.

💻 ASP

字号:

<!--#include file="Connections/DatabaseConnection.asp" -->
<%
strSheetName=Request("SheetName")

Sub DelRecord(MemberID)     '删除记录
  if strSheetName<>"" then
	MM_editConnection = MM_DatabaseConnection_STRING
	MM_editQuery = "delete from " & strSheetName & " where MemberID = '" & cstr(MemberID) & "'"
	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(MemberID) & " 失败！<br>"
    else
        response.write "删除 " & cstr(MemberID) & " 成功！<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=#ffffff leftMargin=0 topMargin=0>
<!--#include file="Default_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 ArrMemberID
	ArrMemberID = split(strTemp,",")
    dim id
	For i = LBound(ArrMemberID) To UBound(ArrMemberID)
    	id=clng(ArrMemberID(i))
   		call DelRecord(id)
	next
  else
	call DelRecord(clng(strTemp))
  end if
else
  response.write "没有选中任何记录！"
End If
%>
            <br>
            <br>
            <br>
            <% if strSheetName<>"" then %>
			<% 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="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 + -