deleteuser.asp
来自「Activity——活动管理模块 Analyse——分析模块 Client—」· ASP 代码 · 共 101 行
ASP
101 行
<!--#include file="../conn.asp"-->
<%
set rs = conn.execute("select * from [User]")
%>
<HTML><HEAD><TITLE>删除用户</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312"><LINK
href="../css.css" type=text/css rel=stylesheet>
<META content="MSHTML 6.00.2600.0" name=GENERATOR></HEAD>
<BODY bgColor=#ffffff leftMargin=0 topMargin=0>
<TABLE cellSpacing=0 cellPadding=0 width="95%" align=center bgColor=#ffffff
border=0>
<TBODY>
<TR>
<TD>
<TABLE cellSpacing=1 cellPadding=6 width="100%" bgColor=#BFD3EE
border=0>
<TBODY>
<TR>
<TD vAlign=center align=middle
bgColor=#BFD3EE><div align="center">求实CRM</TD>
</TR>
<TR>
<TD vAlign=center bgColor=#ffffff>
<DIV align=left></DIV> <TABLE cellSpacing=0 cellPadding=5 align=center bgColor=#BFD3EE
border=0>
<!--DWLayoutTable-->
<TBODY>
<TR bgColor=#ffffff>
<TD width="542" height="23"> <P> </P></TD>
</TR>
<TR bgColor=#BFD3EE>
<TD height="23"><b>操作:删除用户</b></TD>
</TR>
<form name=DeleteUser action=DeleteUserDone.asp method=post>
<%
While not (rs.bof or rs.eof)
%>
<TR align="center" bgColor=#ffffff>
<TD height="29"
style="BORDER-RIGHT: #BFD3EE 1px solid; BORDER-LEFT: #BFD3EE 1px solid;BORDER-Bottom: #BFD3EE 1px solid"><font color=red><%=rs("UserName")%></font>
<input type="checkbox" name="User<%=rs("UserID")%>" value="<%=rs("UserID")%>"> </TD>
</TR>
<%
rs.movenext
Wend
%>
<TR bgColor=#ffffff>
<TD height="30"
style="BORDER-RIGHT: #BFD3EE 1px solid; BORDER-LEFT: #BFD3EE 1px solid"><DIV align=center>
<input type="button" style="BORDER-RIGHT: #BFD3EE 2px solid; BORDER-TOP: #BFD3EE 2px solid; FONT-SIZE: 9pt; BACKGROUND: #f0f0f0; BORDER-LEFT: #BFD3EE 2px solid; WIDTH: 120px; BORDER-BOTTOM: #BFD3EE 2px solid; HEIGHT: 20px" name="DeleteUserButton" value="删除所选用户">
</div></TD>
</TR>
</form>
<TR bgColor=#ffffff>
<TD height="23"
style="BORDER-RIGHT: #BFD3EE 1px solid; BORDER-LEFT: #BFD3EE 1px solid"><DIV align=center></div></TD>
</TR>
<!--删除按钮确认函数-->
<SCRIPT FOR="DeleteUserButton" EVENT="onClick" LANGUAGE="VBScript"> '响应DeleteUserButton的OnClick事件
Dim TheForm
Set TheForm = Document.forms("DeleteUser") '获得DeleteUser表单对象
Dim MyVar
MyVar = MsgBox ("你确认要删除该客户的信息资料么？",52, "确认删除") '弹出对话框警告
if MyVar = 6 then '如果用户单击确定
TheForm.submit() '提交表单
end if '否则不提交表单
</SCRIPT>
<!--删除按钮确认函数结束-->
<TR>
<TD height="23" align="center" valign="middle" bgColor=#BFD3EE><input name="BackButton" type="submit" class="button_all" id="BackButton" value="返回" onclick="javascript:location.href='UserManage.asp'"></TD>
</TR>
</TABLE></TD>
</TR>
<TR>
<TD vAlign=center bgColor=#BFD3EE>
<DIV align=center>求是CRM 版权所有</DIV></TD>
</TR>
<TR>
<TD></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
</TBODY>
</TABLE>
<P>
<P></P></BODY></HTML>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?