memdel.asp

《实例精粹ASP》中部分源代码

<!-- #include file = "include/sysbase.asp" -->
<%
dim strId
dim strSQL

strId  =  RealString(Request.QueryString("memberID"))

strSQL = "DELETE FROM member WHERE MemberId = '" & strId & "'"
'Response.Write strSQL
'Response.End
conn.execute (strSQL)
%>
<script language = Javascript>
<!--
	alert("删除成功！");
	window.location = "<%=Session("adminOldUrl")%>"
//-->
</script>