function.asp

功能齐全的oa系统

<%
	Function SendMail(ObjDB,Message,MailID)
		On Error resume next
		Dim ObjRS,StrSQL
		Dim ErrCode
		Dim FromAddr,FromName,Priority,ToAddr,Subject,Body
		Dim AttachPath,StrAttachIDs
		
		
		StrSQL = "Select * From t_OA_Message Where ID = " & MailID
		Set ObjRS = ObjDB.Execute(StrSQL)
		If ObjRS.Eof Then
			SendMail = false
			Exit Function
		End If
		
		FromAddr = objrs.Fields("FromAddr")
		FromName = objrs.Fields("FromName")
		Priority = objrs.Fields("Priority")
		ToAddr	 = objrs.Fields("ToAddr")
		Subject	 = objrs.Fields("Subject")
		Body	 = objrs.Fields("Body")
		StrAttachIDs = ObjRS("Attachs")

		
		ObjRS.Close
		
		If StrAttachIDs<>"" Then
			StrAttachIDs = "'" & Replace(StrAttachIDs,",","','") & "'"
			StrSQL = "Select FileName,KeyPath,BasePath From t_OA_Attach Where KeyPath IN (" & StrAttachIDs & ")"
			Set ObjRS = objDB.Execute(strSQL)
			While Not ObjRS.EOF
				AttachPath	=	Server.MapPath("/OA/Attach/Files/" & ObjRS("BasePath") & "/" & ObjRS("KeyPath") & "/" & ObjRS("FileName"))
				Call Message.AddAttachment(AttachPath,True,"text/plain")
				ObjRS.MoveNext()
			Wend
		End If
		
		Message.Charset			=	"gb2312"
		Message.From			=	FromAddr
		Message.FromName		=	FromAddr
		Message.AddRecipient ToAddr
		Message.Priority		=	Priority
		Message.Subject			=	Subject
		Message.Body			=	Body
		Message.Send(GetServerIP(FromAddr,objDB))
		
		StrSQL = "Update t_OA_Message Set BoxID=4,BoxIDBak=4,SendTime=getdate() Where ID=" & MailID
		ObjDB.Execute(strSQL)
		
		SendMail = True
	End Function

	Function GetServerIP(EmailAddr,objDB)
		Dim Pos1,ServerAddr,strSQL,objRS
		Pos1 = Instr(1,EmailAddr,"@")
		ServerAddr  = Right(EmailAddr,Len(EmailAddr)-Pos1)
		strSQL = "Select IP From t_OA_Message_MailServer Where Address='" & ServerAddr & "'"
		Set objRS = objDB.Execute(strSQL)
		If Not objRS.EOF Then
			GetServerIP	= objRS("IP")
		Else
			GetServerIP	= ""
		End If
	End Function
%>