?? deleteuser.asp
字號:
<!--#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 + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -