sendmsg.asp

来自「功能齐全的oa系统」· ASP 代码 · 共 27 行

<%option explicit%>
<!-- #include virtual="include/DataEnvi.asp" -->
<!-- #include virtual="include/String.asp" -->
<!-- #include virtual="include/SendMessage.asp" -->
<%
	Dim ObjDB,ObjRS,StrSQL
	Dim IntToIDs,i
	Set ObjDB = Server.CreateObject("Adodb.Connection")
	OpenDB ObjDB
	
	If Request.Form("ToID")<>"" Then
		Call SendMessage(ObjDB,Session("AccountID"),Request.Form("ToID"),Request.Form("Message"))
	ElseIf Request.Form("ToIDs")<>"" Then
		IntToIDs = Split(Request.Form("ToIDs"),",")
		For i = LBound(IntToIDs) To UBound(IntToIDs)
			Call SendMessage(ObjDB,Session("AccountID"),IntToIDs(i),Request.Form("Message"))		
		Next
	End If
	ObjDB.Close
	Set ObjDB = Nothing	
%>

<script language=javascript>
top.window.close()
</script>