📄 deletehistory.asp
字号:
<%option explicit%>
<!-- #include virtual="include/DataEnvi.asp" -->
<!-- #include virtual="include/String.asp" -->
<%
Response.Buffer=True
Dim ObjDB,ObjRS,StrSQL
Dim ArrItem,j
Set ObjDB = Server.CreateObject("Adodb.Connection")
OpenDB ObjDB
ArrItem = Split(Request("Item"),",")
For j = LBound(ArrItem) to UBound(ArrItem)
StrSQL = "Delete From t_OA_Work_UserMessage Where ID=" & ArrItem(j)
ObjDB.Execute(StrSQL)
Next
ObjDB.Close
Set ObjDB = Nothing
%>
<%
Response.Redirect "History.asp"
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -