wagedel.asp

来自「设计广州农信管理系统,具有一般的存取款功能等客户服务.」· ASP 代码 · 共 17 行

<!--#include file="Connections/DatabaseConnection.asp" -->
<%
dim strMemberID
strSheetName=request("SheetName")
strMemberID=request("MemberID")
if strSheetName<>"" and strMemberID<>"" then
	MM_editConnection = MM_DatabaseConnection_STRING
	MM_editQuery = "delete from " & strSheetName & " where MemberID = '" & strMemberID & "'"
	Set MM_editCmd = Server.CreateObject("ADODB.Command")
    MM_editCmd.ActiveConnection = MM_editConnection
    MM_editCmd.CommandText = MM_editQuery
    MM_editCmd.Execute
    MM_editCmd.ActiveConnection.Close

	response.redirect "WageQuery.asp?" & Session("strQureyString")
end if
%>