📄 deletelog.asp
字号:
<%@ LANGUAGE = VBScript %><% Option Explicit %>
<!-- #include virtual="include/DataEnvi.asp" -->
<%
Sub Main()
Dim intID '计划ID
intID = Request.QueryString("ID")
Dim strMsg '返回消息
strMsg = "删除"
Dim ObjDB
Set ObjDB = Server.CreateObject("ADODB.Connection")
OpenDB ObjDB
On Error Resume Next
ObjDB.Execute("DELETE t_OA_Private_Log WHERE ID = "& intID)
If Err.number <> 0 Then
strMsg = strMsg & "失败。"
Else
strMsg = strMsg & "成功。"
End If
%>
<HTML>
<BODY bgcolor=#8cbde7>
<center>
<input type="hidden" name="message" value="<%= strMsg %>">
<script language="javascript">
alert( message.value);
window.opener.document.location = window.opener.document.location;
window.close();
</script>
</BODY>
</HTML><%
End Sub
Call Main
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -