deleteall.asp

功能齐全的oa系统

<!-- #include virtual="include/DataEnvi.asp" -->

<%
Dim ObjDB
Dim StrSQL
Dim IntToID,Infosel
IntToID=Request.QueryString ("IntToID")
Infosel=Request.QueryString ("Infosel")
set ObjDB=server.CreateObject ("Adodb.Connection")
OpenDB ObjDB
if Infosel=1 then
StrSQL="delete from t_OA_Work_UserMessage Where (FromID ="&session("AccountID")&" And ToID = " & IntToID & ") Or (ToID ="&session("AccountID")& "And FromID = " & IntToID & ") "
elseif Infosel=2 then
StrSQL="delete from t_OA_Work_UserMessage where FromID =0 And ToID = " & Session("AccountID")
else
   StrSQL="delete from t_OA_Work_UserMessage"
end if
ObjDB.Execute (StrSQL)
ObjDB.Close 
if Infosel=1 then
   Response.Redirect "history.asp"
elseif Infosel=2 then
   Response.Redirect "logview.asp"
else
   Response.Redirect "allhistory.asp"
end if
%>